File Coverage

blib/lib/Path/Tiny/Glob.pm

Criterion	Covered	Total	%
statement	41	42	97.6
branch	10	12	83.3
condition	2	3	66.6
subroutine	10	10	100.0
pod	1	1	100.0
total	64	68	94.1

package Path::Tiny::Glob;
our $AUTHORITY = 'cpan:YANICK';
# ABSTRACT: File globbing utility
$Path::Tiny::Glob::VERSION = '0.2.0';

use strict;
use warnings;

use Path::Tiny;

use Path::Tiny::Glob::Visitor;

use parent 'Exporter::Tiny';

our @EXPORT = qw/ pathglob /;
our @EXPORT_OK = qw/ is_globby /;

use experimental qw/ signatures postderef /;

sub _generate_pathglob {
    my( $class, undef, $args ) = @_;

    return sub(@) { return _pathglob(@_)->all }
        if $args && $args->{all};

    return \&_pathglob;
}

sub _pathglob( $glob ) {

    my @glob = ref $glob eq 'ARRAY' ? @$glob : ($glob);

    @glob = map {
        ref ? $_ : split '/', $_, -1;
    } @glob;

    my $dir;

    if ( $glob[0] =~ /^~/ ) {
        $dir = path(shift @glob);
    }
    elsif( $glob[0] eq '' ) {
        $dir = Path::Tiny->rootdir;
        shift @glob;
    }
    else {
        $dir = path('.');
    }

    unless( ref $glob[-1] ) {

    }

    return Path::Tiny::Glob::Visitor->new(
        path => $dir,
        globs => [ \@glob ],
    )->as_list;
}

sub is_globby($string) {
    return $string =~ /[?*]/;
}

1;

__END__