| line |
true |
false |
branch |
|
96
|
0 |
16 |
if (@_) |
|
112
|
6 |
140 |
if (@_) |
|
128
|
10 |
3 |
unless ($self->{'config'}) |
|
146
|
6 |
9 |
unless ($self->{'config'}) |
|
166
|
3 |
5 |
if (@_) |
|
168
|
3 |
5 |
unless $self->{'site'} |
|
187
|
1 |
1 |
if $self->site |
|
189
|
2 |
0 |
if $self->config->get("passive") |
|
193
|
3 |
0 |
unless $site =~ m[/$] |
|
195
|
0 |
3 |
if $verbose |
|
197
|
2 |
1 |
if (&get($site . "authors/01mailrc.txt.gz")) |
|
200
|
0 |
2 |
if $verbose |
|
205
|
0 |
2 |
unless $self->site |
|
220
|
0 |
1 |
unless -w $self->config->get("local") |
|
223
|
1 |
0 |
if $self->config->get("passive") |
|
230
|
0 |
1 |
unless $self->site or $options{'remote'} |
|
295
|
1 |
14 |
if $optionchk |
|
296
|
1 |
13 |
unless $self->config->get("repository") |
|
298
|
0 |
13 |
unless -w $self->config->get("repository") |
|
303
|
1 |
12 |
unless -r $options{'file'} |
|
310
|
8 |
4 |
if ($options{'module'}) |
|
315
|
1 |
11 |
unless (keys %$packages) |
|
319
|
1 |
0 |
if $optionchk |
|
324
|
3 |
8 |
unless exists $self->{'modulelist'} |
|
336
|
0 |
11 |
unless copy($options{'file'}, dirname($target)) |
|
357
|
13 |
0 |
defined $packages->{$_} ? : |
|
399
|
1 |
0 |
if $self->config->get("dirmode") |
|
402
|
0 |
1 |
unless exists $self->{'modulelist'} |
|
409
|
0 |
2 |
if $already_injected{$file}++ |
|
418
|
2 |
0 |
defined $dirmode ? : |
|
419
|
0 |
2 |
unless copy($source, $tdir) |
|
423
|
0 |
2 |
if $verbose |
|
490
|
0 |
2 |
if defined $author_ids_in_repo{$author} |
|
491
|
0 |
2 |
if defined $authors_added{$author} |
|
521
|
5 |
2 |
unless -e $ml |
|
523
|
0 |
2 |
unless open MODLIST, "<", $ml |
|
546
|
0 |
2 |
unless -w $self->{'config'}{'repository'} . "/modulelist" or -w $self->{'config'}{'repository'} |
|
547
|
0 |
2 |
unless defined $self->{'modulelist'} |
|
566
|
17 |
0 |
if $self->config->get("dirmode") |
|
576
|
3 |
29 |
unless defined $options->{$option} |
|
596
|
11 |
0 |
defined $dm ? : |
|
605
|
3 |
12 |
if $fw < length $module |
|
614
|
0 |
1 |
unless my $gzread = &gzopen($self->config->get("local") . "/modules/02packages.details.txt.gz", "rb") |
|
624
|
9 |
6 |
if ($inheader) |
|
625
|
1 |
8 |
unless $package =~ /\S/ |
|
641
|
0 |
1 |
unless my $gzwrite = &gzopen($self->config->get("local") . "/modules/02packages.details.txt.gz", "wb") |
|
672
|
0 |
1 |
unless my $gzread = &gzopen($self->config->get("local") . "/authors/01mailrc.txt.gz", "rb") |
|
696
|
0 |
1 |
unless my $gzwrite = &gzopen($self->config->get("local") . "/authors/01mailrc.txt.gz", "wb") |