Branch Coverage

blib/lib/Time/D.pm
Criterion Covered Total %
branch 92 150 61.3


line true false branch
20 0 9 if @_ < 2
0 9 if @_ > 3
3 6 if @_ < 2
24 0 195 if @_ < 3
0 195 if @_ > 3
27 1 14 if defined $new
32 0 10 if @_ < 3
0 10 if @_ > 3
40 3 7 if ($diff{'sign'} eq '-') { }
47 0 10 if defined $new
54 0 79 if @_ < 1
0 79 if @_ > 2
57 0 79 if defined $new_base
63 0 116 if @_ < 1
0 116 if @_ > 2
66 1 115 if defined $new_comp
72 0 4 if @_ < 1
0 4 if @_ > 2
81 0 4 if ($_[0] ne '+' and $_[0] ne '-')
83 4 0 if ($_[0] ne $sign)
85 0 4 if defined $new_sign
89 0 4 if defined $new_sign
95 0 3 if @_ < 1
0 3 if @_ > 2
98 0 3 if defined $new_years
104 0 2 if @_ < 1
0 2 if @_ > 2
107 0 2 if defined $new_months
113 0 0 if @_ < 1
0 0 if @_ > 2
116 0 0 if defined $new_weeks
122 0 1 if @_ < 1
0 1 if @_ > 2
125 0 1 if defined $new_days
131 0 2 if @_ < 1
0 2 if @_ > 2
134 0 2 if defined $new_hours
140 0 1 if @_ < 1
0 1 if @_ > 2
143 0 1 if defined $new_minutes
149 0 1 if @_ < 1
0 1 if @_ > 2
152 0 1 if defined $new_seconds
159 0 37 if @_ < 1
0 37 if @_ > 1
163 15 22 $d->base > $d->comp ? :
167 0 37 if ($sign eq '+' and $bt->epoch > $ct->epoch) { }
0 59 elsif ($sign eq '-' and $bt->epoch < $ct->epoch) { }
172 0 37 if ($sign eq '+' and $bt->epoch > $ct->epoch) { }
0 59 elsif ($sign eq '-' and $bt->epoch < $ct->epoch) { }
177 0 37 if ($sign eq '+' and $bt->epoch > $ct->epoch) { }
0 59 elsif ($sign eq '-' and $bt->epoch < $ct->epoch) { }
182 1 36 if ($sign eq '+' and $bt->epoch > $ct->epoch) { }
5 52 elsif ($sign eq '-' and $bt->epoch < $ct->epoch) { }
187 0 37 if ($sign eq '+' and $bt->epoch > $ct->epoch) { }
0 59 elsif ($sign eq '-' and $bt->epoch < $ct->epoch) { }
192 0 37 if ($sign eq '+' and $bt->epoch > $ct->epoch) { }
0 59 elsif ($sign eq '-' and $bt->epoch < $ct->epoch) { }
197 15 22 if ($sign eq '-')
205 0 74 if @_ < 3
0 74 if @_ > 3
26 48 $num == 1 ? :
208 0 22 if @_ < 1
0 22 if @_ > 2
3 19 if @_ < 1
214 14 8 if ($precision > 0 and $years)
215 13 9 if ($precision > 0 and $months)
216 5 17 if ($precision > 0 and $weeks)
217 13 9 if ($precision > 0 and $days)
218 11 11 if ($precision > 0 and $hours)
219 12 10 if ($precision > 0 and $minutes)
220 6 16 if ($precision > 0 and $seconds)
222 2 20 unless @out
224 18 2 if (@out > 1)
228 10 10 $sign eq '+' ? :