| line |
true |
false |
branch |
| 95 |
12 |
0 |
if ($_[0] and sub {
|
| 98 |
0 |
0 |
unless $conf = 'CPANPLUS::Configure'->new |
| 125 |
16480 |
22 |
if (@_) { } |
| 130 |
16479 |
1 |
@rv == 1 ? : |
| 155 |
363 |
6 |
if (@_) { } |
| 160 |
362 |
1 |
@rv == 1 ? : |
| 224 |
1 |
13 |
unless my $args = check($tmpl, \%hash) |
| 229 |
4 |
9 |
if (grep {$type eq $_;} 'CPANPLUS::Module::Author'->accessors) { } |
| 235 |
13 |
0 |
if $aref |
| 340 |
0 |
1 |
unless my $args = check($tmpl, \%hash) |
| 347 |
1 |
0 |
sub {
|
| 351 |
0 |
1 |
unless $$href{$name} |
| 417 |
0 |
22 |
unless my $args = check($tmpl, \%hash) |
| 419 |
1 |
21 |
if sub {
|
| 423 |
0 |
21 |
if ref $mod |
| 426 |
3 |
18 |
unless ($mod =~ /[^\w:]/) |
| 430 |
2 |
1 |
if sub {
|
| 438 |
4 |
15 |
if ($mod =~ m[\w+://.+]) |
| 466 |
0 |
15 |
if ($modobj->is_third_party) |
| 477 |
0 |
15 |
unless ($dist) |
| 487 |
3 |
12 |
if (defined $parts[0] and length $parts[0] == 1 and (defined $parts[1] and length $parts[1] == 2) and $parts[2] =~ ('^' . $parts[0]) and $parts[2] =~ ('^' . $parts[1])) { } |
| 513 |
7 |
8 |
if (sub {
|
| |
7 |
1 |
elsif ($author and $version) { } |
| 516 |
0 |
7 |
if ($maybe->package eq $mod) { } |
| |
5 |
2 |
elsif ($maybe->package_name eq $pkg and $version) { } |
| |
2 |
0 |
elsif (not $version) { } |
| 526 |
3 |
2 |
if ($author) { } |
| 566 |
4 |
3 |
unless $dist =~ /\.[A-Za-z]+$/ |
| 593 |
1 |
0 |
unless ($author) |
| 632 |
0 |
19 |
unless my $args = check($tmpl, \%hash) |
| 639 |
19 |
0 |
if $self->_build_trees('uptodate', $uptodate, 'use_stored', 0, 'verbose', $conf->get_conf('verbose')) |
| 697 |
0 |
6 |
unless my $type = shift @_ |
| 708 |
0 |
6 |
unless my $aref = $$cache{$type} |
| 733 |
2 |
0 |
if $aref |
| 794 |
0 |
1 |
unless check($tmpl, \%hash) |
| 796 |
0 |
1 |
if (not -d $path) { } |
| |
0 |
1 |
elsif (not -w _) { } |
| 797 |
0 |
0 |
unless $self->_mkdir('dir', $path) |
| 824 |
8 |
1 |
unless ($i++) |
| 825 |
0 |
8 |
unless $mod->_get_checksums_file(%opts) |
| 835 |
0 |
9 |
unless $mod->fetch(%opts) |
| 842 |
1 |
0 |
if ($index) |
| 844 |
0 |
3 |
unless $self->_update_source('name', $name, 'verbose', $verbose, 'path', $path) |
| 889 |
0 |
1 |
unless check($tmpl, \%hash) |
| 891 |
0 |
1 |
unless (-d $path) |
| 892 |
0 |
0 |
unless $self->_mkdir('dir', $path) |
| 913 |
0 |
1 |
-f $file ? : |
| 917 |
0 |
1 |
unless ($fh = 'FileHandle'->new(">$file")) |