blib/lib/Mojar/Cron/Date.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 6 | 20 | 30.0 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
90 | 0 | 0 | 1 | &blessed($other) && $other->isa('Mojar::Cron::Date') |
line | l | !l | condition |
---|---|---|---|
36 | 0 | 0 | $days // 0 |
40 | 0 | 0 | shift() // 0 |
44 | 0 | 0 | shift() // 0 |
59 | 27 | 0 | $format || '%Y-%m-%d' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
17 | 0 | 29 | 0 | ref $proto || $proto |
56 | 0 | 27 | 0 | $date ||= ref $self ? $$self : croak("Missing required date") |
106 | 2 | 10 | 0 | $Cache{pack "ss", @_[0, 1]} ||= do { my $month = ($_[1] + 9) % 12; my $year = $_[0] - int($month / 10); 365 * $year + int($year / 4) - int($year / 100) + int($year / 400) + int(($month * 306 + 5) / 10) - $Epoch } |