Branch Coverage

blib/lib/TableData/Object/aoaos.pm
Criterion Covered Total %
branch 58 68 85.2


line true false branch
18 17 10 if ($spec) { }
29 8 2 if (@$data) { }
81 0 7 unless $#{$row;} >= $colidx
82 1 6 unless defined $row->[$colidx]
83 1 5 if $mem{$row->[$colidx]}++
102 0 8 unless $#{$row;} >= $colidx
104 3 5 if ($i == 0) { }
106 1 2 unless defined $val
108 2 3 if ($val_undef) { }
109 0 2 if defined $_
111 0 3 unless defined $row->[$colidx]
112 1 2 unless $val eq $row->[$colidx]
126 1 3 unless defined $idx
137 2 4 if ($i > $idx) { }
3 1 elsif ($i == $idx) { }
146 3 0 if ($self->{'spec'})
149 3 3 if (not exists $self->{'cols_by_name'}{$name}) { }
164 1 3 unless defined $idx
166 0 3 unless length $new_name
167 1 2 if $new_name eq $old_name
168 1 1 if $new_name =~ /\A\d+\z/
172 1 0 if ($self->{'spec'})
182 1 3 unless defined $idx1
184 1 2 unless defined $idx2
185 1 1 if $idx1 == $idx2
194 1 0 if ($self->{'spec'})
203 1 4 if defined $self->col_name($name)
205 3 1 if (defined $idx) { }
206 2 1 unless $idx >= 0 and $idx <= $col_count
213 2 5 if $self->{'cols_by_name'}{$_} >= $idx
217 2 0 if ($self->{'spec'})
220 2 5 if defined $f->{'pos'} and $f->{'pos'} >= $idx
222 0 2 defined $spec ? :
237 1 1 unless defined $col_name