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   101636 use strict;
  6         12  
  6         246  
4 6     6   31 use warnings;
  6         9  
  6         214  
5 6     6   30 use vars qw($VERSION);
  6         10  
  6         709  
6             $VERSION = '0.02';
7              
8             sub type {
9 1     1 0 20 my $class = shift;
10 1         4 my $ref_contents = shift;
11 1   50     10 my $info = shift || {};
12 1         10 return 'application/octet-stream';
13             }
14              
15              
16             1;
17             __END__