| line |
true |
false |
branch |
|
112
|
2 |
7 |
unless defined $args and ref $args eq 'HASH' |
|
120
|
2 |
7 |
unless $valid_args{$k} |
|
122
|
1 |
6 |
if @invalid_args_seen |
|
127
|
1 |
5 |
unless exists $args->{$el} |
|
129
|
1 |
4 |
unless -d $args->{'path'} |
|
149
|
7 |
21 |
unless -d $dir |
|
155
|
1 |
3 |
if @dirs_missing |
|
210
|
2 |
0 |
if -r $self->{'path_versions_json'} |
|
214
|
1 |
1 |
if ($cpan_json eq $disk_json) { } |
|
249
|
15 |
3 |
$module->{'status'} eq 'testing' ? : |
|
261
|
0 |
18 |
if $major < 5 |
|
263
|
3 |
15 |
if ($module->{'status'} eq 'stable') { } |
|
297
|
0 |
1 |
unless chdir $self->{'CPANdir'} |
|
303
|
18 |
0 |
if ($id =~ /^(.)(.)/u) |
|
308
|
0 |
18 |
unless scalar @files |
|
345
|
0 |
1 |
unless chdir $self->{'srcdir'} |
|
368
|
15 |
3 |
unless $perl->{'status'} eq 'stable' |
|
410
|
0 |
1 |
unless chdir $self->{'srcdir'} |
|
422
|
0 |
1 |
$file->{'file'} =~ /bz2/u ? : |
|
430
|
0 |
1 |
$file->{'file'} =~ /bz2/u ? : |
|
437
|
0 |
1 |
unless chdir $self->{'cwd'} |
|
448
|
0 |
0 |
unless $cpan_json |
|
487
|
0 |
1 |
unless path($self->{'path_versions_json'})->spew_utf8($data) |
|
518
|
0 |
18 |
unless (defined($cksum = do $checksum)) |
|
524
|
18 |
0 |
if (open my $fh, "openssl sha1 $file |") |
|
526
|
18 |
0 |
if (/^SHA1\(.+?\)= ([0-9a-f]+)$/u) |
|
532
|
0 |
18 |
unless defined $sha1 |
|
548
|
0 |
54 |
if (-r $file) |
|
550
|
0 |
0 |
if $content eq $data |
|
553
|
0 |
54 |
unless path($file)->spew_utf8($data) |
|
570
|
0 |
23 |
if (-l $newfile and readlink $newfile ne $oldfile) |
|
573
|
23 |
0 |
unless -l $newfile |
|
605
|
0 |
0 |
unless $CPAN::Cpanorg::Auxiliary::b->{'version_major'} <=> $CPAN::Cpanorg::Auxiliary::a->{'version_major'} or int $CPAN::Cpanorg::Auxiliary::b->{'version_minor'} <=> int $CPAN::Cpanorg::Auxiliary::a->{'version_minor'} |
|
636
|
1 |
2 |
unless $lookup->{$minor_version} |