| line |
true |
false |
branch |
|
29
|
7 |
1 |
if (defined $args{'hour'}) { } |
|
31
|
0 |
7 |
unless $args{'hour'} == int $args{'hour'} |
|
33
|
1 |
6 |
unless $args{'hour'} >= 0 and $args{'hour'} <= 23 |
|
38
|
6 |
0 |
if (defined $args{'minute'}) { } |
|
40
|
0 |
6 |
unless $args{'minute'} == int $args{'minute'} |
|
42
|
0 |
6 |
unless $args{'minute'} >= 0 and $args{'minute'} <= 59 |
|
47
|
6 |
0 |
if (defined $args{'second'}) { } |
|
49
|
0 |
6 |
unless $args{'second'} == int $args{'second'} |
|
51
|
0 |
6 |
unless $args{'second'} >= 0 and $args{'second'} <= 59 |
|
57
|
6 |
0 |
if (defined $args{'nanosecond'}) |
|
59
|
0 |
6 |
unless $args{'nanosecond'} == int $args{'nanosecond'} |
|
61
|
0 |
6 |
unless $args{'nanosecond'} >= 0 and $args{'nanosecond'} <= 999999999 |
|
65
|
1 |
5 |
if keys %args |
|
75
|
9 |
1 |
if (defined $args{'float'}) { } |
|
77
|
2 |
7 |
unless $tod >= 0 and $tod < 86400 |
|
83
|
1 |
6 |
if keys %args |
|
93
|
4 |
0 |
if (defined $args{'hms'}) { } |
|
95
|
0 |
4 |
unless $hms =~ /\A([0-9]{1,2}):([0-9]{1,2})(?::([0-9]{1,2})(\.[0-9]{1,9})?)?\z/ |
|
97
|
3 |
1 |
defined $3 ? : |
|
|
1 |
3 |
defined $4 ? : |
|
105
|
0 |
4 |
if keys %args |
|
115
|
2 |
2 |
$utc ? : |
|
118
|
2 |
2 |
$utc ? : |
|
207
|
1 |
15 |
if ($nanosecond) { } |
|
208
|
0 |
1 |
$second < 10 ? : |
|
224
|
4 |
1 |
ref $_[0] ? : |
|
227
|
0 |
5 |
unless ($tod1->can('float') and $tod2->can('float')) |
|
236
|
0 |
1 |
$flip ? : |
|
241
|
0 |
3 |
$flip ? : |