File Coverage

blib/lib/POE/Component/SmokeBox/Job.pm

Criterion	Covered	Total	%
statement	32	35	91.4
branch	4	6	66.6
condition	2	3	66.6
subroutine	9	10	90.0
pod	2	2	100.0
total	49	56	87.5

package POE::Component::SmokeBox::Job;
$POE::Component::SmokeBox::Job::VERSION = '0.56';
#ABSTRACT: Object defining a SmokeBox job.

use strict;
use warnings;
use Params::Check qw(check);
use base qw(Object::Accessor);
use vars qw($VERBOSE);

sub new {
  my $package = shift;

  my $tmpl = {
	idle    => { allow => qr/^\d+$/, default => 600, },
	timeout => { allow => qr/^\d+$/, default => 3600, },
	type    => { defined => 1, default => 'CPANPLUS::YACSmoke', },
	command => { allow => [ qw(check index smoke) ], default => 'check', },
	module  => { defined => 1 },
	no_log	=> { defined => 1, allow => qr/^(?:0|1)$/, default => 0, },
	delay	=> { defined => 1, allow => qr/^\d+$/, default => 0, },
	check_warnings => { defined => 1, allow => qr/^(?:0|1)$/, default => 1, },
  };

  my $args = check( $tmpl, { @_ }, 1 ) or return;
  if ( $args->{command} eq 'smoke' and !$args->{module} ) {
     warn "${package}::new expects 'module' to be set when command is 'smoke'";
     return;
  }
  my $self = bless { }, $package;
  my $accessor_map = {
	idle    => qr/^\d+$/,
	timeout => qr/^\d+$/,
	type    => sub { defined $_[0]; },
	command => [ qw(check index smoke) ],
	module  => sub { defined $_[0]; },
	id	=> sub { defined $_[0]; },
	no_log	=> qr/^(?:0|1)$/,
	delay	=> qr/^\d+$/,
	check_warnings => qr/^(?:0|1)$/,
  };
  $self->mk_accessors( $accessor_map );
  $self->$_( $args->{$_} ) for keys %{ $args };
  return $self;
}

sub dump_data {
  my $self = shift;
  my @returns = qw(idle timeout type command no_log check_warnings);
  push @returns, 'module' if $self->command() eq 'smoke';
  return map { ( $_ => $self->$_ ) } @returns;
}

1;

__END__