| line |
true |
false |
branch |
|
123
|
10 |
1 |
defined $_[0] ? :
|
|
141
|
0 |
1 |
unless -e $_
|
|
142
|
0 |
1 |
unless -d $_
|
|
146
|
1 |
0 |
if (-e $_) { }
|
|
147
|
0 |
1 |
unless -d $_
|
|
150
|
1 |
1 |
if $_ ne '.'
|
|
151
|
0 |
1 |
if @files
|
|
156
|
0 |
0 |
unless File::Path::make_path($self->dest, {'error', \$error})
|
|
239
|
0 |
8 |
unless $author and $pauseid
|
|
265
|
0 |
11 |
unless ($info->{'dist_filename'})
|
|
295
|
3 |
11 |
if (my $e = $$index{$package->name}) { }
|
|
296
|
0 |
3 |
if (defined $package->version and not defined $e->{'version'}) { }
|
|
|
0 |
3 |
elsif (not defined $package->version and defined $e->{'version'}) { }
|
|
304
|
0 |
3 |
if ($pkg_cmp == 1) { }
|
|
|
1 |
2 |
elsif ($pkg_cmp == 0) { }
|
|
308
|
0 |
1 |
if (&versioncmp(scalar $dist->version, $e->{'dist_version'}) == 1)
|
|
356
|
0 |
2 |
unless $gz->gzwrite(qq[alias $pauseid "$index->{$pauseid}"\n])
|
|
360
|
0 |
1 |
if $gz->gzclose
|
|
391
|
0 |
1 |
if $gz->gzclose
|
|
406
|
0 |
1 |
if $gz->gzclose
|
|
438
|
0 |
1 |
unless open my $fh, '>', $index_filename
|
|
449
|
0 |
1 |
unless close $fh
|
|
457
|
0 |
1 |
unless gzip($index_filename, $index_gz_fname)
|