| line |
true |
false |
branch |
|
41
|
0 |
7 |
unless my $dbname = $self->dbname
|
|
44
|
0 |
7 |
unless my $dbh = 'DBI'->connect("dbi:SQLite:dbname=$dbname", '', '', {'AutoCommit', 1, 'RaiseError', 1, 'private_was_connected_by', 'Lingua::Thesaurus::Storage::SQLite'})
|
|
88
|
0 |
3 |
if $dbh->tables(undef, undef, undef, 'TABLE')
|
|
92
|
2 |
1 |
$self->has_params ? :
|
|
101
|
2 |
1 |
if ($params->{'use_fulltext'})
|
|
105
|
1 |
1 |
if ($params->{'use_unaccent'})
|
|
127
|
2 |
1 |
$params->{'use_fulltext'} ? :
|
|
180
|
0 |
606 |
unless ref $related
|
|
189
|
236 |
1705 |
$is_external ? :
|
|
196
|
1705 |
236 |
if $inverse_id
|
|
216
|
10 |
0 |
if ($pattern)
|
|
217
|
6 |
4 |
if ($self->params->{'use_fulltext'}) { }
|
|
221
|
4 |
2 |
if $self->params->{'use_unaccent'}
|
|
231
|
2 |
4 |
if $n_paren and not $pattern =~ /"/
|
|
240
|
1 |
9 |
if (defined $origin)
|
|
241
|
1 |
0 |
$pattern ? :
|
|
262
|
2 |
3 |
if (defined $origin)
|
|
268
|
0 |
5 |
unless (my $id, $term_string, $origin) = $sth->fetchrow_array
|
|
285
|
0 |
10 |
if (defined $origin)
|
|
291
|
0 |
10 |
unless (my $term_string, $origin) = $sth->fetchrow_array
|
|
309
|
5 |
0 |
if ($rel_ids)
|
|
311
|
5 |
0 |
unless ref $rel_ids
|
|
327
|
4 |
10 |
$rel_type->is_external ? :
|
|
353
|
0 |
5 |
unless my $data = $sth->fetchrow_hashref
|