Branch Coverage

blib/lib/Data/TableData/Object/aoaos.pm
Criterion Covered Total %
branch 62 72 86.1


line true false branch
20 17 10 if ($spec) { }
31 8 2 if (@$data) { }
61 1 3 unless $row_aos
105 0 7 unless $#{$row;} >= $colidx
106 1 6 unless defined $row->[$colidx]
107 1 5 if $mem{$row->[$colidx]}++
126 0 8 unless $#{$row;} >= $colidx
128 3 5 if ($i == 0) { }
130 1 2 unless defined $val
132 2 3 if ($val_undef) { }
133 0 2 if defined $_
135 0 3 unless defined $row->[$colidx]
136 1 2 unless $val eq $row->[$colidx]
150 1 3 unless defined $idx
161 2 4 if ($i > $idx) { }
3 1 elsif ($i == $idx) { }
170 3 0 if ($self->{'spec'})
173 3 3 if (not exists $self->{'cols_by_name'}{$name}) { }
188 1 3 unless defined $idx
190 0 3 unless length $new_name
191 1 2 if $new_name eq $old_name
192 1 1 if $new_name =~ /\A\d+\z/
196 1 0 if ($self->{'spec'})
206 1 3 unless defined $idx1
208 1 2 unless defined $idx2
209 1 1 if $idx1 == $idx2
218 1 0 if ($self->{'spec'})
227 1 5 if defined $self->col_name($name)
229 3 2 if (defined $idx) { }
230 2 1 unless $idx >= 0 and $idx <= $col_count
237 2 10 if $self->{'cols_by_name'}{$_} >= $idx
241 3 0 if ($self->{'spec'})
244 2 10 if defined $f->{'pos'} and $f->{'pos'} >= $idx
246 0 3 defined $spec ? :
252 3 6 $data ? :
263 1 1 unless defined $col_name