Branch Coverage

blib/lib/Tie/RDBM.pm
Criterion Covered Total %
branch 47 106 44.3


line true false branch
51 0 2 ref $_[0] ? :
54 0 2 unless $dsn
55 2 0 if ($opt) { }
57 12 8 unless exists $$opt{$_}
66 0 2 if (UNIVERSAL::isa($dsn, 'DBI::db')) { }
71 0 2 unless $dsn =~ /^dbi/
75 0 2 if $driver eq 'Oracle'
87 0 2 unless $dbh
100 2 0 if $haveStorable
113 2 0 if (defined $sth and $sth->execute ne '')
118 2 0 if $field_names{$$opt{'value'}}
122 0 2 unless ($structure_ok)
124 0 0 unless ($$opt{'create'} or $$opt{'drop'})
130 0 0 if $$opt{'drop'}
133 0 0 $keyless ? :
137 0 0 $keyless ? :
0 0 if $canfreeze
140 0 0 if $$opt{'DEBUG'}
141 0 0 unless ($dbh->do($q))
166 0 8 if exists $$self{'cached_value'}{$key}
170 0 8 $$self{'canfreeze'} ? :
176 0 8 unless $result
177 0 8 $$self{'canfreeze'} && $$result[1] ? :
184 0 5 if (ref $value and $$self{'canfreeze'})
193 0 5 if ($$self{'brokenselect'})
194 0 0 $self->EXISTS($key) ? :
207 0 1 if $sth->err
217 0 1 if $dbh->err
226 0 2 unless $sth
237 2 2 if ($$self{'fetchkeys'})
242 0 4 $$self{'canfreeze'} ? :
248 0 4 unless $sth->execute
250 3 1 defined $ref ? :
257 0 0 wantarray ? :
0 8 unless my $sth = $$self{'fetchkeys'}
259 3 5 unless ($r)
262 0 3 wantarray ? :
264 0 5 $$r[2] ? :
266 0 5 wantarray ? :
272 3 11 if $$self{$_}
274 2 0 if $$self{'dbh'}
289 0 5 if ($$self{'canfreeze'}) { }
303 0 5 unless $sth
310 0 4 if ($$self{'canfreeze'}) { }
324 0 4 unless $sth and $sth->rows
330 0 20 if ($$self{'canbind'})
332 0 0 unless $sth->execute(@bind_variables)
339 0 20 unless $sth and $sth->execute
345 5 0 if (not exists $$self{$tag}) { }
346 0 5 unless $q
347 0 5 if $$self{'DEBUG'}
349 0 5 unless $sth
353 0 0 if $q