| blib/lib/AnnoCPAN/Perldoc/Filter.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 0 | 10 | 0.0 |
| line | true | false | branch |
|---|---|---|---|
| 18 | 0 | 0 | unless @$notes |
| 39 | 0 | 0 | if -e "$dir/$file" |
| 42 | 0 | 0 | unless ($db_file) |
| 46 | 0 | 0 | unless my $dbh = 'DBI'->connect("dbi:SQLite:dbname=$db_file") |
| 48 | 0 | 0 | unless my $notes = $dbh->selectall_arrayref("SELECT DISTINCT n.note note, n.user user, n.time time, np.pos pos\n FROM note n, notepos np, podver pv\n WHERE np.note=n.id AND np.podver=pv.id AND pv.signature=?\n ORDER by pos, time", {'Slice', {}}, $signature) |