1#line 1 2package Module::Install::WriteAll; 3 4use strict; 5use Module::Install::Base; 6 7use vars qw{$VERSION $ISCORE @ISA}; 8BEGIN { 9 $VERSION = '0.68'; 10 $ISCORE = 1; 11 @ISA = qw{Module::Install::Base}; 12} 13 14sub 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 431; 44