Branch Coverage

blib/lib/SQL/Translator/Schema/Constraint.pm
Criterion Covered Total %
branch 39 48 81.2


line true false branch
125 1 28 unless my $type = $self->type
126 0 28 unless my $table = $self->table
127 1 27 unless my(@fields) = $self->fields
128 0 27 unless my $table_name = $table->name
131 31 1 if $table->get_field($f)
138 0 26 unless my $schema = $table->schema
142 10 16 if ($type eq 'FOREIGN KEY') { }
0 16 elsif ($type eq 'CHECK') { }
143 1 9 if scalar @fields > 1
146 1 8 unless my $ref_table_name = $self->reference_table
149 3 5 unless my $ref_table = $schema->get_table($ref_table_name)
152 1 4 unless my(@ref_fields) = $self->reference_fields
154 0 4 if scalar @ref_fields > 1
158 3 1 if $ref_table->get_field($ref_field)
167 0 0 unless $self->expression
199 30 2098 unless $table->get_field($_)
29 1867 unless $self->field_names(@_)
201 140 0 @fields ? :
1756 140 wantarray ? :
318 0 204 unless my $table = $self->table
319 9 195 unless my $schema = $table->schema
320 9 186 if (my $ref_table_name = $self->reference_table)
321 1 8 unless my $ref_table = $schema->get_table($ref_table_name)
324 7 1 if (my $constraint = $ref_table->primary_key) { }