| line |
true |
false |
branch |
|
28
|
7 |
1 |
if (defined $args{'hour'}) { } |
|
30
|
0 |
7 |
unless $args{'hour'} == int $args{'hour'} |
|
32
|
1 |
6 |
unless $args{'hour'} >= 0 and $args{'hour'} <= 23 |
|
37
|
6 |
0 |
if (defined $args{'minute'}) { } |
|
39
|
0 |
6 |
unless $args{'minute'} == int $args{'minute'} |
|
41
|
0 |
6 |
unless $args{'minute'} >= 0 and $args{'minute'} <= 59 |
|
46
|
6 |
0 |
if (defined $args{'second'}) { } |
|
48
|
0 |
6 |
unless $args{'second'} == int $args{'second'} |
|
50
|
0 |
6 |
unless $args{'second'} >= 0 and $args{'second'} <= 59 |
|
56
|
6 |
0 |
if (defined $args{'nanosecond'}) |
|
58
|
0 |
6 |
unless $args{'nanosecond'} == int $args{'nanosecond'} |
|
60
|
0 |
6 |
unless $args{'nanosecond'} >= 0 and $args{'nanosecond'} <= 999999999 |
|
64
|
1 |
5 |
if keys %args |
|
74
|
9 |
1 |
if (defined $args{'float'}) { } |
|
76
|
2 |
7 |
unless $tod >= 0 and $tod < 86400 |
|
82
|
1 |
6 |
if keys %args |
|
92
|
4 |
0 |
if (defined $args{'hms'}) { } |
|
94
|
0 |
4 |
unless $hms =~ /\A([0-9]{1,2}):([0-9]{1,2})(?::([0-9]{1,2})(\.[0-9]{1,9})?)?\z/ |
|
96
|
3 |
1 |
defined $3 ? : |
|
|
1 |
3 |
defined $4 ? : |
|
104
|
0 |
4 |
if keys %args |
|
114
|
2 |
2 |
$utc ? : |
|
117
|
2 |
2 |
$utc ? : |
|
206
|
1 |
15 |
if ($nanosecond) { } |
|
207
|
0 |
1 |
$second < 10 ? : |
|
223
|
4 |
1 |
ref $_[0] ? : |
|
226
|
0 |
5 |
unless ($tod1->can('float') and $tod2->can('float')) |
|
235
|
0 |
1 |
$flip ? : |
|
240
|
0 |
3 |
$flip ? : |