Branch Coverage

blib/lib/TableData/Object/Base.pm
Criterion Covered Total %
branch 36 42 85.7


line true false branch
15 1 7 if defined $_ and not &isint($_) and not &isfloat($_)
37 0 42 if ($name_or_idx =~ /\A[0-9][1-9]*\z/) { }
46 6 39 if ($name_or_idx =~ /\A[0-9][1-9]*\z/) { }
49 23 16 exists $self->{'cols_by_name'}{$name_or_idx} ? :
56 11 42 if ($name_or_idx =~ /\A[0-9][1-9]*\z/) { }
57 10 1 $name_or_idx < @{$self->{'cols_by_idx'};} ? :
76 24 4 if ($cols0) { }
81 4 31 if ($col0 eq '*') { }
84 4 27 unless $self->col_exists($col0)
89 3 32 if $excl_cols and grep {$add eq $_;} @$excl_cols
120 4 61 unless not $func_filter_row or &$func_filter_row($self, $row)
125 4 16 if ($sorts and @$sorts)
130 0 4 unless my($reverse, $col) = $sortcol =~ /\A(-?)(.+)/
132 0 4 if defined $col_is_numeric{$col}
134 0 4 if ($sch) { }
139 0 4 unless defined $col_name
152 4 1 $reverse ? :
4 1 $col_is_numeric{$col} ? :
153 5 0 if $cmp
164 48 13 if ($_as eq 'aoaos') { }
182 16 4 if ($_as eq 'aoaos') { }