| line |
true |
false |
branch |
|
30
|
7 |
1 |
if (defined $args{'hour'}) { } |
|
32
|
0 |
7 |
unless $args{'hour'} == int $args{'hour'} |
|
34
|
1 |
6 |
unless $args{'hour'} >= 0 and $args{'hour'} <= 23 |
|
39
|
6 |
0 |
if (defined $args{'minute'}) { } |
|
41
|
0 |
6 |
unless $args{'minute'} == int $args{'minute'} |
|
43
|
0 |
6 |
unless $args{'minute'} >= 0 and $args{'minute'} <= 59 |
|
48
|
6 |
0 |
if (defined $args{'second'}) { } |
|
50
|
0 |
6 |
unless $args{'second'} == int $args{'second'} |
|
52
|
0 |
6 |
unless $args{'second'} >= 0 and $args{'second'} <= 59 |
|
58
|
6 |
0 |
if (defined $args{'nanosecond'}) |
|
60
|
0 |
6 |
unless $args{'nanosecond'} == int $args{'nanosecond'} |
|
62
|
0 |
6 |
unless $args{'nanosecond'} >= 0 and $args{'nanosecond'} <= 999999999 |
|
66
|
1 |
5 |
if keys %args |
|
76
|
9 |
1 |
if (defined $args{'float'}) { } |
|
78
|
2 |
7 |
unless $tod >= 0 and $tod < 86400 |
|
84
|
1 |
6 |
if keys %args |
|
94
|
4 |
0 |
if (defined $args{'hms'}) { } |
|
96
|
0 |
4 |
unless $hms =~ /\A([0-9]{1,2}):([0-9]{1,2})(?::([0-9]{1,2})(\.[0-9]{1,9})?)?\z/ |
|
98
|
3 |
1 |
defined $3 ? : |
|
|
1 |
3 |
defined $4 ? : |
|
106
|
0 |
4 |
if keys %args |
|
116
|
2 |
2 |
$utc ? : |
|
119
|
2 |
2 |
$utc ? : |
|
208
|
1 |
15 |
if ($nanosecond) { } |
|
209
|
0 |
1 |
$second < 10 ? : |
|
225
|
4 |
1 |
ref $_[0] ? : |
|
228
|
0 |
5 |
unless ($tod1->can("float") and $tod2->can("float")) |
|
237
|
0 |
1 |
$flip ? : |
|
242
|
0 |
3 |
$flip ? : |