Branch Coverage

blib/lib/Class/PObject/Driver/DBI.pm
Criterion Covered Total %
branch 0 60 0.0


line true false branch
25 0 0 if ($type eq 'MD5') { }
0 0 elsif ($type eq 'ENCRYPT') { }
30 0 0 unless ($type =~ /^(CHAR|VARCHAR|INTEGER|TEXT|BLOB)(\([^\)]+\))?$/)
35 0 0 if ($column eq 'id') { }
52 0 0 unless (ref $terms)
56 0 0 unless (keys %$terms)
75 0 0 $cols ? :
77 0 0 if (defined $args)
80 0 0 if ($args->{'sort'})
147 0 0 if (defined $props->{'datasource'}{'Table'})
163 0 0 unless my $dbh = $self->dbh($object_name, $props)
164 0 0 unless my $table = $self->_tablename($object_name, $props, $dbh)
168 0 0 unless ($sth->execute(@$bind_params))
182 0 0 unless my $dbh = $self->dbh($object_name, $props)
183 0 0 unless my $table = $self->_tablename($object_name, $props, $dbh)
189 0 0 unless ($sth->execute(@$bind_params))
194 0 0 unless ($sth->rows)
211 0 0 unless (defined $id)
216 0 0 unless my $dbh = $self->dbh($object_name, $props)
217 0 0 unless my $table = $self->_tablename($object_name, $props, $dbh)
221 0 0 unless ($sth->execute($id))
234 0 0 unless my $dbh = $self->dbh($object_name, $props)
235 0 0 unless my $table = $self->_tablename($object_name, $props, $dbh)
239 0 0 unless ($sth->execute(@$bind_params))
252 0 0 unless my $dbh = $self->dbh($object_name, $props)
253 0 0 unless my $table = $self->_tablename($object_name, $props, $dbh)
254 0 0 unless ($dbh->do("DROP TABLE $table"))
268 0 0 unless my $dbh = $self->dbh($object_name, $props)
269 0 0 unless my $table = $self->_tablename($object_name, $props, $dbh)
274 0 0 unless ($sth->execute(@$bind_params))