| line |
true |
false |
branch |
|
284
|
45 |
16 |
if ($optname ne 'mirror') { }
|
|
288
|
14 |
2 |
if $mirror eq 'DEFAULT'
|
|
289
|
2 |
14 |
unless $mirror =~ m[/$]
|
|
290
|
2 |
14 |
unless $packages
|
|
293
|
14 |
18 |
$_ =~ m[^https?://] ? :
|
|
301
|
5 |
14 |
unless (@{$self->{'mirrors'};})
|
|
308
|
13 |
6 |
unless defined $self->{'maxdepth'}
|
|
312
|
0 |
19 |
if $self->{'perl'} =~ /[^0-9.]/
|
|
313
|
2 |
17 |
if ($self->{'perl'} =~ /\..*\./)
|
|
319
|
19 |
0 |
$first_found ? :
|
|
331
|
19 |
117 |
unless (@{$self->{'indices'};})
|
|
335
|
14 |
7 |
unless (exists $_parsed_index_cache{$url} and $_parsed_index_cache{$url}{'expiry'} > time)
|
|
359
|
13 |
1 |
unless substr($msg, -1, 1) eq "\n"
|
|
360
|
3 |
11 |
if (not $self->{'nowarnings'})
|
|
361
|
1 |
2 |
if ($self->{'fatalerrors'}) { }
|
|
377
|
28 |
12 |
if ($response->is_success) { }
|
|
388
|
125 |
53 |
if $core
|
|
390
|
113 |
65 |
$core && $core >= $args{'version'} ? :
|
|
404
|
125 |
65 |
if $module eq 'perl' or $self->_incore('module', $module, 'perl', $self->{'perl'}, 'version', $version)
|
|
409
|
62 |
3 |
$package ? :
|
|
412
|
3 |
62 |
unless &blessed($dist)
|
|
417
|
7 |
55 |
if $self->{'seen'}{$distname}++
|
|
436
|
8 |
44 |
$reqs{'-warning'} ? :
|
|
|
33 |
19 |
!exists $reqs{'-warning'} && $depth != $self->{'maxdepth'} ? :
|
|
459
|
55 |
72 |
if (ref $src)
|
|
461
|
46 |
21 |
if $contents = $self->_get_cached('post_process', $post_process, 'src', $this_url)
|
|
470
|
5 |
67 |
if ($cachefile =~ /Makefile.PL/) { }
|
|
476
|
46 |
26 |
if ($self->{'cachedir'} and -d $self->{'cachedir'} and -r $self->{'cachedir'} . "/$cachefile") { }
|
|
478
|
0 |
46 |
unless open my $cachefh, $self->{'cachedir'} . "/$cachefile"
|
|
484
|
14 |
12 |
if ($contents and $post_process)
|
|
487
|
3 |
2 |
if ($contents and $self->{'cachedir'} and -d $self->{'cachedir'})
|
|
489
|
0 |
3 |
unless open my $cachefh, '>', $self->{'cachedir'} . "/$cachefile"
|
|
534
|
0 |
14 |
unless open my $fh, '>', "$tempfile"
|
|
543
|
2 |
9 |
if (my(@members) = (sort {$a cmp $b;} grep({/$meta_file_re/;} $tar->list_files)))
|
|
548
|
1 |
13 |
if ('File::Type'->mime_type($file_data) eq 'application/zip') { }
|
|
|
10 |
3 |
elsif ('File::Type'->mime_type($file_data) =~ m[^application/x-(gzip|tar)$]) { }
|
|
|
1 |
2 |
elsif ('File::Type'->mime_type($file_data) eq 'application/x-bzip2') { }
|
|
550
|
1 |
0 |
if (my(@members) = (sort {$a cmp $b;} $zip->membersMatching($meta_file_re)))
|
|
556
|
0 |
1 |
unless open my $fh, '-|', ('bzip2', '-dc'), $tempfile
|
|
558
|
1 |
0 |
if ($fh)
|
|
564
|
46 |
9 |
if $meta_file
|
|
566
|
46 |
9 |
if ($meta_file) { }
|
|
568
|
4 |
42 |
if ($@ or not defined $meta_data) { }
|
|
578
|
3 |
39 |
$self->{'recommended'} ? :
|
|
|
0 |
42 |
$self->{'suggested'} ? :
|
|
588
|
7 |
5 |
if (not $self->{'usemakefilepl'}) { }
|
|
594
|
5 |
0 |
if ($makefilepl) { }
|
|
596
|
2 |
1 |
if ('HASH' eq ref $result) { }
|