Module/Install/WriteAll.pm

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

use Module::Install::Base;
@ISA = qw(Module::Install::Base);

$VERSION = '0.61';

use strict;

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	dpavlin	1	#line 1
2			package Module::Install::WriteAll;
3
4			use Module::Install::Base;
5			@ISA = qw(Module::Install::Base);
6
7			$VERSION = '0.61';
8
9			use strict;
10
11			sub WriteAll {
12			my $self = shift;
13			my %args = (
14			meta => 1,
15			sign => 0,
16			inline => 0,
17			check_nmake => 1,
18			@_
19			);
20
21			$self->sign(1) if $args{sign};
22			$self->Meta->write if $args{meta};
23			$self->admin->WriteAll(%args) if $self->is_admin;
24
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 => {} );
31			}
32			if ($args{inline}) {
33			$self->Inline->write;
34			} else {
35			$self->Makefile->write;
36			}
37			}
38			}
39
40			1;