| blib/lib/Net/SinFP3/DB/SinFP3.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 0 | 34 | 0.0 |
| line | true | false | branch |
|---|---|---|---|
| 50 | 0 | 0 | unless (defined $file) |
| 52 | 0 | 0 | if (-f $_ . 'sinfp3.db') |
| 59 | 0 | 0 | if (not defined $file) { } |
| 0 | 0 | elsif (not -f $file) { } | |
| 112 | 0 | 0 | unless my $self = (shift())->SUPER::init(@_) |
| 130 | 0 | 0 | unless my $dbh = 'DBI'->connect('dbi:SQLite:dbname=' . $self->file, '', '', {'RaiseError', 0, 'PrintError', 0, 'AutoCommit', 0, 'HandleError', sub { my($errstr, $dbh, $arg) = @_; $log->fatal("Database error: [$errstr]"); return 1; } }) |
| 141 | 0 | 0 | unless $v > 0 |
| 146 | 0 | 0 | unless $v > 0 |
| 253 | 0 | 0 | if ($value) { } |
| 280 | 0 | 0 | if ($value) { } |
| 337 | 0 | 0 | if (exists $$h{'idSignature'}) { } |
| 517 | 0 | 0 | if ($self->_dbh) |
| 534 | 0 | 0 | if ($db->is_success) { } |
| 535 | 0 | 0 | unless open my $out, '>', $dbFile |
| 563 | 0 | 0 | if ($db->is_success) { } |
| 566 | 0 | 0 | unless open my $in, '<', $dbFile |
| 573 | 0 | 0 | if ($oldmd5 ne $md5) { } |