| line |
true |
false |
branch |
|
77
|
0 |
3 |
$self->is_gregorian_leap_year($year) ? :
|
|
|
1 |
3 |
$month <= 2 ? :
|
|
108
|
1 |
0 |
unless $cent == 4 or $yindex == 4
|
|
111
|
0 |
1 |
$self->is_gregorian_leap_year($year) ? :
|
|
|
0 |
1 |
$wjd < $self->gregorian_to_julian($year, 3, 1) ? :
|
|
139
|
5 |
0 |
if (defined $month_name and not $month_name =~ /^\d+$/) { }
|
|
148
|
4 |
22 |
if uc $months->[$index] eq uc $month_name
|
|
152
|
0 |
0 |
if $caller[3] eq '(eval)'
|
|
154
|
0 |
0 |
defined $month_name ? :
|
|
170
|
2 |
1 |
if (defined $month) { }
|
|
190
|
0 |
3 |
if $caller[3] eq '(eval)'
|
|
192
|
1 |
0 |
defined $year ? :
|
|
|
1 |
2 |
unless defined $year and $year =~ /^\d+$/ and $year > 0
|
|
209
|
1 |
7 |
if (defined $month and not $month =~ /^[-+]?\d+$/)
|
|
214
|
0 |
7 |
if $caller[3] eq '(eval)'
|
|
216
|
3 |
0 |
defined $month ? :
|
|
|
3 |
4 |
unless defined $month and $month =~ /^\+?\d+$/ and $month >= 1 and $month <= 12
|
|
234
|
0 |
8 |
if $caller[3] eq '(eval)'
|
|
242
|
2 |
0 |
defined $month_name ? :
|
|
|
2 |
6 |
unless defined $month_name and not $month_name =~ /^[-+]?\d+$/ and grep /$month_name/i, @{$months;}[1 .. $#$months]
|
|
255
|
0 |
2 |
if $caller[3] eq '(eval)'
|
|
257
|
1 |
0 |
defined $day ? :
|
|
|
1 |
1 |
unless defined $day and $day =~ /^\d+$/ and $day >= 1 and $day <= 31
|