| 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 |
|
489
|
0 |
2 |
if defined $author_ids_in_repo{$author} |
|
490
|
0 |
2 |
if defined $authors_added{$author} |
|
520
|
5 |
2 |
unless -e $ml |
|
522
|
0 |
2 |
unless open MODLIST, '<', $ml |
|
545
|
0 |
2 |
unless -w $self->{'config'}{'repository'} . '/modulelist' or -w $self->{'config'}{'repository'} |
|
546
|
0 |
2 |
unless defined $self->{'modulelist'} |
|
565
|
17 |
0 |
if $self->config->get('dirmode') |
|
575
|
3 |
29 |
unless defined $options->{$option} |
|
595
|
11 |
0 |
defined $dm ? : |
|
604
|
3 |
12 |
if $fw < length $module |
|
613
|
0 |
1 |
unless my $gzread = &gzopen($self->config->get('local') . '/modules/02packages.details.txt.gz', 'rb') |
|
623
|
9 |
6 |
if ($inheader) |
|
624
|
1 |
8 |
unless $package =~ /\S/ |
|
640
|
0 |
1 |
unless my $gzwrite = &gzopen($self->config->get('local') . '/modules/02packages.details.txt.gz', 'wb') |
|
671
|
0 |
1 |
unless my $gzread = &gzopen($self->config->get('local') . '/authors/01mailrc.txt.gz', 'rb') |
|
695
|
0 |
1 |
unless my $gzwrite = &gzopen($self->config->get('local') . '/authors/01mailrc.txt.gz', 'wb') |