| line |
true |
false |
branch |
|
73
|
0 |
0 |
if ($field->is_foreign_key) |
|
107
|
18 |
315 |
if (UNIVERSAL::isa($_[0], $table_class)) { } |
|
112
|
0 |
315 |
ref $_[0] eq 'HASH' ? : |
|
114
|
1 |
314 |
unless $table = $table_class->new(\%args) |
|
123
|
1 |
331 |
if (defined $self->_tables->{$table_name}) { } |
|
153
|
2 |
3 |
if (UNIVERSAL::isa($_[0], $table_class)) { } |
|
162
|
1 |
4 |
unless (exists $self->_tables->{$table_name}) |
|
168
|
2 |
2 |
if ($cascade) |
|
200
|
2 |
32 |
if (UNIVERSAL::isa($_[0], $procedure_class)) { } |
|
205
|
0 |
32 |
ref $_[0] eq 'HASH' ? : |
|
207
|
0 |
32 |
unless $args{'name'} |
|
208
|
0 |
32 |
unless $procedure = $procedure_class->new(\%args) |
|
213
|
0 |
34 |
unless my $procedure_name = $procedure->name |
|
216
|
0 |
34 |
if (defined $self->_procedures->{$procedure_name}) { } |
|
246
|
1 |
2 |
if (UNIVERSAL::isa($_[0], $proc_class)) { } |
|
253
|
1 |
2 |
unless (exists $self->_procedures->{$proc_name}) |
|
286
|
2 |
70 |
if (UNIVERSAL::isa($_[0], $trigger_class)) { } |
|
291
|
0 |
70 |
ref $_[0] eq 'HASH' ? : |
|
293
|
0 |
70 |
unless $args{'name'} |
|
294
|
0 |
70 |
unless $trigger = $trigger_class->new(\%args) |
|
300
|
0 |
72 |
unless my $trigger_name = $trigger->name |
|
301
|
0 |
72 |
if (defined $self->_triggers->{$trigger_name}) { } |
|
329
|
1 |
2 |
if (UNIVERSAL::isa($_[0], $trigger_class)) { } |
|
336
|
1 |
2 |
unless (exists $self->_triggers->{$trigger_name}) |
|
369
|
3 |
40 |
if (UNIVERSAL::isa($_[0], $view_class)) { } |
|
374
|
0 |
40 |
ref $_[0] eq 'HASH' ? : |
|
376
|
0 |
40 |
unless $args{'name'} |
|
377
|
0 |
40 |
unless $view = $view_class->new(\%args) |
|
381
|
0 |
43 |
unless my $view_name = $view->name |
|
383
|
1 |
42 |
if (defined $self->_views->{$view_name}) { } |
|
411
|
1 |
2 |
if (UNIVERSAL::isa($_[0], $view_class)) { } |
|
418
|
1 |
2 |
unless (exists $self->_views->{$view_name}) |
|
451
|
1 |
16 |
unless $self->get_tables |
|
454
|
0 |
62 |
unless $object->is_valid |
|
473
|
0 |
1 |
unless my $procedure_name = shift() |
|
475
|
0 |
1 |
unless exists $self->_procedures->{$procedure_name} |
|
497
|
13 |
10 |
if (@procedures) { } |
|
498
|
13 |
0 |
wantarray ? : |
|
519
|
1 |
434 |
unless my $table_name = shift() |
|
521
|
0 |
434 |
if ($case_insensitive) |
|
524
|
0 |
0 |
if $table_name eq uc $table |
|
529
|
46 |
388 |
unless exists $self->_tables->{$table_name} |
|
551
|
268 |
4 |
if (@tables) { } |
|
552
|
252 |
16 |
wantarray ? : |
|
573
|
0 |
2 |
unless my $trigger_name = shift() |
|
575
|
0 |
2 |
unless exists $self->_triggers->{$trigger_name} |
|
597
|
26 |
17 |
if (@triggers) { } |
|
598
|
26 |
0 |
wantarray ? : |
|
619
|
1 |
3 |
unless my $view_name = shift() |
|
621
|
1 |
2 |
unless exists $self->_views->{$view_name} |
|
643
|
39 |
35 |
if (@views) { } |
|
644
|
39 |
0 |
wantarray ? : |
|
690
|
0 |
0 |
unless my $field_name = $field->name |
|
691
|
0 |
0 |
if $skip_fields{$field_name} |
|
692
|
0 |
0 |
if $field->is_primary_key |
|
698
|
0 |
0 |
if $join_pk_only and not defined $pk{$field} |
|
701
|
0 |
0 |
unless scalar @table_names > 1 |
|
704
|
0 |
0 |
unless my $table1 = $self->get_table($table_names[$i]) |
|
707
|
0 |
0 |
unless my $table2 = $self->get_table($table_names[$j]) |
|
708
|
0 |
0 |
if $table1->name eq $table2->name |