line |
true |
false |
branch |
23
|
0 |
0 |
if ($attr{'dbi'}) |
24
|
0 |
0 |
unless $attr{'dbi'} =~ /^dbi:/i |
25
|
0 |
0 |
unless defined $attr{'user'} |
26
|
0 |
0 |
unless defined $attr{'password'} |
30
|
0 |
0 |
unless UNIVERSAL::isa($attr{'dbh'}, 'DBI::db') |
32
|
0 |
0 |
if defined $attr{'dbh_ro'} and not UNIVERSAL::isa($attr{'dbh_ro'}, 'DBI::db') |
37
|
0 |
0 |
if %attr |
41
|
0 |
0 |
defined $attr{'table'} ? : |
46
|
0 |
0 |
if $@ |
47
|
0 |
0 |
unless UNIVERSAL::isa($$self{'idtype'}, 'SeeAlso::Identifier') |
61
|
0 |
0 |
if (defined $attr{'label'}) { } |
67
|
0 |
0 |
if (defined $attr{'description'}) { } |
73
|
0 |
0 |
if (defined $attr{'uri'}) { } |
96
|
0 |
0 |
$attr{$c} ? : |
99
|
0 |
0 |
if $attr{'build'} |
110
|
0 |
0 |
$$self{'dbh_ro'} ? : |
111
|
0 |
0 |
unless my $sth = $dbh->prepare_cached($$self{'select'}) |
113
|
0 |
0 |
unless $sth->execute($key) |
130
|
0 |
0 |
unless (UNIVERSAL::isa($identifier, $$self{'idtype'})) |
135
|
0 |
0 |
if ($$self{'key'} eq 'hash') { } |
|
0 |
0 |
elsif ($$self{'key'} eq 'value') { } |
|
0 |
0 |
elsif ($$self{'key'} eq 'canonical') { } |
|
0 |
0 |
elsif (ref $$self{'key'} eq 'CODE') { } |
152
|
0 |
0 |
unless $$self{'dbh'}->do($$self{'create'}) |
159
|
0 |
0 |
unless $$self{'dbh'}->do($$self{'clear'}) |
166
|
0 |
0 |
unless $$self{'dbh'}->do($$self{'drop'}) |
173
|
0 |
0 |
unless $$self{'dbh'}->do($$self{'delete'}, undef, $self->key($identifier)) |
188
|
0 |
0 |
unless UNIVERSAL::isa($response, 'SeeAlso::Response') |
191
|
0 |
0 |
unless $response->size |
200
|
0 |
0 |
unless defined $$self{'label'} |
201
|
0 |
0 |
unless defined $$self{'descr'} |
202
|
0 |
0 |
unless defined $$self{'uri'} |
213
|
0 |
0 |
unless ref $sub eq 'CODE' |
228
|
0 |
0 |
defined $$self{'label'} ? : |
229
|
0 |
0 |
defined $$self{'descr'} ? : |
230
|
0 |
0 |
defined $$self{'uri'} ? : |
234
|
0 |
0 |
if (defined $$self{'label'}) |
237
|
0 |
0 |
if (defined $$self{'descr'}) |
240
|
0 |
0 |
if (defined $$self{'uri'}) |
252
|
0 |
0 |
unless defined $file |
254
|
0 |
0 |
defined $param{'label'} ? : |
255
|
0 |
0 |
defined $param{'descr'} ? : |
256
|
0 |
0 |
defined $param{'uri'} ? : |
258
|
0 |
0 |
unless open FILE, $file |
263
|
0 |
0 |
unless $line |