Branch Coverage

blib/lib/Media/DateTime/JPEG.pm
Criterion Covered Total %
branch 8 10 80.0


line true false branch
20 2 6 unless $exifTool
21 2 6 unless ($exifTool->ExtractInfo($f))
27 2 4 unless (my $datetime = $exifTool->GetValue('DateTimeOriginal'))
43 0 4 unless (my($y, $m, $d, $h, $min, $s) = $datetime =~ / (\d{4}) : # year (\d{2}) : # month (\d{2}) # day \s # space (\d{2}) : # hour (\d{2}) : # min (\d{2}) # sec /x)
60 2 0 if (/to DateTime::new did not pass/) { }