| line |
true |
false |
branch |
|
30
|
0 |
0 |
unless ref $inc eq "ARRAY" |
|
54
|
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;
}
) |
|
56
|
0 |
0 |
if ($self->{'version'}) |
|
61
|
0 |
0 |
unless @ARGV |
|
73
|
0 |
0 |
unless $self->{'quiet'} |
|
77
|
0 |
0 |
if ($self->is_core_module($module, $packlist)) |
|
79
|
0 |
0 |
unless $self->{'quiet'} |
|
83
|
0 |
0 |
unless ($dist) |
|
85
|
0 |
0 |
unless $self->{'quiet'} |
|
89
|
0 |
0 |
unless ($packlist) |
|
91
|
0 |
0 |
unless $self->{'quiet'} |
|
95
|
0 |
0 |
if ($self->ask_permission($module, $dist, $vname, $packlist)) |
|
96
|
0 |
0 |
if ($self->uninstall_from_packlist($packlist)) { } |
|
103
|
0 |
0 |
unless $self->{'quiet'} |
|
107
|
0 |
0 |
if ($uninstalled) |
|
108
|
0 |
0 |
if $self->{'quiet'} |
|
125
|
0 |
0 |
-f $file ? : |
|
|
0 |
0 |
if $self->{'verbose'} |
|
126
|
0 |
0 |
unless unlink $file |
|
129
|
0 |
0 |
if $self->{'verbose'} |
|
130
|
0 |
0 |
unless unlink $packlist |
|
133
|
0 |
0 |
if (my $install_json = $self->{'install_json'}) |
|
134
|
0 |
0 |
if $self->{'verbose'} |
|
135
|
0 |
0 |
unless unlink $install_json |
|
139
|
0 |
0 |
unless $self->{'quiet'} or $self->{'force'} |
|
146
|
0 |
0 |
unless -d $dir |
|
147
|
0 |
0 |
if $$inc{"File::Spec"->canonpath($dir)} |
|
150
|
0 |
0 |
if ($self->is_empty_dir($dir)) |
|
151
|
0 |
0 |
if $self->{'verbose'} |
|
152
|
0 |
0 |
unless rmdir $dir |
|
161
|
0 |
0 |
unless opendir my $dh, $dir |
|
164
|
0 |
0 |
@dir ? : |
|
169
|
0 |
0 |
if $self->{'verbose'} |
|
173
|
0 |
0 |
if (my $pl = $self->locate_pack($try_dist)) |
|
174
|
0 |
0 |
if $self->{'verbose'} |
|
178
|
0 |
0 |
if $self->{'verbose'} |
|
181
|
0 |
0 |
unless my $yaml = $self->fetch("$cpanmetadb/$module") |
|
186
|
0 |
0 |
if (my $pl = $self->locate_pack($name)) |
|
187
|
0 |
0 |
if $self->{'verbose'} |
|
197
|
0 |
0 |
unless $lib =~ /$App::pmuninstall::Config{'archname'}/ |
|
199
|
0 |
0 |
unless -f $install_json and -r _ |
|
202
|
0 |
0 |
if $self->{'verbose'} |
|
214
|
0 |
0 |
if $self->{'verbose'} > 1 |
|
215
|
0 |
0 |
if -f $packlist and -r _ |
|
223
|
0 |
0 |
unless exists $Module::CoreList::version{$perl_version}{$dist} |
|
224
|
0 |
0 |
unless $packlist |
|
229
|
0 |
0 |
if ($packlist =~ /^$safe_dir/) |
|
242
|
0 |
0 |
if $self->{'verbose'} |
|
244
|
0 |
0 |
unless $self->{'quiet'} |
|
247
|
0 |
0 |
unless $self->{'quiet'} |
|
249
|
0 |
0 |
unless $self->{'quiet'} |
|
251
|
0 |
0 |
if $self->{'force'} |
|
254
|
0 |
0 |
if (@deps) |
|
269
|
0 |
0 |
unless $self->{'check_deps'} and not $self->{'force'} |
|
270
|
0 |
0 |
unless $vname ||= $self->vname_for($module) |
|
272
|
0 |
0 |
if $self->{'verbose'} |
|
273
|
0 |
0 |
unless my $content = $self->fetch("$depended_on_by$vname") |
|
278
|
0 |
0 |
if $seen{$dep}++ |
|
280
|
0 |
0 |
if $self->{'verbose'} |
|
281
|
0 |
0 |
if $self->locate_pack($dep) |
|
299
|
0 |
0 |
if ($is_local_lib) |
|
300
|
0 |
0 |
unless $self->is_local_lib($file) |
|
311
|
0 |
0 |
if ($^O eq "MSWin32") |
|
321
|
0 |
0 |
unless $self->{'local_lib'} |
|
326
|
0 |
0 |
$file =~ m[^$local_lib_base(?:/|\z)] ? : |
|
332
|
0 |
0 |
if $self->{'verbose'} |
|
333
|
0 |
0 |
unless my $yaml = $self->fetch("$cpanmetadb/$module") |
|
335
|
0 |
0 |
unless my $info = "CPAN::DistnameInfo"->new($meta->{'distfile'}) |
|
343
|
0 |
0 |
unless $self->{'local_lib'} |
|
345
|
0 |
0 |
unless (-d $self->{'local_lib'}) |
|
356
|
0 |
0 |
unless $self->{'self_contained'} |
|
364
|
0 |
0 |
$interpolate && $ENV{'PERL5LIB'} ? : |
|
381
|
0 |
0 |
if $self->{'verbose'} |
|
383
|
0 |
0 |
if $res->{'status'} == 404 |
|
384
|
0 |
0 |
unless $res->{'success'} |
|
390
|
0 |
0 |
unless open my $fh, "<", $file |
|
396
|
0 |
0 |
unless @msg |
|
397
|
0 |
0 |
if $OUTPUT_INDENT_LEVEL |
|
439
|
0 |
0 |
if $path eq "." or $path =~ /$archname/ |