| line |
true |
false |
branch |
|
29
|
0 |
0 |
unless ref $inc eq 'ARRAY' |
|
53
|
0 |
0 |
unless GetOptions 'f|force', \$$self{'force'}, 'v|verbose!', sub {
++$$self{'verbose'};
}
, 'c|checkdeps!', \$$self{'check_deps'}, 'n|no-checkdeps!', sub {
$$self{'check_deps'} = 0;
}
, 'q|quiet!', \$$self{'quiet'}, 'h|help!', sub {
$self->usage;
}
, 'V|version!', \$$self{'version'}, 'l|local-lib=s', \$$self{'local_lib'}, 'L|local-lib-contained=s', sub {
$$self{'local_lib'} = $_[1];
$$self{'self_contained'} = 1;
} |
|
55
|
0 |
0 |
if ($$self{'version'}) |
|
60
|
0 |
0 |
unless @ARGV |
|
72
|
0 |
0 |
unless $$self{'quiet'} |
|
76
|
0 |
0 |
if ($self->is_core_module($module, $packlist)) |
|
78
|
0 |
0 |
unless $$self{'quiet'} |
|
82
|
0 |
0 |
unless ($dist) |
|
84
|
0 |
0 |
unless $$self{'quiet'} |
|
88
|
0 |
0 |
unless ($packlist) |
|
90
|
0 |
0 |
unless $$self{'quiet'} |
|
94
|
0 |
0 |
if ($self->ask_permission($module, $dist, $vname, $packlist)) |
|
95
|
0 |
0 |
if ($self->uninstall_from_packlist($packlist)) { } |
|
102
|
0 |
0 |
unless $$self{'quiet'} |
|
106
|
0 |
0 |
if ($uninstalled) |
|
107
|
0 |
0 |
if $$self{'quiet'} |
|
124
|
0 |
0 |
-f $file ? : |
|
|
0 |
0 |
if $$self{'verbose'} |
|
125
|
0 |
0 |
unless unlink $file |
|
128
|
0 |
0 |
if $$self{'verbose'} |
|
129
|
0 |
0 |
unless unlink $packlist |
|
132
|
0 |
0 |
if (my $install_json = $$self{'install_json'}) |
|
133
|
0 |
0 |
if $$self{'verbose'} |
|
134
|
0 |
0 |
unless unlink $install_json |
|
138
|
0 |
0 |
unless $$self{'quiet'} or $$self{'force'} |
|
145
|
0 |
0 |
unless -d $dir |
|
146
|
0 |
0 |
if $$inc{'File::Spec'->catfile($dir)} |
|
149
|
0 |
0 |
if ($self->is_empty_dir($dir)) |
|
150
|
0 |
0 |
if $$self{'verbose'} |
|
151
|
0 |
0 |
unless rmdir $dir |
|
160
|
0 |
0 |
unless opendir my $dh, $dir |
|
163
|
0 |
0 |
@dir ? : |
|
168
|
0 |
0 |
if $$self{'verbose'} |
|
172
|
0 |
0 |
if (my $pl = $self->locate_pack($try_dist)) |
|
173
|
0 |
0 |
if $$self{'verbose'} |
|
177
|
0 |
0 |
if $$self{'verbose'} |
|
180
|
0 |
0 |
unless my $yaml = $self->fetch("$cpanmetadb/$module") |
|
185
|
0 |
0 |
if (my $pl = $self->locate_pack($name)) |
|
186
|
0 |
0 |
if $$self{'verbose'} |
|
196
|
0 |
0 |
unless $lib =~ /$App::pmuninstall::Config{'archname'}/ |
|
198
|
0 |
0 |
unless -f $install_json and -r _ |
|
201
|
0 |
0 |
if $$self{'verbose'} |
|
213
|
0 |
0 |
if $$self{'verbose'} > 1 |
|
214
|
0 |
0 |
if -f $packlist and -r _ |
|
222
|
0 |
0 |
unless exists $Module::CoreList::version{$perl_version}{$dist} |
|
223
|
0 |
0 |
unless $packlist |
|
228
|
0 |
0 |
if ($packlist =~ /^$safe_dir/) |
|
241
|
0 |
0 |
if $$self{'verbose'} |
|
242
|
0 |
0 |
unless $$self{'quiet'} |
|
246
|
0 |
0 |
unless $$self{'quiet'} |
|
248
|
0 |
0 |
unless $$self{'quiet'} |
|
250
|
0 |
0 |
if $$self{'force'} |
|
253
|
0 |
0 |
if (@deps) |
|
268
|
0 |
0 |
unless $$self{'check_deps'} and not $$self{'force'} |
|
269
|
0 |
0 |
unless $vname ||= $self->vname_for($module) |
|
271
|
0 |
0 |
if $$self{'verbose'} |
|
272
|
0 |
0 |
unless my $content = $self->fetch("$depended_on_by$vname") |
|
277
|
0 |
0 |
if $seen{$dep}++ |
|
279
|
0 |
0 |
if $$self{'verbose'} |
|
280
|
0 |
0 |
if $self->locate_pack($dep) |
|
296
|
0 |
0 |
unless open my $in, '<', $packlist |
|
298
|
0 |
0 |
if ($is_local_lib) |
|
299
|
0 |
0 |
unless $self->is_local_lib($file) |
|
308
|
0 |
0 |
unless $$self{'local_lib'} |
|
313
|
0 |
0 |
$file =~ /^$local_lib_base/ ? : |
|
319
|
0 |
0 |
if $$self{'verbose'} |
|
320
|
0 |
0 |
unless my $yaml = $self->fetch("$cpanmetadb/$module") |
|
322
|
0 |
0 |
unless my $info = 'CPAN::DistnameInfo'->new($$meta{'distfile'}) |
|
330
|
0 |
0 |
unless $$self{'local_lib'} |
|
332
|
0 |
0 |
unless (-d $$self{'local_lib'}) |
|
342
|
0 |
0 |
unless $$self{'self_contained'} |
|
347
|
0 |
0 |
$interpolate && $ENV{'PERL5LIB'} ? : |
|
367
|
0 |
0 |
if $$self{'verbose'} |
|
369
|
0 |
0 |
if $$res{'status'} == 404 |
|
370
|
0 |
0 |
unless $$res{'success'} |
|
376
|
0 |
0 |
unless open my $fh, '<', $file |
|
382
|
0 |
0 |
unless @msg |
|
383
|
0 |
0 |
if $OUTPUT_INDENT_LEVEL |
|
425
|
0 |
0 |
if $path eq '.' or $path =~ /$archname/ |