File Coverage

blib/lib/Minilla/FileGatherer.pm

Criterion	Covered	Total	%
statement	27	62	43.5
branch	0	14	0.0
condition			n/a
subroutine	9	12	75.0
pod	0	1	0.0
total	36	89	40.4

package Minilla::FileGatherer;
use strict;
use warnings;
use utf8;
use File::pushd;
use File::Spec;
use ExtUtils::Manifest 1.54 qw(maniskip);

use Minilla::Git;

use Moo;

has exclude_match => (
    is => 'ro',
    default => sub { +[ ] },
);

has include_dotfiles => (
    is => 'ro',
    default => sub { undef },
);

no Moo;

sub gather_files {
    my ($self, $root) = @_;
    my $guard = pushd($root);
    my @files = grep { _topdir($_) ne 'extlib' }
                grep { not -l $_ }
                map { File::Spec->abs2rel($_, $root) }
                git_ls_files(), git_submodule_files();
    if ($self->exclude_match) {
        for my $pattern (@{$self->exclude_match || []}) {
            @files = grep { _normalize($_) !~ $pattern } @files;
        }
    }

    if (-f 'MANIFEST.SKIP') {
        my $skip = maniskip('MANIFEST.SKIP') ;
        @files = grep { !$skip->($_) } @files;
    }
    unless ($self->include_dotfiles) {
        @files = grep {
            !(grep { $_ =~ qr/^\./ } split m!/!, _normalize($_))
        } @files;
    }
    if ($^O eq 'MSWin32') {
        @files = map {
            my $x = $_;
            $x =~ s!\\!/!g;
            $x;
        } @files;
    }

    my @submodules = git_submodules;
    if (@submodules) {
        for my $filename (@submodules) {
            @files = grep { $_ ne $filename } @files;
        }
    }

    return @files;
}

sub _topdir {
    my ($path) = @_;
    [File::Spec->splitdir($path)]->[0] || '';
}

# for Windows
sub _normalize {
    local $_ = shift;
    s!\\!/!g;
    $_;
}

1;