| line |
true |
false |
branch |
|
33
|
0 |
0 |
if ($_->isa('Getopt::Lucid::Exception::ARGV')) { } |
|
44
|
2 |
18 |
if $opt->get_help |
|
45
|
2 |
16 |
if $opt->get_version |
|
51
|
0 |
16 |
$opt->get_quiet ? : |
|
54
|
2 |
14 |
if ($opt->get_e) |
|
55
|
0 |
2 |
$^X > 5.009 ? : |
|
59
|
13 |
3 |
unless ($opt->get_minicpan) |
|
61
|
12 |
1 |
if ($config{'local'}) |
|
67
|
1 |
15 |
unless $opt->get_minicpan |
|
68
|
1 |
14 |
unless -d $opt->get_minicpan |
|
71
|
2 |
12 |
unless -d $id_dir |
|
80
|
1 |
11 |
if ($opt->get_output) |
|
92
|
324 |
84 |
unless /$archive_re/ |
|
94
|
49 |
35 |
if (@args) { } |
|
95
|
0 |
49 |
if $_ =~ /pm\.gz$/io |
|
97
|
28 |
21 |
if ($opt->get_append) |
|
98
|
14 |
14 |
if ($opt->get_append eq 'dist') { } |
|
119
|
1 |
11 |
if ($opt->get_output) |
|
137
|
0 |
3 |
unless defined $dir |
|
193
|
0 |
49 |
unless ($Archive::Extract::WARN) |
|
201
|
0 |
49 |
unless ($Archive::Extract::WARN) |
|
206
|
0 |
49 |
unless ($extract_ok) |
|
207
|
0 |
0 |
if $Archive::Extract::WARN |
|
214
|
49 |
0 |
if (@children == 1 and -d $children[0]) |
|
220
|
0 |
49 |
if ($rc == -1) |