Commit | Line | Data |
---|---|---|
fe3b3201 | 1 | #line 1 |
0d5e38d1 | 2 | package Module::Install::WriteAll; |
ecac864a | 3 | |
4 | use Module::Install::Base; | |
5 | @ISA = qw(Module::Install::Base); | |
6 | ||
fe3b3201 | 7 | $VERSION = '0.61'; |
ecac864a | 8 | |
9 | use strict; | |
0d5e38d1 | 10 | |
11 | sub WriteAll { | |
12 | my $self = shift; | |
13 | my %args = ( | |
ecac864a | 14 | meta => 1, |
15 | sign => 0, | |
16 | inline => 0, | |
0d5e38d1 | 17 | check_nmake => 1, |
18 | @_ | |
19 | ); | |
20 | ||
ecac864a | 21 | $self->sign(1) if $args{sign}; |
22 | $self->Meta->write if $args{meta}; | |
0d5e38d1 | 23 | $self->admin->WriteAll(%args) if $self->is_admin; |
24 | ||
ecac864a | 25 | if ( $0 =~ /Build.PL$/i ) { |
26 | $self->Build->write; | |
27 | } else { | |
28 | $self->check_nmake if $args{check_nmake}; | |
29 | unless ( $self->makemaker_args->{'PL_FILES'} ) { | |
30 | $self->makemaker_args( PL_FILES => {} ); | |
31 | } | |
0d5e38d1 | 32 | if ($args{inline}) { |
33 | $self->Inline->write; | |
ecac864a | 34 | } else { |
0d5e38d1 | 35 | $self->Makefile->write; |
36 | } | |
37 | } | |
38 | } | |
39 | ||
40 | 1; |