| 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 |