equal
deleted
inserted
replaced
4 use warnings; |
4 use warnings; |
5 use Module::Build; |
5 use Module::Build; |
6 |
6 |
7 my $builder = Module::Build->subclass( |
7 my $builder = Module::Build->subclass( |
8 class => "My::Module::Build", |
8 class => "My::Module::Build", |
9 code => <<'___CODE', |
9 code => <<'___CODE', |
10 use strict; |
10 use strict; |
11 use warnings; |
11 use warnings; |
12 use File::Path; |
12 use File::Path; |
13 sub ACTION_build { |
13 sub ACTION_build { |
14 my $self = shift; |
14 my $self = shift; |
15 File::Path::make_path("tmp/bind/master", "tmp/bind/zones.d"); |
15 File::Path::make_path(qw(tmp/bind/master tmp/bind/zones.d)); |
16 $self->SUPER::ACTION_build; |
16 $self->SUPER::ACTION_build; |
|
17 } |
|
18 sub ACTION_realclean { |
|
19 my $self = shift; |
|
20 File::Path::remove_tree(qw(tmp/bind/master tmp/bind/zones.d), { safe => 1 }); |
|
21 map { rmdir } qw(tmp/bind tmp); |
|
22 $self->SUPER::ACTION_realclean; |
17 } |
23 } |
18 ___CODE |
24 ___CODE |
19 ); |
25 ); |
20 |
26 |
21 my $build = My::Module::Build->new( |
27 my $build = $builder->new( |
22 module_name => "dnstools", |
28 module_name => "dnstools", |
23 dist_author => "schlittermann.de", |
29 dist_author => "schlittermann.de", |
24 dist_version => "0.1.1", |
30 dist_version => "0.1.1", |
25 create_license => 1, |
31 create_license => 1, |
26 license => "gpl", |
32 license => "gpl", |