Branch Coverage

blib/lib/Teng/Row.pm
Criterion Covered Total %
branch 41 48 85.4


line true false branch
37 7 301 if @_
52 0 301 if ($self->{'_untrusted_row_data'}{$col})
57 267 34 unless ($data)
58 231 36 $self->{'table'} ? :
73 1 389 unless ($col)
77 387 2 if (exists $self->{'row_data'}{$col}) { }
78 3 384 if (exists $self->{'_dirty_columns'}{$col}) { }
100 28 8 if ($opts{'deflate'} or $self->handle->{'force_deflate_set_column'})
104 6 29 if (defined $self->{'row_data'}{$col} and defined $val and $self->{'row_data'}{$col} eq $val)
107 1 5 if (exists $self->{'_dirty_columns'}{$col})
115 2 28 if (ref $val eq "SCALAR")
146 1 33 if (ref $self eq "Teng::Row")
152 0 33 unless ($table)
156 23 10 if ($upd)
162 2 31 if ($where) { }
173 8 21 unless %$upd
177 21 0 if ($result > 0)
191 1 14 if (ref $self eq "Teng::Row")
209 0 52 unless ($table)
215 2 50 unless ($pk)
220 50 0 if (ref $pk eq 'ARRAY') { }
221 2 48 unless (@$pk)
227 4 44 unless (grep({exists $pks{$_};} @{$$self{"select_columns"};}) == @$pk)
233 0 0 unless (grep {$pk eq $_;} @{$$self{"select_columns"};})