Acme-Blarghy-McBlarghBlargh
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
949596979899100101102103104105106107108109110111112113114115116my
@args
=
@_
or
return
;
my
$core_all
;
"*** $class version "
.
$class
->VERSION .
"\n"
;
"*** 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
341342343344345346347348349350351352353354355356357358359360361
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
585960616263646566676869707172737475767778798081828384858687
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 )