File-Wildcard

 view release on metacpan or  search on metacpan

lib/File/Wildcard.pm  view on Meta::CPAN

sub _split_path {
    my $self = shift;

    my ( $path, $abs, $follow ) = validate_pos( @_, 0, 0, 0 );

    return ( $path, $abs, $follow ) if !defined($path) || ref $path;

    $path =~ s!//!/!g;
    $abs = $path =~ s!^/!!;
    $path =~ s!^\./!/!;
    my @out = split m(/), $path, -1;    #/ (syntax highlighting)
    shift @out if $out[0]  eq '';
    pop @out   if $out[-1] eq '';

    ( \@out, $abs, $follow );
}

sub _set_state {
    my $self = shift;

    my %par = validate(

t/01_basic.t  view on Meta::CPAN

    #02
    isa_ok( $mods, 'File::Wildcard', "return from new" );

    #03
    like( $mods->next, qr'lib/File/Wildcard.pm'i,
        'Simple case, no wildcard' );

    #04
    ok( !$mods->next, 'Only found one file' );

    my @dirs = split m'/', 'lib/File/Wildcard.*';

    $mods = File::Wildcard->new(
        path             => \@dirs,
        absolute         => 0,
        case_insensitive => $insens,
        debug_output     => $dbf,
        debug            => $debug
    );

    #05

t/02_derived.t  view on Meta::CPAN

    \@found,
    [   [qw( blib/lib/file/wildcard.pm blib/lib/file/wildcard.tmp )],
        [qw( blib/lib/file/wildcard/find.pm blib/lib/file/wildcard/find.tmp)],
        [qw( lib/file/wildcard.pm lib/file/wildcard.tmp)],
        [qw( lib/file/wildcard/find.pm lib/file/wildcard/find.tmp)],
    ],
    'Returned expected derived list'
);

$mods = File::Wildcard->new(
    path   => [ split m'/', 'lib/File/Wild????.*' ],
    derive => ['Playing$1.$2'],
    debug  => $debug
);

#04
isa_ok( $mods, 'File::Wildcard', "return from new" );

@found = map { lc $_ } @{ $mods->next };

#05

t/03_absolute.t  view on Meta::CPAN

#02
isa_ok( $mods, 'File::Wildcard', "return from new" );

#03
like( $mods->next, qr"$temp/abs/foo/lish.tmp"i, 'Simple case, no wildcard' );

#04
ok( !$mods->next, 'Only found one file' );

my ( $junk, @chunks ) = split m'/', "$temp/abs/*/*.tmp";

$mods = File::Wildcard->new(
    path             => \@chunks,
    case_insensitive => $sens,
    debug            => $debug,
    absolute         => 1,
    sort             => 1
);

#05