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