File Coverage

blib/lib/File/Wildcard/Find.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod	3	3	100.0
total	32	32	100.0

package File::Wildcard::Find;
use strict;

BEGIN {
    use Exporter ();
    use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $finder);
    $VERSION     = '0.01';
    @ISA         = qw(Exporter);
    @EXPORT      = qw(findbegin findnext findall);
    @EXPORT_OK   = qw(findbegin findnext findall $finder);
    %EXPORT_TAGS = ( all => \@EXPORT_OK );
}

use File::Wildcard;

sub findbegin {
    $finder = File::Wildcard->new( path => shift );
}

sub findnext {
    $finder->next;
}

sub findall {
    my $allfinder = File::Wildcard->new( path => shift );
    $allfinder->all;
}

1;
__END__