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