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
|
use strict;
use warnings;
use 5.006;
use lib qw{ inc };
use Module::Build;
use My::Module::Build;
use My::Module::Meta;
use My::Module::Recommend;
(my $mbv = Module::Build->VERSION()) =~ s/_//g;
my $meta = My::Module::Meta->new();
my %args = (
add_to_cleanup => $meta->add_to_cleanup(),
build_requires => $meta->build_requires(),
configure_requires => $meta->configure_requires(),
dist_abstract => $meta->abstract(),
dist_author => $meta->author(),
dist_name => $meta->dist_name(),
license => $meta->license(),
module_name => $meta->module_name(),
requires => $meta->requires(
perl => $meta->requires_perl(),
),
script_files => $meta->script_files(),
);
if ( $mbv >= 0.28 ) {
$args{meta_merge} = $meta->meta_merge();
$args{no_index} = $meta->no_index();
$args{meta_add} = {
$meta->provides(),
},
}
$mbv >= 0.34
and $args{auto_configure_requires} = 0; # Don't require Module::Build
My::Module::Recommend->recommend();
my $bldr = My::Module::Build->new (%args);
$bldr->create_build_script ();
|
