Image-Info-1.20.tar.gz
[Image-Info.git] / inc / Module / Install / WriteAll.pm
blobb0cb138e54fc47f35693ee837e8c0e382d716bed
1 #line 1
2 package Module::Install::WriteAll;
4 use Module::Install::Base;
5 @ISA = qw(Module::Install::Base);
7 $VERSION = '0.60';
9 use strict;
11 sub WriteAll {
12 my $self = shift;
13 my %args = (
14 meta => 1,
15 sign => 0,
16 inline => 0,
17 check_nmake => 1,
21 $self->sign(1) if $args{sign};
22 $self->Meta->write if $args{meta};
23 $self->admin->WriteAll(%args) if $self->is_admin;
25 if ( $0 =~ /Build.PL$/i ) {
26 $self->Build->write;
27 } else {
28 $self->check_nmake if $args{check_nmake};
29 unless ( $self->makemaker_args->{'PL_FILES'} ) {
30 $self->makemaker_args( PL_FILES => {} );
32 if ($args{inline}) {
33 $self->Inline->write;
34 } else {
35 $self->Makefile->write;