Commit | Line | Data |
54123ee5 |
1 | #line 1 |
2 | package Module::Install::WriteAll; |
3 | |
4 | use Module::Install::Base; |
5 | @ISA = qw(Module::Install::Base); |
6 | |
7 | $VERSION = '0.61'; |
8 | |
9 | use strict; |
10 | |
11 | sub WriteAll { |
12 | my $self = shift; |
13 | my %args = ( |
14 | meta => 1, |
15 | sign => 0, |
16 | inline => 0, |
17 | check_nmake => 1, |
18 | @_ |
19 | ); |
20 | |
21 | $self->sign(1) if $args{sign}; |
22 | $self->Meta->write if $args{meta}; |
23 | $self->admin->WriteAll(%args) if $self->is_admin; |
24 | |
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 | } |
32 | if ($args{inline}) { |
33 | $self->Inline->write; |
34 | } else { |
35 | $self->Makefile->write; |
36 | } |
37 | } |
38 | } |
39 | |
40 | 1; |