| line |
true |
false |
branch |
|
34
|
0 |
0 |
unless (defined $self->log) |
|
47
|
0 |
0 |
unless (defined $file) |
|
49
|
0 |
0 |
if (-f $_ . 'vfeed.db') |
|
56
|
0 |
0 |
if (not defined $file) { } |
|
|
0 |
0 |
elsif (not -f $file) { } |
|
79
|
0 |
0 |
unless my $dbh = 'DBI'->connect('dbi:SQLite:dbname=' . $self->file, '', '', {'RaiseError', 0, 'PrintError', 0, 'AutoCommit', 0, 'InactiveDestroy', 1, 'HandleError', sub {
my($errstr, $dbh, $arg) = @_;
$log->fatal("Database error: [$errstr]");
return 1;
}
}) |
|
89
|
0 |
0 |
unless ($v > 0) |
|
154
|
0 |
0 |
if (defined $$h[0] and defined $$h[0][0]) |
|
181
|
0 |
0 |
unless (defined $cve) |
|
200
|
0 |
0 |
unless my $h = $self->_get_info($info, $cve) |
|
251
|
0 |
0 |
if ($self->_dbh) |
|
273
|
0 |
0 |
if ($db->is_success) { } |
|
276
|
0 |
0 |
unless open my $in, '<', $dbFile |
|
283
|
0 |
0 |
if ($oldsha1 ne $sha1) { } |
|
308
|
0 |
0 |
if ($db->is_success) { } |
|
310
|
0 |
0 |
if (-f $tgz) |
|
313
|
0 |
0 |
unless open my $out, '>', $tgz |