[gruntmaster-daemon.git] / lib / Gruntmaster / Daemon / Judge / Absolute.pm

package Gruntmaster::Daemon::Judge::Absolute;

use 5.014000;
use strict;
use warnings;

use Gruntmaster::Daemon::Constants qw/AC/;

our $VERSION = '5999-TRIAL';

##################################################

sub judge{
	my $result = pop;
	ref $result ? (result => $result->[0], result_text => $result->[1]) : (result => AC, result_text => 'Accepted')
}

1;
__END__
Commit	Line	Data
5c5cd38a MG	1	package Gruntmaster::Daemon::Judge::Absolute;
	2
	3	use 5.014000;
	4	use strict;
	5	use warnings;
	6
	7	use Gruntmaster::Daemon::Constants qw/AC/;
	8
bc372959	9	our $VERSION = '5999-TRIAL';
5c5cd38a MG	10
	11	##################################################
	12
	13	sub judge{
9d3e429a MG	14	my $result = pop;
9d3e429a MG	15	ref $result ? (result => $result->[0], result_text => $result->[1]) : (result => AC, result_text => 'Accepted')
5c5cd38a MG	16	}
	17
	18	1;
	19	__END__