File Coverage

blib/lib/File/Find/Object/Rule/MMagic.pm

Criterion	Covered	Total	%
statement	34	34	100.0
branch	3	4	75.0
condition			n/a
subroutine	10	10	100.0
pod	0	1	0.0
total	47	49	95.9

# $Id: MMagic.pm 877 2002-10-29 11:16:05Z richardc $
package File::Find::Object::Rule::MMagic;

use strict;
use warnings;

use 5.008;

use File::Find::Object::Rule;
use parent qw( File::Find::Object::Rule );
use vars qw( $VERSION @EXPORT );
@EXPORT  = @File::Find::Object::Rule::EXPORT;
$VERSION = '0.0.4';

use File::MMagic;
use Text::Glob qw(glob_to_regex);

sub File::Find::Object::Rule::magic {
    my $self = shift()->_force_object;
    my @patterns = map { ref $_ ? $_ : glob_to_regex $_ } @_;
    my $mm = new File::MMagic;
    $self->exec( sub {
                     my (undef, undef, $path) = @_;
                     my $type = $mm->checktype_filename($path);
                     for my $pat (@patterns)
                     {
                         return 1 if $type =~ m/$pat/
                     }
                     return;
                 } );
}

1;
__END__