Branch Coverage

blib/lib/BW/DB.pm
Criterion Covered Total %
branch 0 100 0.0


line true false branch
26 0 0 if ($$self{'connect'} or $$self{'dsn'} or $$self{'database'} or $$self{'dbengine'})
55 0 0 if ($self->connect) { }
0 0 elsif ($$self{'dsn'}) { }
0 0 elsif ($$self{'dbname'}) { }
0 0 elsif ($$self{'database'}) { }
57 0 0 if (scalar @dsnarray == 2) { }
74 0 0 if (lc $dbengine eq 'sqlite')
76 0 0 if $dbengine
77 0 0 if $dbname
79 0 0 if $$self{'user'}
80 0 0 if $$self{'password'}
81 0 0 unless $dsn
82 0 0 if $database
83 0 0 if $dbname
84 0 0 if $host
85 0 0 if $port
86 0 0 if $socket
89 0 0 if $DBI::errstr
90 0 0 unless $$self{'dbh'}
100 0 0 unless my $query = shift()
103 0 0 unless $$self{'dbh'}
104 0 0 unless $$self{'dbh'}
107 0 0 if ($DBI::err) { }
121 0 0 unless my $query = shift()
124 0 0 unless $$self{'dbh'}
125 0 0 unless $$self{'dbh'}
128 0 0 if ($DBI::err) { }
0 0 elsif ($rc and ref $rc eq 'ARRAY') { }
143 0 0 unless my $query = shift()
146 0 0 unless $$self{'dbh'}
147 0 0 unless $$self{'dbh'}
150 0 0 if ($DBI::err) { }
0 0 elsif ($rc and ref $rc eq 'ARRAY') { }
165 0 0 unless my $query = shift()
168 0 0 unless $$self{'dbh'}
169 0 0 unless $$self{'dbh'}
172 0 0 if ($DBI::err) { }
0 0 elsif ($rc and ref $rc eq 'ARRAY') { }
186 0 0 unless my $self = shift()
187 0 0 unless my $table = shift()
188 0 0 unless my $nvpairs = shift()
192 0 0 unless $$self{'dbh'}
193 0 0 unless $$self{'dbh'}
199 0 0 unless @cols and @vals
208 0 0 unless $$self{'dbh'}->do($query, undef, @vals)
224 0 0 unless my $table_name = shift()
226 0 0 if ($$self{'dbengine'} eq 'SQLite') { }
0 0 elsif ($$self{'dbengine'} eq 'mysql') { }
231 0 0 if ($self->error) { }
243 0 0 unless defined $t