| line |
true |
false |
branch |
|
103
|
0 |
1 |
if $month < 1 or $month > 12 |
|
106
|
0 |
1 |
if $day < 1 or $day > 31 |
|
109
|
0 |
1 |
if $hour < 0 or $hour > 23 |
|
112
|
0 |
1 |
if $minute < 0 or $minute > 60 |
|
115
|
0 |
1 |
if $second < 0 or $second > 60 |
|
130
|
1 |
0 |
if (ref $tm ne "Time::Moment") |
|
149
|
0 |
1 |
unless &looks_like_number($n) |
|
155
|
0 |
1 |
if $months < $MIN_UNIT_MONTHS or $months > $MAX_UNIT_MONTHS |
|
167
|
1 |
0 |
if (ref $tm ne "Time::Moment") |
|
186
|
0 |
4 |
unless &looks_like_number($days) |
|
192
|
0 |
4 |
if $intdays < $MIN_UNIT_DAYS or $intdays > $MAX_UNIT_DAYS |
|
203
|
2 |
0 |
if (ref $tm ne "Time::Moment") |
|
240
|
0 |
2 |
unless my $d_days = unpack("d", $bytes) |
|
242
|
0 |
2 |
if $d_days eq "-nan" |
|
251
|
0 |
1 |
unless my $epoch = pack("d", $icq) |
|
322
|
1 |
0 |
if ($num =~ /^[0-9a-fA-F]{32}$/) |
|
327
|
0 |
1 |
if $bigint eq "NaN" |
|
331
|
0 |
1 |
if length $hex > 32 |
|
332
|
0 |
1 |
if length $hex < 0 |
|
350
|
0 |
1 |
unless $wst{'year'} >= 1601 and $wst{'year'} <= 30827 and $wst{'month'} >= 1 and $wst{'month'} <= 12 and $wst{'day_of_week'} >= 0 and $wst{'day_of_week'} <= 6 and $wst{'day'} >= 1 and $wst{'day'} <= 31 and $wst{'hour'} >= 0 and $wst{'hour'} <= 23 and $wst{'minute'} >= 0 and $wst{'minute'} <= 59 and $wst{'second'} >= 0 and $wst{'second'} <= 59 and $wst{'milliseconds'} >= 0 and $wst{'milliseconds'} <= 999 |
|
367
|
0 |
1 |
unless $tm->year >= 1601 and $tm->year <= 30827 and $tm->month >= 1 and $tm->month <= 12 and $tm->day_of_week >= 1 and $tm->day_of_week <= 7 and $tm->day_of_month >= 1 and $tm->day_of_month <= 31 and $tm->hour >= 0 and $tm->hour <= 23 and $tm->minute >= 0 and $tm->minute <= 59 and $tm->second >= 0 and $tm->second <= 59 and $tm->millisecond >= 0 and $tm->millisecond <= 999 |
|
395
|
1 |
17 |
unless &looks_like_number($num) |
|
400
|
0 |
17 |
if $seconds < $MIN_SECONDS or $seconds > $MAX_SECONDS |
|
412
|
12 |
0 |
if (ref $t ne "Time::Moment") |