File Coverage

blib/lib/MIME/Expander/Guess/FileName.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	4	4	100.0
condition	4	5	80.0
subroutine	6	6	100.0
pod	0	1	0.0
total	37	39	94.8

package MIME::Expander::Guess::FileName;

use strict;
use warnings;
use vars qw($VERSION);
$VERSION = '0.01';

use base qw(MIME::Expander::Guess);
use MIME::Type::FileName;

sub type {
    my $class = shift;
    my $ref_contents = shift;
    my $info = shift || {};
    my $name = $info->{filename};

    return undef unless( defined $name );

    my $mime = MIME::Type::FileName::guess($name);

    return undef if( $mime and $mime eq 'application/octet-stream' );

    return $mime;
}

1;
__END__