File Coverage

testout/t1000files_probe.pl
Criterion Covered Total %
statement 11 11 100.0
branch 2 4 50.0
condition n/a
subroutine 2 2 100.0
pod n/a
total 15 17 88.2


line stmt bran cond sub pod time code
1             #!perl
2 1     1   6770 use Imager;
  1         3  
  1         6  
3 1     1   7 use strict;
  1         2  
  1         5266  
4 1 50       164857 my $file = shift or die "No file supplied";
5 1 50       61 open FH, "< $file" or die "Cannot open file: $!";
6 1         5 binmode FH;
7 1         64 my $io = Imager::io_new_fd(fileno(FH));
8 1         176 Imager::i_test_format_probe($io, -1);