File Coverage

lib/Perlmazing/Perlmazing/md5_file.pm
Criterion Covered Total %
statement 12 12 100.0
branch 2 4 50.0
condition n/a
subroutine 3 3 100.0
pod 0 1 0.0
total 17 20 85.0


line stmt bran cond sub pod time code
1 1     1   9 use Perlmazing qw(croak slurp);
  1         2  
  1         7  
2 1     1   6 use Digest::MD5;
  1         2  
  1         140  
3              
4             sub main {
5 2     2 0 5 my $file = shift;
6 2 50       6 croak "This function requires a file name as argument." unless defined $file;
7 2 50       34 croak "File '$file' is not a valid file or cannot be read." unless -f $file;
8 2         14 my $ctx = Digest::MD5->new;
9 2         9 $ctx->add(slurp $file);
10 2         23 $ctx->hexdigest;
11             }
12              
13             1;