Branch Coverage

blib/lib/ExtUtils/ModuleMaker.pm
Criterion Covered Total %
branch 77 92 83.7


line true false branch
22 4 97 ref $class ? :
35 2 99 if @arglist % 2
46 2 97 if ($supplied_params{'debug'})
51 2 97 if ($supplied_params{'debug'})
58 99 0 if (defined $self->{'mmkr_dir_ref'}{'flag'}) { }
59 2 97 if $supplied_params{'debug'}
60 13 86 unless $INC[-1] eq $mmkr_dir
63 0 0 if $supplied_params{'debug'}
68 9 90 if (-f $pers_file) { }
69 1 8 if $supplied_params{'debug'}
71 4 5 unless $ISA[0] eq 'ExtUtils::ModuleMaker::Personal::Defaults'
75 1 89 if $supplied_params{'debug'}
79 2 97 if $supplied_params{'debug'}
85 2 97 if $supplied_params{'debug'}
89 2 97 if $supplied_params{'debug'}
112 90 0 unless $self->{'INTERACTIVE'}
122 1 89 if (defined $self->{'ALT_BUILD'})
124 0 1 unless ($alt_build =~ /^ExtUtils::ModuleMaker::/)
128 0 1 if ($@) { }
147 81 1 if $self->{'INCLUDE_SCRIPTS_DIRECTORY'}
152 81 1 if $self->{'INCLUDE_LICENSE'}
155 81 1 if $self->{'INCLUDE_TODO'}
158 78 4 unless $self->{'CHANGES_IN_POD'}
162 1 81 if $self->{'INCLUDE_MANIFEST_SKIP'}
165 1 81 if $self->{'INCLUDE_POD_COVERAGE_TEST'}
168 1 81 if $self->{'INCLUDE_POD_TEST'}
170 79 3 if ($self->{'BUILD_SYSTEM'} eq 'ExtUtils::MakeMaker') { }
175 2 1 if ($self->{'BUILD_SYSTEM'} eq 'Module::Build and proxy Makefile.PL' or $self->{'BUILD_SYSTEM'} eq 'Module::Build and Proxy')
196 2 80 if ($self->{'EXTRA_MODULES_SINGLE_TEST_FILE'}) { }
205 4 85 if ($self->{'TEST_NAME_DERIVED_FROM_MODULE_NAME'}) { }
216 85 4 if (defined $self->{'TEST_NUMBER_FORMAT'}) { }
231 1 1 if (defined $self->{'TEST_NUMBER_FORMAT'}) { }
245 2 80 if $self->{'SAVE_AS_DEFAULTS'}
255 2 41 if $keys_to_be_shown{$k}
267 41 2 unless $keys_not_shown{$k}
300 91 6 unless $k eq 'ABSTRACT' or $k eq 'SAVE_AS_DEFAULTS'
340 1 2 unless (-d $full_dir)
341 0 1 unless mkpath($full_dir)
345 2 1 if (-f $pers_full)
347 0 2 unless rename $pers_full, "$pers_full.$modtime"
351 0 3 unless open my $fh, '>', $pers_full
353 0 3 unless print $fh $output
354 0 3 unless close $fh
388 100 0 if (-d $dirname) { }
408 0 3 unless (-d $dirname)
409 0 0 unless mkpath($dirname)