File Coverage

blib/lib/File/Find/Rule/TTMETA.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch	16	18	88.8
condition	1	3	33.3
subroutine	6	6	100.0
pod	0	1	0.0
total	54	59	91.5

package File::Find::Rule::TTMETA;

use strict;
use vars qw($VERSION);
use base qw(File::Find::Rule);

use Template::Config;

my $provider;

sub File::Find::Rule::ttmeta {
    my $self = shift->_force_object();
    my $meta = UNIVERSAL::isa($_[0], 'HASH') ? shift : { @_ };

    $self->exec(
        sub {
            my $file = shift;
            my ($doc, $match, $key);
            $match = 0;

            # Optimization
            return $match
                if scalar keys %$meta == 0;

            # warn " *** $file ***\n";

            # Skip directories
            return if -d $file;

            # Set $provider to a Template::Provider instance or workalike
            # $file contains an absolute path
            $provider = Template::Config->provider(ABSOLUTE => 1)
                unless defined $provider;

            # Attempt to turn the file into a Template::Document instance,
            # or return -- it can't match if it isn't a valid Template.
            eval { ($doc) = $provider->fetch($file); };
            return if $@;

            # Bad Things Happened.  Next!
            return unless defined $doc &&
                UNIVERSAL::isa($doc, 'Template::Document');

            # The intent is to match all of the possibilities;
            # if someone specifies:
            #
            #   find(ttmeta => { AUTHOR => 'foo', VERSION => '1.1' })
            #
            # then we only want to return success if all match.
            #
            # To support complex (TT-style foo.bar) variables, $key
            # would need to be split on /\./, and each element treated
            # as either a hash or array entry.  This reimplementing of
            # Template::Stash::_dotop bugs me, though.
            for $key (keys %$meta) {
                my $val = $meta->{$key};

                if (ref $val eq 'Regexp') {
                    $match++ if $doc->$key() =~ $val;
                }
                else {
                    $match++ if $doc->$key() eq $val;
                }
            }

            return $match == scalar keys %$meta;
        }
    );
}

1;

__END__