| line |
true |
false |
branch |
|
134
|
1 |
6 |
$self->random ? : |
|
135
|
0 |
7 |
$self->prefer_bin ? : |
|
136
|
7 |
0 |
unless $$self{'warnings'} |
|
139
|
0 |
3 |
unless (&Params::Util::_HASH($self->minicpan) or defined &Params::Util::_STRING($self->minicpan) and -d $self->minicpan) |
|
149
|
0 |
7 |
unless (&Params::Util::_CODELIKE($self->callback)) |
|
152
|
3 |
4 |
if (defined $self->ignore) { } |
|
153
|
0 |
3 |
unless (&Params::Util::_ARRAYLIKE($self->ignore)) |
|
164
|
2 |
5 |
if (defined $author) |
|
171
|
3 |
4 |
unless defined $$self{'acme'} |
|
173
|
3 |
4 |
unless ($$self{'acme'}) |
|
179
|
0 |
7 |
unless (-d $self->authors) |
|
203
|
4 |
3 |
if (&Params::Util::_HASH($self->minicpan)) |
|
212
|
1 |
6 |
if ($self->random) |
|
222
|
0 |
28 |
unless $dist =~ s[^[A-Z]/[A-Z][A-Z]/][] |
|
223
|
0 |
28 |
unless ($dist =~ /^([A-Z0-9-]+)/) |
|
231
|
0 |
32 |
if (defined &Params::Util::_STRING($filter)) |
|
235
|
20 |
12 |
if (&Params::Util::_REGEX($filter)) { } |
|
|
12 |
0 |
elsif (&Params::Util::_CODELIKE($filter)) { } |
|
236
|
3 |
17 |
if $dist =~ /$filter/ |
|
238
|
5 |
7 |
if &$filter({'counter', $counter, 'archive', $archive, 'dist', $dist, 'author', $author}) |
|
248
|
8 |
20 |
if $skip |
|
252
|
20 |
0 |
unless ($self->prefer_bin) |
|
253
|
0 |
20 |
if $dist =~ /\bHarvey-\d/ |
|
254
|
0 |
20 |
if $dist =~ /\bText-SenseClusters\b/ |
|
255
|
0 |
20 |
if $dist =~ /\bBio-Affymetrix\b/ |
|
256
|
0 |
20 |
if $dist =~ /\bAlien-MeCab\b/ |
|
271
|
0 |
20 |
if ($@ or not $ok) |
|
272
|
0 |
0 |
if ($self->warnings > 1) { } |
|
|
0 |
0 |
elsif ($self->warnings) { } |
|
283
|
0 |
20 |
unless (-r $extracted and -x $extracted) |
|
315
|
4 |
3 |
&Params::Util::_HASH($self->minicpan) ? : |