Module/Install/WriteAll.pm

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

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

use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
        $VERSION = '0.76';
        @ISA     = qw{Module::Install::Base};
        $ISCORE  = 1;
}

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;

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