| line |
true |
false |
branch |
|
95
|
1 |
4 |
if $self->mgenerate |
|
96
|
3 |
2 |
if $self->mreindex |
|
97
|
1 |
4 |
if $self->mupdate |
|
98
|
1 |
4 |
if $self->mbackup |
|
151
|
63 |
0 |
if (my $file = $self->_parse_archive('cpan', $_, 1)) { } |
|
170
|
0 |
1 |
if $last <= $lastid |
|
175
|
0 |
72870 |
unless $nntp->article($id) |
|
176
|
72866 |
4 |
unless $article |
|
178
|
0 |
4 |
unless $object |
|
182
|
4 |
0 |
if ($object->parse_upload) |
|
195
|
0 |
4 |
unless $name and $version and $cpanid and $date |
|
200
|
1 |
3 |
if @rows |
|
212
|
1 |
0 |
if (my(@journals) = $self->_find_journals) { } |
|
214
|
1 |
0 |
if ($driver =~ /(CSV|SQLite)/i and not $backups{$driver}{'exists'}) |
|
221
|
0 |
1 |
if $journal =~ /TMP$/ |
|
236
|
0 |
0 |
if ($backups{$driver}{'exists'}) { } |
|
|
0 |
0 |
elsif ($driver =~ /(CSV|SQLite)/i) { } |
|
255
|
0 |
1 |
if ($backups{'CSV'}) |
|
258
|
0 |
0 |
unless my $fh1 = 'IO::File'->new('uploads', 'r') |
|
259
|
0 |
0 |
unless my $fh2 = 'IO::File'->new($backups{'CSV'}{'dbfile'}, 'w+') |
|
270
|
3 |
2 |
if $mess |
|
272
|
4 |
1 |
if ($full) |
|
316
|
0 |
189 |
unless ($name and defined $version and $cpanid and $date) |
|
325
|
126 |
63 |
if (@rows) { } |
|
326
|
63 |
63 |
if ($type ne $rows[0][0]) |
|
328
|
0 |
63 |
if $update and $type ne 'backpan' |
|
333
|
0 |
63 |
if $update |
|
344
|
3 |
1 |
if (@index) { } |
|
345
|
2 |
1 |
if ($date > $index[0]{'released'}) |
|
363
|
0 |
1 |
unless my $nntp = 'Net::NNTP'->new('nntp.perl.org') |
|
373
|
2 |
4 |
unless (-f $f) |
|
379
|
2 |
4 |
if ($id) { } |
|
390
|
0 |
1 |
unless $$self{'current'} = 'IO::AtomicFile'->new($file, 'w+') |
|
418
|
0 |
1 |
unless my $fh = 'IO::File'->new($journal, 'r') |
|
454
|
25 |
87 |
if defined $hash{$_} |
|
457
|
1 |
13 |
if $options{'help'} |
|
458
|
1 |
12 |
if $options{'version'} |
|
460
|
1 |
2 |
unless $options{'generate'} or $options{'update'} or $options{'backup'} or $options{'reindex'} |
|
462
|
1 |
10 |
unless $options{'config'} |
|
463
|
1 |
9 |
unless -f $options{'config'} |
|
469
|
1 |
8 |
if ($options{'generate'}) |
|
471
|
0 |
1 |
unless $dir |
|
472
|
0 |
1 |
unless -d $dir |
|
477
|
7 |
2 |
if ($options{'generate'} or $options{'update'}) |
|
479
|
0 |
7 |
unless $dir |
|
480
|
0 |
7 |
unless -d $dir |
|
483
|
1 |
8 |
if ($options{'reindex'}) |
|
487
|
6 |
3 |
if $options{'update'} |
|
494
|
0 |
9 |
unless $cfg->SectionExists('UPLOADS') |
|
497
|
0 |
9 |
unless $db |
|
501
|
1 |
8 |
if ($options{'backup'}) |
|
502
|
0 |
1 |
unless $cfg->SectionExists('BACKUPS') |
|
507
|
1 |
1 |
unless ($available_drivers{$driver}) |
|
512
|
0 |
1 |
unless $cfg->SectionExists($driver) |
|
515
|
1 |
0 |
$driver =~ /SQLite/i ? : |
|
518
|
0 |
1 |
if ($driver =~ /CSV/i) |
|
526
|
0 |
1 |
unless $backups{$driver}{'db'} |
|
529
|
1 |
0 |
if keys %backups |
|
535
|
0 |
122 |
unless my $log = $self->logfile |
|
536
|
2 |
120 |
unless -f $log |
|
538
|
5 |
117 |
$self->logclean ? : |
|
544
|
0 |
122 |
unless my $fh = 'IO::File'->new($log, $mode) |