| line |
true |
false |
branch |
|
141
|
1 |
6 |
$self->random ? : |
|
142
|
0 |
7 |
$self->prefer_bin ? : |
|
143
|
7 |
0 |
unless $self->{'warnings'} |
|
146
|
0 |
3 |
unless (&Params::Util::_HASH(scalar $self->minicpan) or defined &Params::Util::_STRING(scalar $self->minicpan) and -d $self->minicpan) |
|
156
|
0 |
7 |
unless (&Params::Util::_CODELIKE(scalar $self->callback)) |
|
159
|
3 |
4 |
if (defined $self->ignore) { } |
|
160
|
0 |
3 |
unless (&Params::Util::_ARRAYLIKE(scalar $self->ignore)) |
|
171
|
2 |
5 |
if (defined $author) |
|
178
|
3 |
4 |
unless defined $self->{'acme'} |
|
180
|
3 |
4 |
unless ($self->{'acme'}) |
|
186
|
0 |
7 |
unless (-d $self->authors) |
|
210
|
4 |
3 |
if (&Params::Util::_HASH(scalar $self->minicpan)) |
|
219
|
1 |
6 |
if ($self->random) |
|
229
|
0 |
28 |
unless $dist =~ s[^[A-Z]/[A-Z][A-Z]/][] |
|
230
|
0 |
28 |
unless ($dist =~ /^([A-Z]+)/) |
|
238
|
0 |
32 |
if (defined &Params::Util::_STRING($filter)) |
|
242
|
20 |
12 |
if (&Params::Util::_REGEX($filter)) { } |
|
|
12 |
0 |
elsif (&Params::Util::_CODELIKE($filter)) { } |
|
243
|
3 |
17 |
if $dist =~ /$filter/ |
|
245
|
5 |
7 |
if &$filter({'counter', $counter, 'archive', $archive, 'dist', $dist, 'author', $author}) |
|
255
|
8 |
20 |
if $skip |
|
259
|
20 |
0 |
unless ($self->prefer_bin) |
|
260
|
0 |
20 |
if $dist =~ /\bHarvey-\d/ |
|
261
|
0 |
20 |
if $dist =~ /\bText-SenseClusters\b/ |
|
262
|
0 |
20 |
if $dist =~ /\bBio-Affymetrix\b/ |
|
263
|
0 |
20 |
if $dist =~ /\bAlien-MeCab\b/ |
|
278
|
0 |
20 |
if ($@ or not $ok) |
|
279
|
0 |
0 |
if ($self->warnings > 1) { } |
|
|
0 |
0 |
elsif ($self->warnings) { } |
|
290
|
0 |
20 |
unless (-r $extracted and -x $extracted) |
|
324
|
4 |
3 |
&Params::Util::_HASH(scalar $self->minicpan) ? : |