diff options
author | Jesse Luehrs <doy@tozt.net> | 2009-09-28 00:44:39 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2009-09-28 00:45:52 -0500 |
commit | 3bd26013ca40e9d955b3d62943a783dc297291ea (patch) | |
tree | cc77ed887f573e6607a3a0db2ea015d60e9327bd /inc/Module/Install/WriteAll.pm | |
parent | d0699d742ba1c12cb318294525e90c9c51ea5c81 (diff) | |
download | language-teco-3bd26013ca40e9d955b3d62943a783dc297291ea.tar.gz language-teco-3bd26013ca40e9d955b3d62943a783dc297291ea.zip |
convert to dzil
Diffstat (limited to 'inc/Module/Install/WriteAll.pm')
-rw-r--r-- | inc/Module/Install/WriteAll.pm | 40 |
1 files changed, 0 insertions, 40 deletions
diff --git a/inc/Module/Install/WriteAll.pm b/inc/Module/Install/WriteAll.pm deleted file mode 100644 index 2b3be8e..0000000 --- a/inc/Module/Install/WriteAll.pm +++ /dev/null @@ -1,40 +0,0 @@ -#line 1 -package Module::Install::WriteAll; - -use strict; -use Module::Install::Base; - -use vars qw{$VERSION @ISA $ISCORE}; -BEGIN { - $VERSION = '0.73'; - @ISA = qw{Module::Install::Base}; - $ISCORE = 1; -} - -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; - - $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; |