[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 = '0.001';

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

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