| line |
true |
false |
branch |
|
21
|
0 |
0 |
if ($@) { } |
|
36
|
0 |
0 |
unless $$CPAN::META{'LOCK'} |
|
37
|
0 |
0 |
unless -d $$self{'ID'} |
|
48
|
0 |
0 |
if $CPAN::Signal |
|
50
|
0 |
0 |
if $CPAN::Signal |
|
63
|
0 |
0 |
unless defined $dir |
|
64
|
0 |
0 |
if $CPAN::DEBUG |
|
67
|
0 |
0 |
unless chdir($dir) |
|
68
|
0 |
0 |
unless my $dh = 'DirHandle'->new('File::Spec'->curdir) |
|
72
|
0 |
0 |
if $_ eq '.' or $_ eq '..' |
|
73
|
0 |
0 |
if (-f $_) { } |
|
|
0 |
0 |
elsif (-d _) { } |
|
81
|
0 |
0 |
unless chdir($cwd) |
|
88
|
0 |
0 |
if exists $$self{'SIZE'}{$dir} |
|
89
|
0 |
0 |
if $CPAN::Signal |
|
91
|
0 |
0 |
if (-e $dir) { } |
|
92
|
0 |
0 |
if (-d $dir) { } |
|
|
0 |
0 |
elsif (-f $dir) { } |
|
93
|
0 |
0 |
unless (-x $dir) |
|
94
|
0 |
0 |
unless (chmod 0755, $dir) |
|
109
|
0 |
0 |
if ($fast) { } |
|
114
|
0 |
0 |
if $CPAN::Signal |
|
115
|
0 |
0 |
if -l $_ |
|
116
|
0 |
0 |
if ($^O eq 'MacOS') { } |
|
119
|
0 |
0 |
if $cat |
|
121
|
0 |
0 |
if (-d _) { } |
|
122
|
0 |
0 |
unless (-x _) |
|
123
|
0 |
0 |
unless (chmod 0755, $_) |
|
140
|
0 |
0 |
if $CPAN::Signal |
|
143
|
0 |
0 |
if $CPAN::DEBUG |
|
151
|
0 |
0 |
unless -e $dir |
|
152
|
0 |
0 |
unless ('File::Spec'->canonpath(File::Basename::dirname($dir)) eq 'File::Spec'->canonpath($$CPAN::Config{'build_dir'})) |
|
159
|
0 |
0 |
if $CPAN::DEBUG |
|
163
|
0 |
0 |
if (not $dir =~ /\.yml$/ and -f "$dir.yml") |
|
165
|
0 |
0 |
if ($CPAN::META->has_inst($yaml_module)) |
|
167
|
0 |
0 |
if ($@) { } |
|
|
0 |
0 |
elsif (my $id = $$peek_yaml[0]{'distribution'}{'ID'}) { } |
|
169
|
0 |
0 |
unless unlink "$dir.yml" |
|
183
|
0 |
0 |
unless ($id_deleted) |
|
204
|
0 |
0 |
unless $$self{'SCAN'} =~ /never|atstart|atexit/ |
|
213
|
0 |
0 |
if $CPAN::DEBUG |
|
220
|
0 |
0 |
unless defined $phase |
|
221
|
0 |
0 |
unless $phase eq $$self{'SCAN'} |
|
222
|
0 |
0 |
unless $$CPAN::META{'LOCK'} |
|
232
|
0 |
0 |
if ($$self{'DU'} > $$self{'MAX'}) { } |
|
243
|
0 |
0 |
if $CPAN::Signal |