Branch Coverage

blib/lib/Time/Ago.pm
Criterion Covered Total %
branch 43 50 86.0


line true false branch
38 0 0 ref $val eq 'ARRAY' ? :
99 0 134 unless my $string_id = shift()
102 0 134 unless my $sub = $locale{$string_id}
114 134 0 @_ % 2 ? :
116 0 134 unless defined $args{'duration'}
119 2 132 if (&blessed($duration))
120 1 1 if ($duration->can('epoch')) { }
1 0 elsif ($duration->can('delta_months')) { }
140 103 31 if ($mins <= 1)
141 91 12 unless ($args{'include_seconds'})
142 31 60 $mins == 0 ? :
148 2 10 if $secs <= 4
149 2 8 if $secs <= 9
150 2 6 if $secs <= 19
151 2 4 if $secs <= 39
152 2 2 if $secs <= 59
156 4 27 if $mins <= 44
157 2 25 if $mins <= 89
160 2 23 if ($mins <= 1439)
165 2 21 if $mins <= 2519
168 2 19 if $mins <= 43199
171 4 15 if ($mins <= 86399)
176 2 13 if ($mins <= 525600)
185 4 9 if ($remainder < 131400)
189 4 5 if ($remainder < 394200)