File Coverage

blib/lib/Schedule/Cron/Nofork.pm

Criterion	Covered	Total	%
statement	15	25	60.0
branch	0	4	0.0
condition	0	3	0.0
subroutine	5	6	83.3
pod	0	1	0.0
total	20	39	51.2

package Schedule::Cron::Nofork;

use strict;
use warnings;

use base 'Schedule::Cron';

use vars qw($VERSION);

$VERSION = '0.03';

sub execute {
  my $self = shift;

  my $index = shift;
  my $args = $self->{args}->[$index];

  my $dispatch = $args->[0];
  die "No subroutine provided with $dispatch"
    unless ref($dispatch) eq "CODE";
  $args = $args->[1];

  my @args;
  if (defined($args) && defined($args->[0])) {
    push @args,@$args;
    #dbg "Calling dispatch with ","@args";
  } else {
    #dbg "Calling dispatch with no args";
  }

  $dispatch->(@args);
};

1;
__END__