Import namespace-clean-0.05.tar.gz.
[p5sagit/namespace-clean.git] / inc / Module / Install / WriteAll.pm
CommitLineData
40aef9d6 1#line 1
2package Module::Install::WriteAll;
3
4use strict;
5use Module::Install::Base;
6
7use vars qw{$VERSION $ISCORE @ISA};
8BEGIN {
472d4b1e 9 $VERSION = '0.67';
40aef9d6 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;