Branch Coverage

blib/lib/Date/Period/Human.pm
Criterion Covered Total %
branch 47 74 63.5


line true false branch
156 63 6 if ($mysql_date and $mysql_date =~ /^(\d{4})-(\d{2})-(\d{2})\s(\d{2}):(\d{2}):(\d{2})$/)
166 48 63 if (ref $date)
170 1 62 if ($date =~ /^\d+$/o)
190 110 1 ref $self->{'today_and_now'} eq 'ARRAY' ? :
192 1 110 unless (@now)
198 3 108 if ($Dy == 1) { }
1 107 elsif ($Dy > 1) { }
4 103 elsif ($DM == 1) { }
0 103 elsif ($DM > 1) { }
10 93 elsif ($Dd >= 7) { }
7 86 elsif ($Dd > 1) { }
7 79 elsif ($Dd == 1) { }
21 58 elsif ($Dd == 0 and $Dh >= 1) { }
35 23 elsif ($Dd == 0 and $Dh == 0 and $Dm > 0) { }
7 16 elsif ($Dd == 0 and $Dh == 0 and $Dm == 0 and $Ds > 5) { }
0 16 elsif ($Dy == 0 and $DM < -12) { }
0 16 elsif ($Dy < 0) { }
0 16 elsif ($DM < 0) { }
2 14 elsif ($Dd <= -2) { }
0 14 elsif ($Dd == -1) { }
0 14 elsif ($Dd == 0 and $Dh <= -1) { }
0 14 elsif ($Dd == 0 and $Dh == 0 and $Dm < 0) { }
0 14 elsif ($Dd == 0 and $Dh == 0 and $Dm == 0 and $Ds < -5) { }
211 7 3 if (int $Dd / 7 == 1)
214 3 0 if (int $Dd / 7 > 1)
228 14 21 if ($Dm == 1)
239 0 0 if (abs int $DM / 12 == 1)
244 0 0 if ($Dy == -1) { }
245 0 0 if ($DM < 0)
250 0 0 if ($DM < 0)
257 0 0 if ($DM == -1)
263 0 2 if (abs $Dd / 7 == 1) { }
0 2 elsif ($Dd % 7 == 0) { }
272 0 0 if ($Dh < 0)
278 0 0 if ($Dh == -1)
284 0 0 if ($Dm == -1)
303 76 35 if $phrase =~ /%/