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