X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=inc%2FModule%2FInstall%2FWriteAll.pm;fp=inc%2FModule%2FInstall%2FWriteAll.pm;h=0000000000000000000000000000000000000000;hb=e1815c020fe559e5281afbd08c246b71dfe6eab8;hp=e1db381ce217f0ff8032ce8e9179297ab6d71624;hpb=de673bbfb3be8450727acc7e3aa6f806b8bf2482;p=p5sagit%2Fnamespace-clean.git diff --git a/inc/Module/Install/WriteAll.pm b/inc/Module/Install/WriteAll.pm deleted file mode 100644 index e1db381..0000000 --- a/inc/Module/Install/WriteAll.pm +++ /dev/null @@ -1,43 +0,0 @@ -#line 1 -package Module::Install::WriteAll; - -use strict; -use Module::Install::Base; - -use vars qw{$VERSION $ISCORE @ISA}; -BEGIN { - $VERSION = '0.67'; - $ISCORE = 1; - @ISA = qw{Module::Install::Base}; -} - -sub WriteAll { - my $self = shift; - my %args = ( - meta => 1, - sign => 0, - inline => 0, - check_nmake => 1, - @_ - ); - - $self->sign(1) if $args{sign}; - $self->Meta->write if $args{meta}; - $self->admin->WriteAll(%args) if $self->is_admin; - - if ( $0 =~ /Build.PL$/i ) { - $self->Build->write; - } else { - $self->check_nmake if $args{check_nmake}; - unless ( $self->makemaker_args->{'PL_FILES'} ) { - $self->makemaker_args( PL_FILES => {} ); - } - if ($args{inline}) { - $self->Inline->write; - } else { - $self->Makefile->write; - } - } -} - -1;