File Coverage

blib/lib/Module/Install/Admin/WriteAll.pm
Criterion Covered Total %
statement 11 15 73.3
branch 0 2 0.0
condition n/a
subroutine 4 5 80.0
pod 0 1 0.0
total 15 23 65.2


line stmt bran cond sub pod time code
1             package Module::Install::Admin::WriteAll;
2              
3 1     1   1524 use strict;
  1         3  
  1         32  
4 1     1   5 use Module::Install::Base;
  1         2  
  1         32  
5              
6 1     1   4 use vars qw{$VERSION @ISA};
  1         2  
  1         59  
7             BEGIN {
8 1     1   3 $VERSION = '1.21';
9 1         100 @ISA = qw{Module::Install::Base};
10             }
11              
12             sub WriteAll {
13 0     0 0   my ($self, %args) = @_;
14 0           $self->load('Makefile');
15 0 0         if ( $args{check_nmake} ) {
16 0           $self->load($_) for qw(Makefile check_nmake can_run get_file);
17             }
18             }
19              
20             1;