1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
#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;
|
