| line |
true |
false |
branch |
|
458
|
1 |
1 |
unless defined $main::RD_ERRORS |
|
459
|
1 |
1 |
unless defined $main::RD_WARN |
|
460
|
2 |
0 |
unless defined $main::RD_HINT |
|
462
|
0 |
2 |
$translator->trace ? : |
|
468
|
0 |
2 |
unless defined $result |
|
469
|
0 |
2 |
if $DEBUG |
|
478
|
0 |
12 |
unless my $table = $schema->add_table('name', $tdata->{'name'}) |
|
498
|
0 |
48 |
unless my $field = $table->add_field('name', $fdata->{'name'}, 'data_type', $fdata->{'data_type'}, 'size', $fdata->{'size'}, 'default_value', $fdata->{'default'}, 'is_auto_increment', $fdata->{'is_auto_inc'}, 'is_nullable', $fdata->{'nullable'}, 'comments', $fdata->{'comments'}) |
|
501
|
0 |
48 |
if $fdata->{'is_primary_key'} |
|
504
|
0 |
192 |
if (my $val = $fdata->{$qual} || $$fdata{uc $qual}) |
|
505
|
0 |
0 |
if ref $val eq 'ARRAY' and not @$val |
|
510
|
0 |
48 |
if ($field->data_type =~ /(set|enum)/i and not $field->size) |
|
513
|
0 |
0 |
unless $extra{'list'} |
|
514
|
0 |
0 |
if $len > $longest |
|
516
|
0 |
0 |
if $longest |
|
520
|
0 |
0 |
unless $cdata->{'type'} eq 'foreign_key' |
|
526
|
11 |
1 |
unless $tdata->{'indices'} |
|
530
|
0 |
1 |
unless my $index = $table->add_index('name', $idata->{'name'}, 'type', uc $idata->{'type'}, 'fields', $idata->{'fields'}) |
|
534
|
7 |
5 |
unless $tdata->{'constraints'} |
|
543
|
0 |
7 |
unless my $constraint = $table->add_constraint('name', $cdata->{'name'}, 'type', $cdata->{'type'}, 'fields', $cdata->{'fields'}, 'reference_table', $cdata->{'reference_table'}, 'reference_fields', $cdata->{'reference_fields'}, 'match_type', $cdata->{'match_type'} || '', 'on_delete', $cdata->{'on_delete'} || $cdata->{'on_delete_do'}, 'on_update', $cdata->{'on_update'} || $cdata->{'on_update_do'}) |