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   25865 use strict;
  4         9  
  4         150  
4 4     4   20 use warnings;
  4         8  
  4         123  
5 4     4   20 use vars qw($VERSION);
  4         7  
  4         240  
6             $VERSION = '0.01';
7              
8 4     4   847 use parent qw(MIME::Expander::Guess);
  4         285  
  4         30  
9 4     4   5424 use File::MMagic;
  4         100705  
  4         577  
10              
11             sub type {
12 47     47 0 53257 my $class = shift;
13 47         99 my $ref_contents = shift;
14 47   100     188 my $info = shift || {};
15 47         492 my $data = substr($$ref_contents, 0, 0x8564);
16 47         464 return File::MMagic->new->checktype_contents($data);
17             }
18              
19             1;
20             __END__