| line |
true |
false |
branch |
|
104
|
5 |
6 |
unless defined $args{'seconds'} |
|
109
|
13 |
42 |
if (defined $args{$_}) |
|
111
|
13 |
0 |
if ($args{$_} =~ /-?[0-9]+$/) { } |
|
112
|
6 |
7 |
if ($args{$_} < 0) |
|
117
|
7 |
6 |
unless ($_ eq "seconds") |
|
126
|
2 |
9 |
if (defined $args{'sign'}) |
|
129
|
2 |
0 |
if ($args{'sign'} =~ /[+-]/) { } |
|
131
|
0 |
2 |
$args{'sign'} eq '+' ? : |
|
132
|
0 |
2 |
$args{'sign'} eq '+' ? : |
|
143
|
1 |
10 |
if ($seconds_only) { } |
|
|
4 |
6 |
elsif (defined $args{'ical'}) { } |
|
|
6 |
0 |
elsif (not $seconds_only) { } |
|
155
|
1 |
10 |
unless %args |
|
186
|
2 |
3 |
unless $w |
|
197
|
0 |
4 |
unless $d |
|
207
|
0 |
4 |
unless $h |
|
218
|
0 |
4 |
unless $m |
|
229
|
0 |
4 |
unless $s |
|
298
|
7 |
0 |
if (my $ar_hms = $self->_hms) |
|
305
|
5 |
2 |
if (defined $ar_wd) |
|
307
|
2 |
3 |
if ($weeks and $days) { } |
|
|
0 |
3 |
elsif ($weeks) { } |
|
317
|
2 |
5 |
$self->{'sign'} < 0 ? : |
|
324
|
6 |
1 |
!($value =~ /PT?$/) ? : |
|
425
|
0 |
7 |
unless (defined $magic) |
|
432
|
0 |
7 |
$sign_str eq '-' ? : |
|
466
|
2 |
8 |
defined $sign && $sign eq '-' ? : |
|
468
|
7 |
3 |
if (defined $weeks or defined $days) |
|
472
|
4 |
1 |
if (defined $hours or defined $minutes or defined $seconds) |
|
490
|
0 |
1 |
$seconds < 0 ? : |
|
516
|
9 |
20 |
if (defined $hms_arrayref) |
|
523
|
29 |
0 |
if (defined $nsecs) { } |
|
549
|
7 |
20 |
if (defined $wd_arrayref) |
|
557
|
25 |
2 |
if (defined(my $ndays = $self->{'ndays'})) { } |