X-Git-Url: http://git.ieval.ro/?p=gruntmaster-daemon.git;a=blobdiff_plain;f=lib%2FGruntmaster%2FDaemon%2FJudge%2FAbsolute.pm;h=b661681dbfa165f69afdd37541b1685b10b20e00;hp=010cf0b2d70e94e7c01ce2b949ba4c1b1ab57405;hb=8aec2ffe6e3b488974f2ca97f7d63324e47742ab;hpb=5c5cd38ad5b9e3c2b331564bc0b23e9167b7d07a diff --git a/lib/Gruntmaster/Daemon/Judge/Absolute.pm b/lib/Gruntmaster/Daemon/Judge/Absolute.pm index 010cf0b..b661681 100644 --- a/lib/Gruntmaster/Daemon/Judge/Absolute.pm +++ b/lib/Gruntmaster/Daemon/Judge/Absolute.pm @@ -6,14 +6,45 @@ use warnings; use Gruntmaster::Daemon::Constants qw/AC/; -our $VERSION = '0.001'; +our $VERSION = '5999.000_001'; ################################################## sub judge{ - $_ = pop; - ref $_ ? (result => $_->[0], result_text => $_->[1]) : (result => AC, result_text => 'Accepted') + my $result = pop; + ref $result ? (result => $result->[0], result_text => $result->[1]) : (result => AC, result_text => 'Accepted') } 1; __END__ + +=encoding utf-8 + +=head1 NAME + +Gruntmaster::Daemon::Judge::Absolute - All-or-nothing ACM-style judge + +=head1 SYNOPSIS + + use Gruntmaster::Daemon::Judge::Absolute; + Gruntmaster::Daemon::Judge::Absolute->judge($result1, $result2, $result3, ...); + +=head1 DESCRIPTION + +Gruntmaster::Daemon::Judge::Absolute is a judge which returns the result of the last test executed. Gruntmaster::Daemon stops running tests if the judge is Gruntmaster::Daemon::Judge::Absolute and a test fails, so the last test result is Accepted if and only if all tests succeeded. + +=head1 AUTHOR + +Marius Gavrilescu Emarius@ieval.roE + +=head1 COPYRIGHT AND LICENSE + +Copyright (C) 2014 by Marius Gavrilescu + +This library is free software: you can redistribute it and/or modify +it under the terms of the GNU Affero General Public License as published by +the Free Software Foundation, either version 3 of the License, or +(at your option) any later version. + + +=cut