File Coverage

blib/lib/MIME/Expander/Guess.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition 1 2 50.0
subroutine 4 4 100.0
pod 0 1 0.0
total 18 20 90.0


line stmt bran cond sub pod time code
1             package MIME::Expander::Guess;
2              
3 6     6   41930 use strict;
  6         10  
  6         219  
4 6     6   31 use warnings;
  6         12  
  6         169  
5 6     6   33 use vars qw($VERSION);
  6         11  
  6         793  
6             $VERSION = '0.01';
7              
8             sub type {
9 1     1 0 15 my $class = shift;
10 1         3 my $ref_contents = shift;
11 1   50     10 my $info = shift || {};
12 1         8 return 'application/octet-stream';
13             }
14              
15              
16             1;
17             __END__