[gruntmaster-daemon.git] / Absolute.pm

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

use 5.014000;
use strict;
use warnings;

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

our $VERSION = '0.001';

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

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

1;
__END__
Commit	Line	Data
	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
	9	our $VERSION = '0.001';
	10
	11	##################################################
	12
	13	sub judge{
	14	my $result = pop;
	15	ref $result ? (result => $result->[0], result_text => $result->[1]) : (result => AC, result_text => 'Accepted')
	16	}
	17
	18	1;
	19	__END__