view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

    my $libscan = \&{"ExtUtils::MM_Any::libscan"};
    *{"ExtUtils::MM_Any::libscan"} = sub {
        return '' unless $libscan->(@_);
        return '' if $_[1] =~ /\.sw[p-z]$/;
        return $_[1];
    };
}

{
    map { my ($pk, $vr) = split m/\s/; build_requires $pk => $vr || 0 } grep { ! /^\s*#/ } split m/\n/, <<_END_;
Test::Most
_END_

    map { my ($pk, $vr) = split m/\s/; requires $pk => $vr || 0 } grep { ! /^\s*#/ } split m/\n/, <<_END_;
Carp::Clan
Class::Inspector
Module::Pluggable 3.8
Devel::InnerPackage
List::MoreUtils
Moose
Scalar::Util
_END_
}

lib/MooseX/MakeImmutable/Finder.pm  view on Meta::CPAN

sub BUILD {
    my $self = shift;
    my $given = shift;

    $self->{exclude} = [ $self->{exclude} ] if $self->{exclude} && ref $self->{exclude} ne "ARRAY";

    my $manifest = $given->{manifest};
    my (@manifest, @recursive_manifest, @search_manifest);

    for my $package (split m/\n+/, $manifest) {
        chomp $package;
        $package =~ s/^\s*//;
        $package =~ s/\s*$//;
        next unless $package;
        next if $package =~ m/^#/;

        if ($package =~ s/::\*$//) {
            push @search_manifest, $package;
            next;
        }