| line |
true |
false |
branch |
|
76
|
0 |
0 |
if ($field->is_foreign_key) |
|
110
|
19 |
342 |
if (UNIVERSAL::isa($_[0], $table_class)) { } |
|
114
|
0 |
342 |
ref $_[0] eq 'HASH' ? : |
|
116
|
1 |
341 |
unless $table = $table_class->new(\%args) |
|
125
|
1 |
359 |
if (defined $self->_tables->{$table_name}) { } |
|
154
|
2 |
3 |
if (UNIVERSAL::isa($_[0], $table_class)) { } |
|
162
|
1 |
4 |
unless (exists $self->_tables->{$table_name}) |
|
168
|
2 |
2 |
if ($cascade) |
|
199
|
2 |
32 |
if (UNIVERSAL::isa($_[0], $procedure_class)) { } |
|
203
|
0 |
32 |
ref $_[0] eq 'HASH' ? : |
|
205
|
0 |
32 |
unless $args{'name'} |
|
206
|
0 |
32 |
unless $procedure = $procedure_class->new(\%args) |
|
211
|
0 |
34 |
unless my $procedure_name = $procedure->name |
|
214
|
0 |
34 |
if (defined $self->_procedures->{$procedure_name}) { } |
|
242
|
1 |
2 |
if (UNIVERSAL::isa($_[0], $proc_class)) { } |
|
248
|
1 |
2 |
unless (exists $self->_procedures->{$proc_name}) |
|
280
|
2 |
77 |
if (UNIVERSAL::isa($_[0], $trigger_class)) { } |
|
284
|
0 |
77 |
ref $_[0] eq 'HASH' ? : |
|
286
|
0 |
77 |
unless $args{'name'} |
|
287
|
0 |
77 |
unless $trigger = $trigger_class->new(\%args) |
|
293
|
0 |
79 |
unless my $trigger_name = $trigger->name |
|
294
|
0 |
79 |
if (defined $self->_triggers->{$trigger_name}) { } |
|
321
|
1 |
2 |
if (UNIVERSAL::isa($_[0], $trigger_class)) { } |
|
327
|
1 |
2 |
unless (exists $self->_triggers->{$trigger_name}) |
|
359
|
3 |
40 |
if (UNIVERSAL::isa($_[0], $view_class)) { } |
|
363
|
0 |
40 |
ref $_[0] eq 'HASH' ? : |
|
365
|
0 |
40 |
unless $args{'name'} |
|
366
|
0 |
40 |
unless $view = $view_class->new(\%args) |
|
370
|
0 |
43 |
unless my $view_name = $view->name |
|
372
|
1 |
42 |
if (defined $self->_views->{$view_name}) { } |
|
399
|
1 |
2 |
if (UNIVERSAL::isa($_[0], $view_class)) { } |
|
405
|
1 |
2 |
unless (exists $self->_views->{$view_name}) |
|
438
|
1 |
16 |
unless $self->get_tables |
|
441
|
0 |
62 |
unless $object->is_valid |
|
460
|
0 |
1 |
unless my $procedure_name = shift() |
|
462
|
0 |
1 |
unless exists $self->_procedures->{$procedure_name} |
|
483
|
13 |
10 |
if (@procedures) { } |
|
484
|
13 |
0 |
wantarray ? : |
|
504
|
1 |
451 |
unless my $table_name = shift() |
|
506
|
0 |
451 |
if ($case_insensitive) |
|
509
|
0 |
0 |
if $table_name eq uc $table |
|
514
|
49 |
402 |
unless exists $self->_tables->{$table_name} |
|
535
|
275 |
4 |
if (@tables) { } |
|
536
|
259 |
16 |
wantarray ? : |
|
556
|
0 |
2 |
unless my $trigger_name = shift() |
|
558
|
0 |
2 |
unless exists $self->_triggers->{$trigger_name} |
|
579
|
26 |
17 |
if (@triggers) { } |
|
580
|
26 |
0 |
wantarray ? : |
|
600
|
1 |
3 |
unless my $view_name = shift() |
|
602
|
1 |
2 |
unless exists $self->_views->{$view_name} |
|
623
|
39 |
36 |
if (@views) { } |
|
624
|
39 |
0 |
wantarray ? : |
|
668
|
0 |
0 |
unless my $field_name = $field->name |
|
669
|
0 |
0 |
if $skip_fields{$field_name} |
|
670
|
0 |
0 |
if $field->is_primary_key |
|
676
|
0 |
0 |
if $join_pk_only and not defined $pk{$field} |
|
679
|
0 |
0 |
unless scalar @table_names > 1 |
|
682
|
0 |
0 |
unless my $table1 = $self->get_table($table_names[$i]) |
|
685
|
0 |
0 |
unless my $table2 = $self->get_table($table_names[$j]) |
|
686
|
0 |
0 |
if $table1->name eq $table2->name |