| 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 } |