| line |
true |
false |
branch |
|
27
|
8 |
0 |
if ($xs_duration =~ /^(-)?
P
((\d+)Y)?
((\d+)M)?
((\d+)D)?
(
T
((\d+)H)?
((\d+)M)?
(((\d+)(\.(\d+))?)S)?
)?
$/x) { } |
|
42
|
0 |
8 |
unless (grep {defined $_;} $year, $mounth, $day, $hour, $min, $sec) |
|
48
|
4 |
4 |
$fsec ? : |
|
57
|
4 |
4 |
defined $neg ? : |
|
64
|
4 |
0 |
if (exists $deltas{'seconds'} or exists $deltas{'nanoseconds'}) |
|
65
|
4 |
0 |
exists $deltas{'nanoseconds'} ? : |
|
68
|
2 |
2 |
$deltas{'negative'} ? : |
|
69
|
4 |
0 |
if exists $deltas{'years'} |
|
70
|
4 |
0 |
if exists $deltas{'months'} |
|
71
|
4 |
0 |
if exists $deltas{'days'} |
|
72
|
4 |
0 |
if grep {exists $deltas{$_};} 'hours', 'minutes', 'seconds' |
|
73
|
4 |
0 |
if exists $deltas{'hours'} |
|
74
|
4 |
0 |
if exists $deltas{'minutes'} |
|
75
|
4 |
0 |
if exists $deltas{'seconds'} |