File Coverage

blib/lib/Module/Install/WriteAll.pm
Criterion Covered Total %
statement 12 31 38.7
branch 0 20 0.0
condition n/a
subroutine 4 5 80.0
pod 0 1 0.0
total 16 57 28.0


line stmt bran cond sub pod time code
1             package Module::Install::WriteAll;
2              
3 1     1   1480 use strict;
  1         2  
  1         30  
4 1     1   11 use Module::Install::Base ();
  1         2  
  1         24  
5              
6 1     1   6 use vars qw{$VERSION @ISA $ISCORE};
  1         33  
  1         77  
7             BEGIN {
8 1     1   3 $VERSION = '1.21';
9 1         18 @ISA = qw{Module::Install::Base};
10 1         238 $ISCORE = 1;
11             }
12              
13             sub WriteAll {
14 0     0 0   my $self = shift;
15 0           my %args = (
16             meta => 1,
17             sign => 0,
18             inline => 0,
19             check_nmake => 1,
20             @_,
21             );
22              
23 0 0         $self->sign(1) if $args{sign};
24 0 0         $self->admin->WriteAll(%args) if $self->is_admin;
25              
26 0 0         $self->check_nmake if $args{check_nmake};
27 0 0         unless ( $self->makemaker_args->{PL_FILES} ) {
28             # XXX: This still may be a bit over-defensive...
29 0 0         unless ($self->makemaker(6.25)) {
30 0 0         $self->makemaker_args( PL_FILES => {} ) if -f 'Build.PL';
31             }
32             }
33              
34             # Until ExtUtils::MakeMaker support MYMETA.yml, make sure
35             # we clean it up properly ourself.
36 0           $self->realclean_files('MYMETA.yml');
37              
38 0 0         if ( $args{inline} ) {
39 0           $self->Inline->write;
40             } else {
41 0           $self->Makefile->write;
42             }
43              
44             # The Makefile write process adds a couple of dependencies,
45             # so write the META.yml files after the Makefile.
46 0 0         if ( $args{meta} ) {
47 0           $self->Meta->write;
48             }
49              
50             # Experimental support for MYMETA
51 0 0         if ( $ENV{X_MYMETA} ) {
52 0 0         if ( $ENV{X_MYMETA} eq 'JSON' ) {
53 0           $self->Meta->write_mymeta_json;
54             } else {
55 0           $self->Meta->write_mymeta_yaml;
56             }
57             }
58              
59 0           return 1;
60             }
61              
62             1;