| line |
true |
false |
branch |
|
71
|
20 |
2 |
if $self->has_day
|
|
72
|
20 |
2 |
if $self->has_month
|
|
73
|
20 |
2 |
if $self->has_year
|
|
75
|
2 |
20 |
unless ($self->has_year and $self->has_month and $self->has_day)
|
|
134
|
4 |
0 |
$self->is_gregorian_leap_year($gy + 1) ? :
|
|
|
13 |
4 |
$self->month != 20 ? :
|
|
161
|
0 |
4 |
$j1 <= $julian_date && $julian_date <= $j2 ? :
|
|
171
|
0 |
4 |
$julian_date >= $bld ? :
|
|
256
|
0 |
2 |
unless ref $other eq 'Date::Bahai::Simple'
|
|
282
|
1 |
23 |
if (defined $month and $month =~ /[A-Z]/i)
|
|
287
|
0 |
23 |
if $caller[3] eq '(eval)'
|
|
289
|
1 |
0 |
defined $month ? :
|
|
|
1 |
22 |
unless defined $month and $month =~ /^\d{1,2}$/ and $month >= 1 and $month <= 20
|
|
301
|
0 |
23 |
if $caller[3] eq '(eval)'
|
|
303
|
1 |
0 |
defined $day ? :
|
|
|
1 |
22 |
unless defined $day and $day =~ /^\d{1,2}$/ and $day >= 1 and $day <= 19
|
|
343
|
4 |
17 |
if ($year >= 2015)
|
|
345
|
4 |
0 |
if ($equinox_date =~ /\d{4}\-(\d{2})\-(\d{2})\s/)
|