view release on metacpan or  search on metacpan

lib/Minilla/FileGatherer.pm  view on Meta::CPAN

            @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;
    }