Branch Coverage

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


line true false branch
120 1 42 unless my $type = $self->type
121 0 42 unless my $table = $self->table
122 1 41 unless my(@fields) = $self->fields
123 0 41 unless my $table_name = $table->name
126 45 1 if $table->get_field($f)
130 0 40 unless my $schema = $table->schema
133 13 27 if ($type eq 'FOREIGN KEY') { }
0 27 elsif ($type eq 'CHECK') { }
134 1 12 if scalar @fields > 1
137 1 11 unless my $ref_table_name = $self->reference_table
140 3 8 unless my $ref_table = $schema->get_table($ref_table_name)
143 1 7 unless my(@ref_fields) = $self->reference_fields
145 0 7 if scalar @ref_fields > 1
149 6 1 if $ref_table->get_field($ref_field)
155 0 0 unless $self->expression
187 30 2605 unless $table->get_field($_)
30 2370 unless $self->field_names(@_)
190 242 0 @fields ? :
2158 242 wantarray ? :
311 0 249 unless my $table = $self->table
312 10 239 unless my $schema = $table->schema
313 21 218 if (my $ref_table_name = $self->reference_table)
314 3 18 unless my $ref_table = $schema->get_table($ref_table_name)
317 17 1 if (my $constraint = $ref_table->primary_key) { }