| line |
true |
false |
branch |
|
19
|
0 |
0 |
if $self->check_manifest |
|
31
|
0 |
0 |
if $self->prompt('Do you *really* want to continue making a distribution?', 'n') =~ /^[Yy]/ |
|
35
|
0 |
0 |
if (-d $distdir) |
|
47
|
0 |
0 |
unless my($manifest, $manifest_path, $relative_path) = $self->_read_manifest |
|
51
|
0 |
0 |
if (-f "$manifest_path.SKIP") |
|
52
|
0 |
0 |
unless open SKIP, $manifest_skip |
|
64
|
0 |
0 |
unless $path =~ /^\Q$prefix\E\b/i |
|
70
|
0 |
0 |
if length $relative_path |
|
72
|
0 |
0 |
unless -f $pathname |
|
73
|
0 |
0 |
if (defined $manifest{$pathname}) { } |
|
77
|
0 |
0 |
if $pathname =~ /$_/ |
|
82
|
0 |
0 |
if (keys %manifest) |
|
99
|
0 |
0 |
unless -f 'File::Spec'->catfile(@cwd_dirs, 'Makefile.PL') |
|
101
|
0 |
0 |
if (-f $path) |
|
108
|
0 |
0 |
unless (length $manifest_path) |
|
113
|
0 |
0 |
if @relative_dirs |
|
116
|
0 |
0 |
unless open MANIFEST, $manifest_path |
|
128
|
0 |
0 |
unless defined $path |
|
129
|
0 |
0 |
if length $path |
|
130
|
0 |
0 |
if (-f $file) { } |
|
|
0 |
0 |
elsif (-d $file) { } |
|
135
|
0 |
0 |
unless opendir DIR, $file |
|
137
|
0 |
0 |
if $new_file =~ /^(\.|\.\.)$/ |