| line |
true |
false |
branch |
|
103
|
14 |
0 |
if ($_[0] and sub {
|
|
106
|
0 |
0 |
unless $conf = "CPANPLUS::Configure"->new
|
|
133
|
7680 |
406 |
if (@_) { }
|
|
158
|
7678 |
2 |
@rv == 1 ? :
|
|
183
|
3 |
161 |
if (@_) { }
|
|
188
|
2 |
1 |
@rv == 1 ? :
|
|
255
|
1 |
79 |
unless my $args = do {
|
|
271
|
3 |
76 |
if (grep {$type eq $_;} 'CPANPLUS::Module::Author'->accessors) { }
|
|
277
|
79 |
0 |
if $aref
|
|
374
|
0 |
1 |
unless my $args = do {
|
|
391
|
1 |
0 |
sub {
|
|
395
|
0 |
1 |
unless $href->{$name}
|
|
398
|
1 |
0 |
!$flag ? :
|
|
478
|
0 |
49 |
unless my $args = check($tmpl, \%hash)
|
|
480
|
1 |
48 |
if sub { ;}->("module", $mod)
|
|
484
|
1 |
47 |
if (ref $mod)
|
|
490
|
3 |
44 |
unless ($mod =~ /[^\w:]/)
|
|
494
|
2 |
1 |
if sub { ;}->("module", $maybe)
|
|
498
|
1 |
44 |
if ($mod and -d "File::Spec"->rel2abs($mod))
|
|
509
|
1 |
0 |
unless $dist =~ /\-[0-9._]+$/
|
|
510
|
1 |
0 |
unless $dist =~ /\.[A-Za-z]+$/
|
|
521
|
1 |
0 |
if defined $modobj->package_version
|
|
525
|
1 |
0 |
if (my $pkgname = $modobj->package_name)
|
|
529
|
1 |
0 |
if $pkgname ne $modobj->package_name or not $pkgname =~ /-/
|
|
544
|
15 |
29 |
if ($mod =~ m[\w+://.+])
|
|
560
|
13 |
2 |
if defined $modobj->package_version
|
|
564
|
13 |
2 |
if (my $pkgname = $modobj->package_name)
|
|
568
|
13 |
0 |
if $pkgname ne $modobj->package_name or not $pkgname =~ /-/
|
|
577
|
1 |
28 |
if ((my $tmpmod = $mod) =~ s/\.pm$//i)
|
|
582
|
1 |
0 |
if sub { ;}->("module", $maybe)
|
|
595
|
0 |
28 |
if ($modobj->is_third_party)
|
|
606
|
0 |
28 |
unless ($dist)
|
|
616
|
3 |
25 |
if (defined $parts[0] and length $parts[0] == 1 and (defined $parts[1] and length $parts[1] == 2) and $parts[2] =~ /^$parts[0]/i and $parts[2] =~ /^$parts[1]/i) { }
|
|
630
|
28 |
0 |
if $guess
|
|
632
|
3 |
25 |
if (sub { ;}->("module", $maybe))
|
|
642
|
27 |
1 |
if $guess
|
|
645
|
10 |
18 |
if (sub {
|
|
|
17 |
1 |
elsif ($author and $version) { }
|
|
648
|
0 |
10 |
if ($maybe->package eq $mod) { }
|
|
|
10 |
0 |
elsif ($version) { }
|
|
|
0 |
0 |
elsif (not $version) { }
|
|
656
|
6 |
4 |
if ($author) { }
|
|
674
|
4 |
6 |
if ($maybe->package_name eq $pkg) { }
|
|
681
|
3 |
1 |
$ext ? :
|
|
706
|
1 |
5 |
if ($author and $author ne $modobj->author->cpanid)
|
|
725
|
7 |
10 |
unless $dist =~ /\.[A-Za-z]+$/
|
|
760
|
0 |
1 |
if sub { ;}->("module", $modobj)
|
|
762
|
1 |
0 |
unless ($author)
|
|
801
|
0 |
21 |
unless my $args = check($tmpl, \%hash)
|
|
808
|
21 |
0 |
if $self->_build_trees("uptodate", $uptodate, "use_stored", 0, "verbose", $conf->get_conf("verbose"))
|
|
868
|
0 |
7 |
unless my $type = shift()
|
|
879
|
0 |
7 |
unless my $aref = $cache->{$type}
|
|
904
|
2 |
0 |
if $aref
|
|
967
|
0 |
1 |
unless check($tmpl, \%hash)
|
|
969
|
1 |
0 |
-d $path ? :
|
|
970
|
0 |
0 |
unless $self->_mkdir("dir", $path)
|
|
997
|
4 |
6 |
unless ($i++)
|
|
998
|
0 |
4 |
unless $mod->_get_checksums_file(%opts)
|
|
1008
|
0 |
10 |
unless $mod->fetch(%opts)
|
|
1015
|
1 |
0 |
if ($index)
|
|
1017
|
0 |
3 |
unless $self->_update_source("name", $name, "verbose", $verbose, "path", $path)
|
|
1069
|
0 |
1 |
unless check($tmpl, \%hash)
|
|
1071
|
1 |
0 |
unless (-d $path)
|
|
1072
|
0 |
1 |
unless $self->_mkdir("dir", $path)
|
|
1093
|
0 |
1 |
-f $file ? :
|
|
1097
|
0 |
1 |
unless ($fh = "FileHandle"->new(">$file"))
|
|
1284
|
0 |
0 |
grep(/remote/i, @_) ? :
|