File Coverage

inc/Module/Install/WriteAll.pm
Criterion Covered Total %
statement 12 25 48.0
branch 0 14 0.0
condition n/a
subroutine 4 5 80.0
pod 0 1 0.0
total 16 45 35.5


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