line |
true |
false |
branch |
66
|
0 |
1 |
if $month < 1 or $month > 12 |
69
|
0 |
1 |
if $day < 1 or $day > 31 |
72
|
0 |
1 |
if $hour < 0 or $hour > 23 |
75
|
0 |
1 |
if $minute < 0 or $minute > 60 |
78
|
0 |
1 |
if $second < 0 or $second > 60 |
93
|
1 |
0 |
if (ref $tm ne 'Time::Moment') |
112
|
0 |
1 |
unless &looks_like_number($n) |
127
|
1 |
0 |
if (ref $tm ne 'Time::Moment') |
146
|
0 |
6 |
unless &looks_like_number($days) |
160
|
3 |
0 |
if (ref $tm ne 'Time::Moment') |
197
|
0 |
2 |
unless my $d_days = unpack('d', $bytes) |
199
|
0 |
2 |
if $d_days eq '-nan' |
208
|
0 |
1 |
unless my $epoch = pack('d', $icq) |
281
|
1 |
17 |
unless &looks_like_number($num) |
293
|
12 |
0 |
if (ref $t ne 'Time::Moment') |