Branch Coverage

blib/lib/FabForce/DBDesigner4/Table.pm
Criterion Covered Total %
branch 0 74 0.0


line true false branch
43 0 0 if _checkArg('coords', $args{-'coords'})
44 0 0 if _checkArg('columns', $args{-'columns'})
45 0 0 if _checkArg('columnsdetails', $args{-'columnsdetails'})
46 0 0 if _checkArg('name', $args{-'name'})
47 0 0 if _checkArg('relations', $args{-'relations'})
48 0 0 if _checkArg('key', $args{-'key'})
49 0 0 if _checkArg('index', $args{-'index'})
50 0 0 if _checkArg('attribute', $args{-'attr'})
57 0 0 unless ($ar and _checkArg('columns', $ar))
63 0 0 if (defined $elem)
64 0 0 if $elem =~ /^varchar$/i
65 0 0 if $elem =~ /^enum$/i
82 0 0 if ($details and _checkArg('columndetails', $details))
102 0 0 unless $name
108 0 0 if ($key eq $name)
123 0 0 unless $ar and ref $ar eq 'ARRAY'
135 0 0 if not defined $col or $col eq ''
145 0 0 unless $ar and _checkArg('coords', $ar)
152 0 0 unless $value and _checkArg('name', $value)
159 0 0 unless $value and _checkArg('relations', $value)
166 0 0 unless $value and ref $value eq 'ARRAY' and scalar @$value == 4
173 0 0 unless defined $index or $index > scalar(@{$$self{'RELATIONS'};}) - 1
179 0 0 unless defined $index and defined $value
185 0 0 unless $value and _checkArg('key', $value)
192 0 0 unless $value and _checkArg('index', $value)
199 0 0 unless $value and _checkArg('attribute', $value)
207 0 0 unless (defined $$table{'_foreign_relations'})
218 0 0 if ($value)
222 0 0 if $type eq 'coords' and ref $value eq 'ARRAY' and scalar @$value == 4 and not grep({/\D/;} @$value)
226 0 0 if $type eq 'columns' and ref $value eq 'ARRAY' and not !grep({ref $_ eq 'HASH';} @$value)
228 0 0 if $type eq 'columndetails' and ref $value eq 'ARRAY'
230 0 0 if $type eq 'name' and ref \$value eq 'SCALAR'
235 0 0 if $type eq 'relations' and ref $value eq 'ARRAY' and not !grep({ref $_ eq 'ARRAY';} @$value)
239 0 0 if $type eq 'key' and ref $value eq 'ARRAY' and not !grep({ref \$_ eq 'SCALAR';} @$value)
243 0 0 if $type eq 'index' and ref $value eq 'ARRAY' and not !grep({ref \$_ eq 'SCALAR';} @$value)
245 0 0 if $type eq 'attribute' and ref $value eq 'HASH'
258 0 0 unless $rel