| line |
true |
false |
branch |
|
43
|
0 |
947 |
unless $class and $class =~ /^CPAN::/ |
|
95
|
0 |
0 |
if ($id =~ /$ext/) |
|
98
|
0 |
0 |
unless $dist_name and $dist_id |
|
136
|
0 |
901 |
if $id =~ /^Bundle::/ |
|
175
|
0 |
10 |
unless ($id =~ /^Bundle::/) |
|
189
|
4 |
0 |
unless ($regex =~ /(^Bundle::|[\^\$\*\+\?\|])/i) |
|
192
|
0 |
4 |
if $regex eq "^" |
|
273
|
995 |
0 |
if ($mods and ref $mods eq "ARRAY") |
|
288
|
0 |
2 |
if (-e $journal_file) |
|
293
|
1 |
1 |
if (-e $db and -s _) { } |
|
299
|
0 |
1 |
if (system @args, "check") |
|
304
|
1 |
0 |
unless ($force) |
|
305
|
1 |
0 |
if $time - $mtime_db < $CPAN::Config->{'index_expire'} * 86400 |
|
310
|
0 |
1 |
if -e _ |
|
314
|
0 |
1 |
if ($CPAN::SQLite::DBI::dbh) |
|
318
|
0 |
1 |
unless system(@args) == 0 |
|
325
|
0 |
0 |
unless $obj->index |
|
331
|
0 |
0 |
unless $obj->index |
|
339
|
0 |
0 |
if (my $sth = $dbh->prepare('SELECT status FROM info WHERE status = 1')) { } |
|
340
|
0 |
0 |
if ($sth->execute) { } |
|
341
|
0 |
0 |
if ($sth->fetchrow_arrayref) { } |
|
367
|
0 |
1 |
unless $time |
|
376
|
0 |
0 |
unless ($pathname =~ m[^\w/\w\w/]) |
|
382
|
0 |
0 |
$dist && $download ? : |