blib/lib/Date/Gregorian/Simple.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 4 | 16 | 25.0 |
line | true | false | branch |
---|---|---|---|
58 | 2 | 0 | if ($self->has_year and $self->has_month and $self->has_day) { } |
61 | 2 | 0 | if ($self->is_leap_year($self->year)) { } |
64 | 0 | 2 | if $caller[3] eq '(eval)' |
66 | 0 | 0 | defined $day ? : |
0 | 2 | unless defined $day and $day =~ /^\d+$/ and $day >= 1 and $day <= 29 | |
178 | 0 | 0 | $self->is_leap_year($year) ? : |
188 | 0 | 0 | if ($self->is_leap_year($year)) |
189 | 0 | 0 | if $month == 2 |