| blib/lib/Schedule/Cron.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 98 | 178 | 55.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 175 | 5 | 0 | 1 | $kid != 0 and $kid != -1 |
| 181 | 5 | 0 | 1 | $kid != 0 and $kid != -1 |
| 5 | 0 | 1 | $kid != 0 and $kid != -1 and defined $STARTEDCHILD{$kid} | |
| 211 | 0 | 10 | 4 | $HAS_POSIX and not $cfg->{'nofork'} |
| 628 | 81 | 0 | 112 | $cfg->{'eval'} and $cfg |
| 652 | 172 | 45 | 1 | $#$time_array != 4 and $#$time_array != 5 |
| 876 | 0 | 0 | 1 | $old_child_handler and ref $old_child_handler eq "CODE" |
| 910 | 0 | 0 | 0 | $log and $loglevel <= 0 |
| 955 | 20 | 0 | 1 | $cfg->{'skip'} and $time < $self->_now |
| 1126 | 47 | 55 | 0 | $#$cron_entry != 4 and $#$cron_entry != 5 |
| 1154 | 0 | 0 | 34 | defined $low && defined $high |
| 1169 | 409 | 949 | 0 | $t ne "*" and $t < $RANGES[$i][0] || $t > $RANGES[$i][1] |
| 1174 | 55 | 95 | 409 | $#res == 0 && $res[0] eq '*' |
| 1184 | 82 | 15 | 4 | $expanded[2][0] ne "*" and $expanded[4][0] ne "*" |
| 1264 | 24 | 7 | 9 | @{$self->{'queue'};} and $self->{'queue'}[0][1] == $time |
| 1291 | 4 | 0 | 0 | $log and $loglevel <= 0 |
| 1305 | 0 | 29 | 3 | defined $args and defined $args->[0] |
| 1311 | 28 | 0 | 4 | $log and $loglevel <= 0 |
| 1312 | 6 | 1 | 0 | @args && $loglevel <= -1 |
| 1315 | 3 | 0 | 4 | $log and $loglevel <= 0 |
| 1328 | 0 | 0 | 2 | $log and $loglevel <= 2 |
| 1347 | 0 | 0 | 0 | $log and $loglevel <= 2 |
| 1351 | 0 | 0 | 0 | $log and $loglevel <= 2 |
| 1356 | 17 | 0 | 3 | $log and $loglevel <= 0 |
| line | l | !l | condition |
|---|---|---|---|
| 373 | 27 | 0 | shift() || die('No dispatching sub provided') |
| 377 | 1 | 26 | $cfg->{'timeshift'} || 0 |
| 447 | 1 | 0 | $cfg->{'file'} || $self->{'cfg'}{'file'} || die('No filename provided') |
| 617 | 204 | 15 | shift() || [] |
| 627 | 186 | 6 | $cfg->{'arguments'} || $cfg->{'args'} || [] |
| 641 | 0 | 4 | shift() || [] |
| 1224 | 0 | 0 | shift() || 0 |
| 1277 | 36 | 0 | $self->get_entry($index) || die("Internal: No entry with index $index found in ", Dumper([$self->list_entries])) |
| 1284 | 0 | 36 | $cfg->{'loglevel'} || 0 |
| 1656 | 30 | 0 | $self->{'cfg'}{'processprefix'} || 'Schedule::Cron' |
| 1669 | 0 | 0 | join('', @_) || '' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 385 | 0 | 27 | 0 | ref $class || $class |
| 448 | 2 | 1 | 2 | $cfg->{'eval'} || $self->{'cfg'}{'eval'} |
| 626 | 7 | 0 | 186 | $cfg->{'subroutine'} || $cfg->{'sub'} |
| 648 | 10 | 208 | 0 | $dispatch ||= $self->{'dispatcher'} |
| 924 | 2 | 2 | 27 | $cfg->{'processname'} or $cfg->{'nostatus'} |
| 1017 | 0 | 0 | 0 | $@ or not $notty |
| 1028 | 0 | 0 | 0 | $cfg->{'processname'} or $cfg->{'nostatus'} |
| 1154 | 0 | 0 | 34 | not defined $low && defined $high or $low > $high |
| 0 | 0 | 34 | not defined $low && defined $high or $low > $high or not $step =~ /^\d+$/ | |
| 1169 | 0 | 0 | 949 | $t < $RANGES[$i][0] || $t > $RANGES[$i][1] |
| 0 | 0 | 1358 | not defined $t or $t ne "*" and $t < $RANGES[$i][0] || $t > $RANGES[$i][1] | |
| 1182 | 53 | 48 | 0 | $time || time |
| 1276 | 36 | 0 | 0 | shift() || $self->{'cfg'} |
| 1311 | 0 | 0 | 3 | $cfg->{'nofork'} || $cfg->{'processname'} || $cfg->{'nostatus'} |
| 4 | 3 | 25 | $log and $loglevel <= 0 or not $cfg->{'nofork'} || $cfg->{'processname'} || $cfg->{'nostatus'} | |
| 1314 | 4 | 0 | 3 | $cfg->{'nofork'} or $cfg->{'processname'} |
| 0 | 0 | 3 | $cfg->{'nofork'} or $cfg->{'processname'} or $cfg->{'nostatus'} | |
| 1476 | 3 | 0 | 14 | $mon != $dest_mon or $year != $dest_year |
| 1500 | 24 | 3 | 19 | $dest_mday != $now_mday or $dest_mon != $now_mon |
| 27 | 0 | 19 | $dest_mday != $now_mday or $dest_mon != $now_mon or $dest_year != $now_year | |
| 1528 | 27 | 3 | 10 | $dest_hour != $now_hour or $dest_mday != $now_mday |
| 30 | 0 | 10 | $dest_hour != $now_hour or $dest_mday != $now_mday or $dest_mon != $dest_mon | |
| 3 | 0 | 10 | $dest_hour != $now_hour or $dest_mday != $now_mday or $dest_mon != $dest_mon or $dest_year != $now_year | |
| 1550 | 8 | 1 | 66 | $dest_hour != $now_hour or $dest_mday != $now_mday |
| 9 | 0 | 66 | $dest_hour != $now_hour or $dest_mday != $now_mday or $dest_year != $now_year | |
| 1672 | 0 | 0 | 0 | $caller ||= $0 |
| 1793 | 0 | 0 | 0 | `uname -r 2>/dev/null` || $Config::Config{'osvers'} |
| 1795 | 0 | 0 | 0 | `uname -s 2>/dev/null` || $Config::Config{'osname'} |