Module/Install/WriteAll.pm

#line 1
package Module::Install::WriteAll;

use strict;
use Module::Install::Base;

use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
        $VERSION = '0.64';
        $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;
1	#line 1
2	package Module::Install::WriteAll;
3
4	use strict;
5	use Module::Install::Base;
6
7	use vars qw{$VERSION $ISCORE @ISA};
8	BEGIN {
9	$VERSION = '0.64';
10	$ISCORE = 1;
11	@ISA = qw{Module::Install::Base};
12	}
13
14	sub 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
43	1;