| line |
true |
false |
branch |
|
22
|
25 |
7 |
if $a eq 'DateTime::Duration' |
|
28
|
0 |
69 |
@_ == 1 && ref $_[0] eq 'HASH' ? : |
|
32
|
207 |
345 |
exists $args{$key} ? : |
|
34
|
0 |
69 |
if (%args) |
|
53
|
56 |
31 |
unless $self->{'nanoseconds'} |
|
58
|
6 |
25 |
if $seconds < 0 |
|
74
|
4 |
3 |
if $_[0]->_has_positive |
|
75
|
7 |
2 |
if not $_[0]->_has_positive |
|
76
|
6 |
10 |
&first(sub {
$_ > 0;
}
, values %{$_[0];}) ? : |
|
77
|
6 |
5 |
&first(sub {
$_ < 0;
}
, values %{$_[0];}) ? : |
|
81
|
23 |
1 |
if &first(sub {
$_ != 0;
}
, values %$self) |
|
102
|
12 |
51 |
if ($units{'years'}) |
|
107
|
8 |
55 |
if ($units{'months'}) |
|
111
|
11 |
52 |
if ($units{'weeks'}) |
|
116
|
8 |
55 |
if ($units{'days'}) |
|
120
|
21 |
42 |
if ($units{'hours'}) |
|
125
|
10 |
53 |
if ($units{'minutes'}) |
|
129
|
15 |
48 |
if ($units{'seconds'}) |
|
134
|
8 |
55 |
if ($units{'nanoseconds'}) |
|
138
|
1 |
62 |
wantarray ? : |
|
209
|
7 |
0 |
if &blessed($_[0]) |
|
213
|
0 |
1 |
if $flip |
|
215
|
0 |
1 |
if (_isa_datetime($rhs)) |
|
226
|
0 |
6 |
if $flip |
|
228
|
0 |
6 |
if (_isa_datetime($rhs)) |