File Coverage

blib/lib/Path/Tiny/Glob.pm

Criterion	Covered	Total	%
statement	28	30	93.3
branch	3	4	75.0
condition			n/a
subroutine	7	7	100.0
pod	1	1	100.0
total	39	42	92.8

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

use strict;
use warnings;

use Path::Tiny;

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

use parent 'Exporter::Tiny';

our @EXPORT = qw/ pathglob /;

use experimental qw/ signatures postderef /;

sub pathglob( $glob ) {

    # let's figure out which type of path we have
    my( $head, $rest ) = split '/', $glob, 2;

    my $dir;

    if ( $head =~ /^~/ ) {
        $dir = path($head);
        $glob = $rest;
    }
    elsif( $head eq '' ) {
        $dir = Path::Tiny->rootdir;
        $glob = $rest;
    }
    else {
        $dir = path('.');
    }

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

1;

__END__