Branch Coverage

lib/CPANPLUS/Internals/Constants.pm
Criterion Covered Total %
branch 30 64 46.8


line true false branch
66 11 0 unless my $fmt = $_[0]
67 0 0 if $fmt ne "CPANPLUS::Dist::Build" and $fmt ne "CPANPLUS::Dist::MM"
92 289 2 if -e $_[-1]
96 99 0 if sub { package CPANPLUS::Internals::Constants; use strict; return 1 if -e $_[-1];}->($file)
106 23 0 if -e $file and -r _
113 85 5 if -d $_[-1]
117 72 1 if sub { package CPANPLUS::Internals::Constants; use strict; return 1 if -d $_[-1];}->($dir)
134 20 12 @_ ? :
138 40 22 @_ ? :
143 19 2 @_ ? :
149 27 0 @_ ? :
154 3 0 @_ ? :
159 21 0 @_ ? :
164 3 0 @_ ? :
169 58 1 @_ ? :
175 7 0 @_ ? :
180 0 0 @_ ? :
185 0 0 @_ ? :
189 0 0 @_ ? :
194 0 0 @_ ? :
247 0 93 unless open $fh, "$mode" . $file
251 93 0 if $fh
258 0 7 unless opendir $dh, $dir
262 7 0 if $dh
268 0 7 unless my $dh = sub { package CPANPLUS::Internals::Constants; use strict; my $dir = shift(); my $dh; error(loc(q[Could not open dir '%1': %2], $dir, $!)) unless opendir $dh, $dir; return $dh if $dh; return;}->($dir)
285 0 62 unless my $file = $_[0]
313 0 66 unless my $dir = $_[0]
314 66 0 $dir =~ m[^/] ? :
343 0 0 unless my $dir = $_[0]
347 0 0 if $File::Find::name =~ /\.xs$/i
355 0 0 unless my $obj = shift()
374 0 0 unless my $line = shift()