Branch Coverage

blib/lib/Image/Size.pm
Criterion Covered Total %
branch 43 128 33.5


line true false branch
143 1 18 if (ref $stream eq 'SCALAR') { }
2 16 elsif (ref $stream) { }
173 16 0 unless ($Image::Size::NO_CACHE)
178 16 0 unless ('File::Spec'->file_name_is_absolute($stream))
183 0 16 if (-e "$stream" and exists $Image::Size::CACHE{$stream})
188 0 0 if ($mtime <= $list[0])
200 1 15 unless (open $handle, '<', $stream)
222 18 83 if ($header =~ /$Image::Size::TYPE_MAP[$tm_idx]/)
232 15 3 unless ($Image::Size::NO_CACHE or ref $stream or not defined $x)
239 2 16 if ($need_restore)
244 15 3 if ($need_close)
249 0 18 unless (defined $id)
251 0 0 if ($file_name) { }
263 18 0 wantarray ? :
273 0 0 if (exists $INC{'Graphics/Magick.pm'}) { }
0 0 elsif (exists $INC{'Image/Magick.pm'}) { }
0 0 elsif (_load_magick_module('Graphics::Magick')) { }
0 0 elsif (_load_magick_module('Image::Magick')) { }
291 0 0 if ($module_name) { }
297 0 0 if ("$x") { }
317 0 0 $retval ? :
327 1 0 defined $args[0] ? :
337 1 0 defined $args[0] ? :
347 0 0 if (ref $stream eq 'SCALAR')
384 0 0 if (img_eof($stream))
390 0 0 if ord $lbuf == 0
395 0 5 if ($Image::Size::GIF_BEHAVIOR > 2)
403 0 5 if (length($buf = &$Image::Size::READ_IN($stream, 7)) != 7)
408 5 0 if ($Image::Size::GIF_BEHAVIOR == 0)
413 0 0 if ($x & 128)
416 0 0 unless (&$Image::Size::READ_IN($stream, $cmapsize))
430 0 0 if (img_eof($stream))
436 0 0 if ($sw and $sh) { }
448 0 0 if ($x == 44)
451 0 0 if (length($buf = &$Image::Size::READ_IN($stream, 8)) != 8)
457 0 0 if $Image::Size::GIF_BEHAVIOR == 1
458 0 0 if ($x > $sw and $y > $sh)
464 0 0 if ($x == 33) { }
469 0 0 if ($x == 249) { }
0 0 elsif ($x == 254) { }
0 0 elsif ($x == 1) { }
0 0 elsif ($x == 255) { }
518 1 0 if ($input =~ /^\#define\s*\S*\s*(\d+)\s*\n\#define\s*\S*\s*(\d+)/xi)
540 1 0 if ($line =~ /"\s*(\d+)\s+(\d+)(\s+\d+\s+\d+){1,2}\s*"/)
564 1 0 if (&$Image::Size::READ_IN($stream, $length, $offset) eq 'IHDR')
588 0 0 if (&$Image::Size::READ_IN($stream, $length, $offset) eq 'MHDR')
635 0 8 if ($marker ne $MARKER) { }
2 6 elsif (ord $code >= $SIZE_FIRST and ord $code <= $SIZE_LAST) { }
674 1 0 if ($header =~ /^(?:P([1-7]))\s+(\d+)\s+(\d+)/)
678 0 1 if ($n == 7) { }
704 1 1 if ($header =~ /II\x2a\x00/o)
740 0 4 if $ifd eq '' or $offset > $num_dirent
745 0 4 if $type > @packspec + 0 or not defined $packspec[$type]
746 2 2 if ($tag == 256) { }
2 0 elsif ($tag == 257) { }
759 2 0 if (defined $x and defined $y) { }
766 0 0 unless (defined $x)
770 0 0 unless (defined $y)
772 0 0 if ($id ne '')
796 1 0 if (defined $x and defined $y)
814 1 0 if (defined $x and defined $y)
852 0 0 if (substr($buffer, 2048, 3) ne 'PCD')
858 0 0 $orient ? :
875 0 1 unless ($retval)