Commit | Line | Data |
---|---|---|
0430b7f7 | 1 | #line 1 |
2 | package Module::Install::WriteAll; | |
3 | ||
4 | use strict; | |
5 | use Module::Install::Base; | |
6 | ||
6ea94d90 | 7 | use vars qw{$VERSION @ISA $ISCORE}; |
0430b7f7 | 8 | BEGIN { |
f44772ad | 9 | $VERSION = '0.77'; |
0430b7f7 | 10 | @ISA = qw{Module::Install::Base}; |
6ea94d90 | 11 | $ISCORE = 1; |
0430b7f7 | 12 | } |
13 | ||
14 | sub WriteAll { | |
6ea94d90 | 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; | |
0430b7f7 | 27 | |
6ea94d90 | 28 | $self->check_nmake if $args{check_nmake}; |
29 | unless ( $self->makemaker_args->{PL_FILES} ) { | |
30 | $self->makemaker_args( PL_FILES => {} ); | |
31 | } | |
0430b7f7 | 32 | |
6ea94d90 | 33 | if ( $args{inline} ) { |
34 | $self->Inline->write; | |
35 | } else { | |
36 | $self->Makefile->write; | |
37 | } | |
0430b7f7 | 38 | } |
39 | ||
40 | 1; |