Branch Coverage

blib/lib/SyslogScan/ParseDate.pm
Criterion Covered Total %
branch 0 22 0.0


line true false branch
31 0 0 unless $date =~ /[^\d]/
33 0 0 if ($date =~ /(\d\d?)\.(\d\d?)\.(\d\d) (\d\d):(\d\d):(\d\d)/)
41 0 0 unless my($engMonth, $mday, $year, $hour, $min, $sec) = $date =~ /(\w\w\w) ?(\d\d?)( \d\d\d\d)? (\d\d):(\d\d):(\d\d)/
45 0 0 if defined $year
49 0 0 unless defined($mon = $gMonthTable{$engMonth})
52 0 0 unless (defined $year)
55 0 0 if (defined $defaultYear) { }
57 0 0 unless $defaultYear > 1970 and $defaultYear < 2030
69 0 0 if ($candidate - $now > $ONE_MONTH) { }
0 0 elsif ($now - $candidate > $ELEVEN_MONTH) { }
84 0 0 if $parsedDate == -1