File Coverage

blib/lib/Proc/JobQueue/Command.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	5	80.0
pod	1	3	33.3
total	15	20	75.0

package Proc::JobQueue::Command;

# $Id: Command.pm 13848 2009-07-23 21:34:00Z david $

use strict;
use warnings;
require Proc::JobQueue::Job;
our @ISA = qw(Proc::JobQueue::Job);

sub new
{
	my ($pkg, $cmdStr, %params) = @_;

	return $pkg->SUPER::new(
		command	=> $cmdStr,
		desc	=> "run $cmdStr",
		%params,
	);
}

sub success
{
	my ($job) = @_;
	print "# Job terminated correctly $job->{command}\n";
}

sub failed
{
	my ($job) = @_;
	print "#ERROR: Job terminated incorrectly $job->{command}\n";
}

1;

__END__