| blib/lib/Date/Utility.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 38 | 48 | 79.1 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 428 | 7 | 39 | 0 | $params_ref->{'datetime'} and $params_ref->{'epoch'} |
| 533 | 35 | 9 | 1 | $year > 30 and $year < 70 |
| 795 | 0 | 2 | 3 | ($year % 4 || !($year % 100)) && $year % 400 |
| 1090 | 1 | 2 | 3 | defined $date && $date =~ /^\d{1,2}\-\w{3}-\d{2}$/ |
| 1181 | 0 | 1 | 7 | &looks_like_number($years) and $years == int $years |
| 1234 | 0 | 1 | 21 | &looks_like_number($months) and $months == int $months |
| line | l | !l | condition |
|---|---|---|---|
| 791 | 5 | 17 | $shorties{$month} || 31 |
| 983 | 8009 | 0 | $dow_abb //= "undef" |
| 1078 | 5 | 1 | shift() // "" |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 397 | 1 | 1 | 1 | $self->day_of_week == 0 || $self->day_of_week == 6 |
| 428 | 39 | 7 | 1 | $params_ref->{'datetime'} || $params_ref->{'epoch'} |
| 854 | 0 | 0 | 48 | $tzname eq "UTC" or $tzname eq "Z" |
| 872 | 0 | 0 | 200048 | $tzname eq "UTC" or $tzname eq "Z" |
| 985 | 8007 | 2 | 0 | $days_to_num{lc $dow_abb} // croak("Invalid day of week. We got [" . $dow_abb . "]") |
| 1150 | 2 | 1 | 3 | not $today_obj or $time > $today_ends_at |
| 3 | 1 | 2 | not $today_obj or $time > $today_ends_at or $time < $today_starts_at | |
| 1237 | 3 | 2 | 16 | $new_month < 1 or $new_month > 12 |