File Coverage

blib/lib/File/MMagic/XS.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch	4	6	66.6
condition	1	3	33.3
subroutine	6	6	100.0
pod	1	1	100.0
total	43	47	91.4

package File::MMagic::XS;
use strict;
use warnings;
use XSLoader;

our $VERSION;
our $MAGIC_FILE;

BEGIN
{
    $VERSION = '0.09008';
    XSLoader::load(__PACKAGE__, $VERSION);

    require File::Spec;
    foreach my $path (map { File::Spec->catfile($_, qw(File MMagic magic)) } @INC) {
        if (-f $path) {
            $MAGIC_FILE = $path;
            last;
        }
    }
}

sub import
{
    my $class = shift;

    for(my $idx = 0; $idx < @_; $idx++) {
        if ($_[$idx] eq ':compat') {
            *checktype_filename   = \&get_mime;
            *checktype_filehandle = \&fhmagic;
            *checktype_contents   = \&bufmagic;
            *addMagicEntry        = \&add_magic;

            splice(@_, $idx, 1) and last;
        }
    }

    $class->SUPER::import(@_);
}

sub new {
    my ($class, $magic_file) = @_;
    $magic_file ||= $MAGIC_FILE;

    my $self = $class->_create();
    $self->parse_magic_file( $magic_file );
    return $self;
}

1;

__END__