Branch Coverage

blib/lib/TableData/Object/aoaos.pm
Criterion Covered Total %
branch 60 70 85.7


line true false branch
18 17 10 if ($spec) { }
29 8 2 if (@$data) { }
59 1 3 unless $row_aos
103 0 7 unless $#{$row;} >= $colidx
104 1 6 unless defined $row->[$colidx]
105 1 5 if $mem{$row->[$colidx]}++
124 0 8 unless $#{$row;} >= $colidx
126 3 5 if ($i == 0) { }
128 1 2 unless defined $val
130 2 3 if ($val_undef) { }
131 0 2 if defined $_
133 0 3 unless defined $row->[$colidx]
134 1 2 unless $val eq $row->[$colidx]
148 1 3 unless defined $idx
159 2 4 if ($i > $idx) { }
3 1 elsif ($i == $idx) { }
168 3 0 if ($self->{'spec'})
171 3 3 if (not exists $self->{'cols_by_name'}{$name}) { }
186 1 3 unless defined $idx
188 0 3 unless length $new_name
189 1 2 if $new_name eq $old_name
190 1 1 if $new_name =~ /\A\d+\z/
194 1 0 if ($self->{'spec'})
204 1 3 unless defined $idx1
206 1 2 unless defined $idx2
207 1 1 if $idx1 == $idx2
216 1 0 if ($self->{'spec'})
225 1 4 if defined $self->col_name($name)
227 3 1 if (defined $idx) { }
228 2 1 unless $idx >= 0 and $idx <= $col_count
235 2 5 if $self->{'cols_by_name'}{$_} >= $idx
239 2 0 if ($self->{'spec'})
242 2 5 if defined $f->{'pos'} and $f->{'pos'} >= $idx
244 0 2 defined $spec ? :
259 1 1 unless defined $col_name