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
Directory::Scratch
_END_

    map { my ($pk, $vr) = split m/\s/; requires $pk => $vr || 0 } grep { ! /^\s*#/ } split m/\n/, <<_END_;
Carp::Clan::Share
Moose
MooseX::AttributeHelpers
Path::Abstract
Path::Class
Scalar::Util
_END_
}

if (-e 'inc/.author') {
    my $all_from = join '/', 'lib', split m/-/, name . '.pm';
    `perldoc -tF $all_from > README` if ! -e 'README' || (stat $all_from)[9] > (stat 'README')[9];
}

WriteAll;

lib/Directory/Deploy/Manifest.pm  view on Meta::CPAN

    s/^\s*//, s/\s*$// for $path;
    $self->add( path => $path, content_source => $content_source );
} };
sub include {
    my $self = shift;
    if (1 == @_ || ref $_[0] eq 'SCALAR') {
        my $parse = shift;
        croak "More than one argument passed to include" if @_;
        my $parser = $self->include_parser;
        $parse = $$parse if ref $_[0] eq 'SCALAR';
        $parser->( $self, $_ ) for split m/\n/, $parse;
    }
    else {
        while (@_) {
            my $path = shift;
            my $value = shift;
            $self->add( $path => (ref $value eq 'HASH' ? %$value : $value) );
        }
    }
}

lib/Directory/Deploy/Manifest.pm  view on Meta::CPAN

#            my $comment = delete $entry{comment};
#            $self->add(path => $_, comment => $comment, stash => { %entry });
#        }
#    }
#}

#sub _include_list {
#    my $self = shift;
#    my $list = shift;

#    for (split m/\n/, $list) {
#        $self->parser->($self);
#    }
#}


package Directory::Deploy::Manifest::File;

use Moose;

with qw/Directory::Deploy::Manifest::DoesEntry/;