Acme-Blarghy-McBlarghBlargh

 view release on metacpan or  search on metacpan

inc/Module/AutoInstall.pm  view on Meta::CPAN

94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
my @args  = @_ or return;
my $core_all;
 
print "*** $class version " . $class->VERSION . "\n";
print "*** Checking for Perl dependencies...\n";
 
my $cwd = Cwd::cwd();
 
$Config = [];
 
my $maxlen = length(
    (
        sort   { length($b) <=> length($a) }
          grep { /^[^\-]/ }
          map  {
            ref($_)
              ? ( ( ref($_) eq 'HASH' ) ? keys(%$_) : @{$_} )
              : ''
          }
          map { +{@args}->{$_} }
          grep { /^[^\-]/ or /^-core$/i } keys %{ +{@args} }
    )[0]
);

inc/Module/Install.pm  view on Meta::CPAN

341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
        close FH or die "close($_[0]): $!";
}
 
# _version is for processing module versions (eg, 1.03_05) not
# Perl versions (eg, 5.8.1).
 
sub _version ($) {
        my $s = shift || 0;
           $s =~ s/^(\d+)\.?//;
        my $l = $1 || 0;
        my @v = map { $_ . '0' x (3 - length $_) } $s =~ /(\d{1,3})\D?/g;
           $l = $l . '.' . join '', @v if @v;
        return $l + 0;
}
 
# Cloned from Params::Util::_CLASS
sub _CLASS ($) {
        (
                defined $_[0]
                and
                ! ref $_[0]

inc/Module/Install/Makefile.pm  view on Meta::CPAN

58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
        for my $subdir (@_) {
                push @$subdirs, $subdir;
        }
}
 
sub clean_files {
        my $self  = shift;
        my $clean = $self->makemaker_args->{clean} ||= {};
          %$clean = (
                %$clean,
                FILES => join ' ', grep { length $_ } ($clean->{FILES} || (), @_),
        );
}
 
sub realclean_files {
        my $self      = shift;
        my $realclean = $self->makemaker_args->{realclean} ||= {};
          %$realclean = (
                %$realclean,
                FILES => join ' ', grep { length $_ } ($realclean->{FILES} || (), @_),
        );
}
 
sub libs {
        my $self = shift;
        my $libs = ref $_[0] ? shift : [ shift ];
        $self->makemaker_args( LIBS => $libs );
}
 
sub inc {



( run in 0.233 second using v1.01-cache-2.11-cpan-a5abf4f5562 )