1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
use strict;
use warnings;
use Module::Build 0.3601;
my %module_build_args = (
"build_requires" => {
"Module::Build" => "0.3601"
},
"configure_requires" => {
"Module::Build" => "0.3601",
"version" => "0.77"
},
"dist_abstract" => "Perl module dependency manager (aka Bundler for Perl)",
"dist_author" => [
"Tatsuhiko Miyagawa"
],
"dist_name" => "carton",
"dist_version" => "v0.9.60",
"license" => "perl",
"module_name" => "carton",
"recommends" => {},
"recursive_test_files" => 1,
"requires" => {
"App::cpanminus" => "1.6915",
"CPAN::Meta" => "2.120921",
"CPAN::Meta::Requirements" => "2.121",
"Exception::Class" => "1.32",
"ExtUtils::MakeMaker" => "6.64",
"Getopt::Long" => "2.39",
"JSON" => "2.53",
"Module::Build" => "0.4004",
"Module::CPANfile" => "0.9031",
"Module::Metadata" => "1.000003",
"Moo" => "1.002",
"Path::Tiny" => "0.022",
"Try::Tiny" => "0.09",
"local::lib" => "1.008",
"parent" => "0.223",
"perl" => "v5.8.5"
},
"script_files" => [
"script/carton"
],
"test_requires" => {}
);
unless ( eval { Module::Build->VERSION(0.4004) } ) {
my $tr = delete $module_build_args{test_requires};
my $br = $module_build_args{build_requires};
for my $mod ( keys %$tr ) {
if ( exists $br->{$mod} ) {
$br->{$mod} = $tr->{$mod} if $tr->{$mod} > $br->{$mod};
}
else {
$br->{$mod} = $tr->{$mod};
}
}
}
my $build = Module::Build->new(%module_build_args);
$build->create_build_script;
|
