File Coverage

blib/lib/MIME/Expander/Guess/MMagic.pm
Criterion Covered Total %
statement 20 20 100.0
branch n/a
condition 2 2 100.0
subroutine 6 6 100.0
pod 0 1 0.0
total 28 29 96.5


line stmt bran cond sub pod time code
1             package MIME::Expander::Guess::MMagic;
2              
3 4     4   78260 use strict;
  4         9  
  4         165  
4 4     4   20 use warnings;
  4         5  
  4         137  
5 4     4   19 use vars qw($VERSION);
  4         703  
  4         293  
6             $VERSION = '0.02';
7              
8 4     4   5822 use parent qw(MIME::Expander::Guess);
  4         485  
  4         27  
9 4     4   3149 use File::MMagic;
  4         84067  
  4         479  
10              
11             sub type {
12 54     54 0 80470 my $class = shift;
13 54         82 my $ref_contents = shift;
14 54   100     185 my $info = shift || {};
15 54         306 my $data = substr($$ref_contents, 0, 0x8564);
16 54         328 return File::MMagic->new->checktype_contents($data);
17             }
18              
19             1;
20             __END__