| blib/lib/Test/App/CPANIDX/Database.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 17 | 22 | 77.2 |
| line | true | false | branch |
|---|---|---|---|
| 17 | 3 | 1 | unless defined $self{'unlink'} and not $self{'unlink'} |
| 19 | 0 | 4 | if defined $self{'dir'} and not -d 'File::Spec'->rel2abs($self{'dir'}) |
| 20 | 2 | 2 | if defined $self{'dir'} |
| 21 | 2 | 2 | $self{'dir'} ? : |
| 23 | 0 | 4 | unless my $dbh = 'DBI'->connect("dbi:SQLite:dbname=$db", '', '') |
| 27 | 0 | 84 | unless $dbh->do($sql) |
| 28 | 0 | 84 | unless $dbh->do('DELETE FROM ' . $table) |
| 49 | 0 | 16 | unless my $sth = $dbh->prepare($sql) |
| 59 | 4 | 4 | $self->{'dir'} ? : |
| 64 | 1 | 3 | unless $self->{'unlink'} |
| 65 | 2 | 1 | $self->{'dir'} ? : |