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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
|
use strict;
use ExtUtils::MakeMaker 6.17;
my $EUMM = eval( $ExtUtils::MakeMaker::VERSION );
my $meta = {
"abstract" => "detect source code license statements in a text string",
"author" => ["Jonas Smedegaard (JONASS) <jonass\@cpan.org>"],
"dynamic_config" => 0,
"generated_by" => "Dist::Inkt::Profile::TOBYINK version 0.024, CPAN::Meta::Converter version 2.150010",
"keywords" => ["Licensing", "Sourcecode"],
"license" => ["agpl_3"],
"meta-spec" => {
url => "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
version => 2,
},
"name" => "String-License",
"no_index" => { directory => ["eg", "examples", "inc", "t", "xt"] },
"prereqs" => {
configure => { requires => { "ExtUtils::MakeMaker" => 6.17 } },
runtime => {
recommends => { "re::engine::RE2" => 0 },
requires => {
"Array::IntSpan" => 0,
"Feature::Compat::Class" => 0.04,
"List::SomeUtils" => 0,
"Log::Any" => 0,
"namespace::clean" => 0,
"Path::Tiny" => 0.062,
"perl" => "5.012000",
"Regexp::Pattern" => "v0.2.12",
"Regexp::Pattern::License" => "v3.4.0",
},
},
test => {
recommends => {
"File::BaseDir" => 0,
"Regexp::Pattern::License" => "v3.9.0",
"Software::LicenseUtils" => 0.103014,
"YAML::XS" => 0,
},
requires => { "Test2::V0" => "0.000060", "Test::Without::Module" => 0 },
},
},
"provides" => {
"String::License" => { file => "lib/String/License.pm", version => "v0.0.2" },
"String::License::Naming" => { file => "lib/String/License/Naming.pm", version => "v0.0.2" },
"String::License::Naming::Custom" => { file => "lib/String/License/Naming/Custom.pm", version => "v0.0.2" },
"String::License::Naming::SPDX" => { file => "lib/String/License/Naming/SPDX.pm", version => "v0.0.2" },
},
"release_status" => "stable",
"resources" => {
bugtracker => {
web => "https://rt.cpan.org/Dist/Display.html?Queue=String-License",
},
homepage => "https://metacpan.org/pod/String::License",
license => ["http://www.gnu.org/licenses/agpl-3.0.txt"],
repository => {
type => "git",
web => "https://salsa.debian.org/build-common-team/p5-string-license",
},
x_identifier => "http://purl.org/NET/cpan-uri/dist/String-License/project",
},
"version" => "v0.0.2",
"x_help_wanted" => ["documenter", "tester"],
"x_static_install" => 1,
};
my %dynamic_config;
my %WriteMakefileArgs = (
ABSTRACT => $meta->{abstract},
AUTHOR => ($EUMM >= 6.5702 ? $meta->{author} : $meta->{author}[0]),
DISTNAME => $meta->{name},
VERSION => $meta->{version},
EXE_FILES => [ map $_->{file}, values %{ $meta->{x_provides_scripts} || {} } ],
NAME => do { my $n = $meta->{name}; $n =~ s/-/::/g; $n },
test => { TESTS => "t/*.t" },
%dynamic_config,
);
$WriteMakefileArgs{LICENSE} = $meta->{license}[0] if $EUMM >= 6.3001;
sub deps
{
my %r;
for my $stage (@_)
{
for my $dep (keys %{$meta->{prereqs}{$stage}{requires}})
{
next if $dep eq 'perl';
my $ver = $meta->{prereqs}{$stage}{requires}{$dep};
$r{$dep} = $ver if !exists($r{$dep}) || $ver >= $r{$dep};
}
}
\%r;
}
my ($build_requires, $configure_requires, $runtime_requires, $test_requires);
if ($EUMM >= 6.6303)
{
$WriteMakefileArgs{BUILD_REQUIRES} ||= deps('build');
$WriteMakefileArgs{CONFIGURE_REQUIRES} ||= deps('configure');
$WriteMakefileArgs{TEST_REQUIRES} ||= deps('test');
$WriteMakefileArgs{PREREQ_PM} ||= deps('runtime');
}
elsif ($EUMM >= 6.5503)
{
$WriteMakefileArgs{BUILD_REQUIRES} ||= deps('build', 'test');
$WriteMakefileArgs{CONFIGURE_REQUIRES} ||= deps('configure');
$WriteMakefileArgs{PREREQ_PM} ||= deps('runtime');
}
elsif ($EUMM >= 6.52)
{
$WriteMakefileArgs{CONFIGURE_REQUIRES} ||= deps('configure');
$WriteMakefileArgs{PREREQ_PM} ||= deps('runtime', 'build', 'test');
}
else
{
$WriteMakefileArgs{PREREQ_PM} ||= deps('configure', 'build', 'test', 'runtime');
}
{
my ($minperl) = reverse sort(
grep defined && /^[0-9]+(\.[0-9]+)?$/,
map $meta->{prereqs}{$_}{requires}{perl},
qw( configure build runtime )
);
if (defined($minperl))
{
die "Installing $meta->{name} requires Perl >= $minperl"
unless $] >= $minperl;
$WriteMakefileArgs{MIN_PERL_VERSION} ||= $minperl
if $EUMM >= 6.48;
}
}
my $mm = WriteMakefile(%WriteMakefileArgs);
exit(0);
|
