Branch Coverage

blib/lib/DateTimeX/Lite/Duration.pm
Criterion Covered Total %
branch 55 60 91.6


line true false branch
27 25003 9789 unless defined $p{$field}
55 38 4311 if ($p{'nanoseconds'}) { }
66 116 4220 $$self{'months'} < 0 ? :
13 4336 defined $p{'end_of_month'} ? :
84 2 44 if $$self{'nanoseconds'} == 9**9**9 or $$self{'nanoseconds'} == -9**9**9 or $$self{'nanoseconds'} eq sin(9**9**9)
92 13 31 if $seconds < 0
106 5 3 if $_[0]->_has_positive
107 8 2 if not $_[0]->_has_positive
109 7 11 grep({$_ > 0;} @{$_[0];}{@all_units}) ? :
110 7 6 grep({$_ < 0;} @{$_[0];}{@all_units}) ? :
112 6327 3 if grep {$_ != 0;} @{$_[0];}{@all_units}
138 12 52 if ($units{'years'})
144 8 56 if ($units{'months'})
149 11 53 if ($units{'weeks'})
155 8 56 if ($units{'days'})
160 21 43 if ($units{'hours'})
166 11 53 if ($units{'minutes'})
171 16 48 if ($units{'seconds'})
177 8 56 if ($units{'nanoseconds'})
182 2 62 wantarray ? :
185 444 132 $_[0]{'end_of_month'} eq 'wrap' ? :
186 3 0 $_[0]{'end_of_month'} eq 'limit' ? :
187 263 888 $_[0]{'end_of_month'} eq 'preserve' ? :
216 1305 5145 if $new{$u}
231 8 7 if $$self{'nanoseconds'}
262 1 2 if $$self{'nanoseconds'}
281 0 1 if $rev
283 0 1 if (blessed $d2 and $d2->isa('DateTimeX::Lite'))
297 0 6 if $rev
299 0 6 if blessed $d2 and $d2->isa('DateTimeX::Lite')