File Coverage

blib/lib/Module/Setup/Path/Base.pm

Criterion	Covered	Total	%
statement	35	35	100.0
branch	10	10	100.0
condition			n/a
subroutine	12	12	100.0
pod	0	7	0.0
total	57	64	89.0

package Module::Setup::Path::Base;
use strict;
use warnings;

use File::Find::Rule;

use Module::Setup::Path::Dir;
use Module::Setup::Path::File;

sub new {
    my($class, @path) = @_;

    my $self = bless {
        base   => Module::Setup::Path::Dir->new(@path),
        path   => Module::Setup::Path::Dir->new(@path),
    }, $class;

    $self;
}

sub path      { shift->{path} }
sub is_dir    { -d shift->{path} }
sub is_exists { -e shift->{path} }
sub is_file   { -f shift->{path} }

sub path_to {
    my($self, @to) = @_;
    my $path = Module::Setup::Path::Dir->new($self->path, @to);
    $path    = Module::Setup::Path::File->new($self->path, @to) unless -d $path;
    $path;
}

sub find_files {
    my $self = shift;
    return unless $self->path->children;
    map {
        my $path = Path::Class::Dir->new($self->path, $_);
        my $ret;
        if (-d $path) {
            $ret = Module::Setup::Path::Dir->new($_) unless $path->children;
        } else {
            $ret = Module::Setup::Path::File->new($_);
        }
        $ret ? $ret : ();
    } File::Find::Rule->new->relative->in( $self->path );
}

1;