File Coverage

blib/lib/File/Find/Match/Util.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	9	10	90.0
condition			n/a
subroutine	11	11	100.0
pod	3	3	100.0
total	52	53	98.1

package File::Find::Match::Util;
require 5.008;
use strict;
use warnings;
use Carp;
use base 'Exporter';
use File::Basename ();

our $VERSION = '0.10';
our @EXPORT     = qw( );
our @EXPORT_OK  = qw( filename ext wildcard );

sub filename ($) {
    my $basename = shift or croak 'Usage: filename($basename)';

    return sub {
    	croak "filename() predicate passed undef filename!" if not defined $_[0];
        File::Basename::basename($_[0]) eq $basename;
    };
}

sub ext ($) {
	my $ext = shift or croak 'Usage: ext($extension)';

	return sub {
		my $s = shift or croak "predicate ext($ext) called with bad arguments";
		substr($s, rindex($s, '.') + 1) eq $ext;
	};
}

sub wildcard ($) {
	my $pat = shift or croak 'Usage: wildcard($pattern)';
	my $re = quotemeta $pat;
	$re =~ s/\\\*/(.+)/g;
	my $regex = qr/$re/;
	return sub {
		$_[0] =~ $regex;
	};
}


1;
__END__