| line |
true |
false |
branch |
|
44
|
5 |
0 |
if ($home) |
|
48
|
5 |
0 |
unless $@ |
|
50
|
0 |
5 |
unless ($has_config) |
|
57
|
0 |
0 |
unless $@ or $dir and not -w $dir |
|
59
|
5 |
0 |
if $has_config |
|
75
|
5 |
0 |
unless -f $ppm |
|
79
|
0 |
0 |
if (eval {
do {
require PPM
}
}) |
|
80
|
0 |
0 |
unless ($@) |
|
85
|
0 |
0 |
if (eval {
do {
require PPM::Config
}
}) |
|
86
|
0 |
0 |
unless ($@) |
|
91
|
0 |
0 |
if (eval {
do {
require ActivePerl::PPM
}
}) |
|
92
|
0 |
0 |
unless ($@) |
|
114
|
5 |
0 |
unless $@ |
|
143
|
0 |
0 |
if $legal{$_} |
|
148
|
0 |
0 |
if (defined $opts{'add'}) |
|
149
|
0 |
0 |
unless (ref $opts{'add'} eq 'ARRAY') |
|
155
|
0 |
0 |
if (defined $opts{'program'} and my $progs = $opts{'program'}) |
|
156
|
0 |
0 |
unless (ref $progs eq 'HASH') |
|
162
|
0 |
0 |
if $ok{$_} |
|
168
|
0 |
0 |
if (defined $opts{'upload'} and my $upload = $opts{'upload'}) |
|
169
|
0 |
0 |
unless (ref $upload eq 'HASH') |
|
175
|
0 |
0 |
if $ok{$_} |
|
187
|
0 |
0 |
if (defined $opt_arch) { } |
|
188
|
0 |
0 |
$opt_arch eq '' ? : |
|
192
|
0 |
0 |
unless ($opt_noas) |
|
193
|
0 |
0 |
if ($] >= 5.008) |
|
200
|
0 |
0 |
if (defined $opt_os) { } |
|
201
|
0 |
0 |
$opt_os eq '' ? : |
|
210
|
0 |
0 |
if (defined $ENV{'PPM_CFG'} and my $env = $ENV{'PPM_CFG'}) |
|
211
|
0 |
0 |
if (-e $env) { } |
|
219
|
0 |
0 |
if (my $home = 'File::HomeDir'->my_home) |
|
221
|
0 |
0 |
if -e $candidate |
|
235
|
0 |
0 |
if $cfg->SectionExists($default) |
|
236
|
0 |
0 |
if $cfg->SectionExists($arch) |
|
237
|
0 |
0 |
unless (@p > 1) |
|
249
|
0 |
0 |
if ($p eq 'add' or $p eq 'reps') { } |
|
257
|
0 |
0 |
if $val =~ /$on/i |
|
258
|
0 |
0 |
if ($val =~ /$off/i) |
|
262
|
0 |
0 |
if ($legal_progs{$p}) { } |
|
|
0 |
0 |
elsif ($legal_upload{$p}) { } |
|
272
|
0 |
0 |
if %programs |
|
273
|
0 |
0 |
if %upload |
|
274
|
0 |
0 |
check_opts(%cfg) ? : |
|
283
|
0 |
0 |
if (defined $$h1{$opt} or defined $$h2{$opt}) |
|
285
|
0 |
0 |
if $$h1{$opt} |
|
286
|
0 |
0 |
if $$h2{$opt} |
|
292
|
0 |
0 |
unless defined $$h1{$_} or defined $$h2{$_} |
|
294
|
0 |
0 |
if (defined $$h1{$_}) { } |
|
295
|
0 |
0 |
if (defined $$h2{$_}) { } |
|
313
|
0 |
0 |
if (defined $$progs{'tar'} and defined $$progs{'gzip'}) { } |
|
|
0 |
0 |
elsif (not $os or $os =~ /Win32/i or not $arch or $arch =~ /Win32/i) { } |
|
326
|
0 |
0 |
if ($@) { } |
|
347
|
0 |
0 |
if (defined $$progs{'zip'} and defined $$progs{'unzip'}) { } |
|
353
|
0 |
0 |
if ($@) { } |
|
361
|
0 |
0 |
if ($zipv >= 1.02) { } |
|
383
|
0 |
0 |
unless ($has{$_}) |
|
396
|
0 |
0 |
if $@ |
|
398
|
0 |
0 |
if $@ |
|
405
|
0 |
0 |
if ($ENV{'PATHEXT'}) { } |
|
427
|
0 |
0 |
unless $program |
|
431
|
0 |
0 |
if ($home and 1) |
|
436
|
0 |
0 |
if -x $base |