File Coverage

blib/lib/File/Find/Object/Base.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	33	33	100.0

package File::Find::Object::Base;
$File::Find::Object::Base::VERSION = '0.3.9';
use strict;
use warnings;
use integer;

# TODO :
# _last_dir_scanned should be defined only for ::PathComp , but we should
# add a regression test to test it.
#

use Class::XSAccessor accessors => {
    (
        map { $_ => $_ } (
            qw(
                _last_dir_scanned
            )
        )
    )
};

# Create a _copy method that does a flat copy of an array returned by
# a method as a reference.

sub _make_copy_methods
{
    my ( $pkg, $methods ) = @_;

    ## no critic
    no strict 'refs';
    foreach my $method (@$methods)
    {
        *{ $pkg . "::" . $method . "_copy" } = do
        {
            my $m = $method;
            sub {
                my $self = shift;
                return [ @{ $self->$m(@_) } ];
            };
        };
    }
    ## use critic
    return;
}

1;

__END__