| 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 =~ /^(\.|\.\.)$/
|