Branch Coverage

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


line true false branch
125 1 42 unless my $type = $self->type
126 0 42 unless my $table = $self->table
127 1 41 unless my(@fields) = $self->fields
128 0 41 unless my $table_name = $table->name
131 45 1 if $table->get_field($f)
138 0 40 unless my $schema = $table->schema
142 13 27 if ($type eq 'FOREIGN KEY') { }
0 27 elsif ($type eq 'CHECK') { }
143 1 12 if scalar @fields > 1
146 1 11 unless my $ref_table_name = $self->reference_table
149 3 8 unless my $ref_table = $schema->get_table($ref_table_name)
152 1 7 unless my(@ref_fields) = $self->reference_fields
154 0 7 if scalar @ref_fields > 1
158 6 1 if $ref_table->get_field($ref_field)
167 0 0 unless $self->expression
199 27 2337 unless $table->get_field($_)
29 2131 unless $self->field_names(@_)
201 240 0 @fields ? :
1920 240 wantarray ? :
318 0 209 unless my $table = $self->table
319 9 200 unless my $schema = $table->schema
320 19 181 if (my $ref_table_name = $self->reference_table)
321 1 18 unless my $ref_table = $schema->get_table($ref_table_name)
324 17 1 if (my $constraint = $ref_table->primary_key) { }