line |
true |
false |
branch |
53
|
107 |
9 |
unless ($self->loader_class) |
57
|
107 |
0 |
if (not $self->isa($subclass) and $self->load_optional_class($subclass)) |
60
|
0 |
107 |
if $] < "5.009005" |
82
|
0 |
116 |
if (ref $quote_char eq "ARRAY") |
130
|
3 |
0 |
unless $self->db_schema |
138
|
12 |
0 |
$quoted ? : |
146
|
12 |
0 |
if ($schema_name) |
149
|
0 |
12 |
if (ref $system_schema) { } |
150
|
0 |
0 |
if $schema_name =~ /$system_schema/ and not $schema =~ /$system_schema/ |
155
|
0 |
12 |
if $schema_name eq $system_schema and $schema ne $system_schema |
160
|
0 |
12 |
if $matches |
167
|
0 |
0 |
if (ref $system_table) { } |
168
|
0 |
0 |
if $table_name =~ /$system_table/ |
171
|
0 |
0 |
if $table_name eq $system_table |
174
|
0 |
0 |
if $matches |
179
|
12 |
0 |
$self->_supports_db_schema ? : |
201
|
0 |
8 |
unless !!@parts == !!(ref $constraint eq "ARRAY") |
205
|
4 |
4 |
unless @parts |
210
|
4 |
0 |
if $name =~ /$re/ |
219
|
233 |
9 |
unless defined $constraint |
221
|
2 |
7 |
if ref $constraint eq "ARRAY" |
249
|
0 |
781 |
unless &try(sub {
local $^W = 0;
my $sth = $self->_sth_for($table, undef, \"1 = 0");
$sth->execute;
1;
}
, &catch(sub {
warn "Bad table or view '${table}', ignoring: $_\n";
0;
}
)) |
299
|
0 |
778 |
if $self->_disable_pk_detection |
310
|
27 |
751 |
unless @primary |
322
|
0 |
24 |
if $self->_disable_uniq_detection |
324
|
0 |
24 |
unless ($self->dbh->can("statistics_info")) |
338
|
0 |
0 |
if $row->{'TYPE'} eq "table" or defined $row->{'FILTER_CONDITION'} or not $row->{'INDEX_NAME'} or not defined $row->{'ORDINAL_POSITION'} |
348
|
0 |
0 |
unless @cols == grep($_, @cols) |
371
|
1536 |
4 |
unless ($comment) |
373
|
1536 |
0 |
if $info |
396
|
2194 |
2 |
if (not $comment and $dbh->can("column_info")) |
397
|
2194 |
0 |
if (my $sth = &try(sub {
$self->_dbh_column_info($dbh, undef, $table->schema, $table->name, $column_name);
}
)) |
410
|
0 |
24 |
if $self->_disable_fk_detection |
422
|
0 |
24 |
unless $sth |
447
|
0 |
0 |
if defined $update_rule |
448
|
0 |
0 |
if defined $delete_rule |
452
|
0 |
0 |
$is_deferrable == 7 ? : |
|
0 |
0 |
if defined $is_deferrable |
456
|
0 |
0 |
if defined $var |
459
|
0 |
0 |
if ($self->db_schema and $self->db_schema->[0] ne "%" and not &any(sub {
$_ eq $uk_scm;
}
, @{$self->db_schema;})) |
465
|
0 |
0 |
$self->_supports_db_schema ? : |
474
|
0 |
0 |
if $delete_rule |
475
|
0 |
0 |
if $update_rule |
476
|
0 |
0 |
if defined $is_deferrable |
492
|
0 |
0 |
exists $rels{$relid}{'attrs'} ? : |
511
|
778 |
0 |
if (my $sth = &try(sub {
$self->_dbh_column_info($dbh, undef, $table->schema, $table->name, "%");
}
)) |
513
|
0 |
2201 |
unless %$info |
520
|
21 |
2180 |
if (defined $size and defined $info->{'DECIMAL_DIGITS'}) { } |
|
262 |
1918 |
elsif (defined $size) { } |
527
|
1538 |
663 |
$info->{'NULLABLE'} ? : |
528
|
208 |
1993 |
if defined $info->{'COLUMN_DEF'} |
549
|
0 |
2201 |
unless $result{$columns[$i]} |
|
2201 |
0 |
if %{{} unless $result{$columns[$i]};} |
556
|
0 |
0 |
if (defined $size and defined $sth->{'SCALE'}[$i]) { } |
|
0 |
0 |
elsif (defined $size) { } |
563
|
0 |
0 |
$sth->{'NULLABLE'}[$i] ? : |
565
|
0 |
0 |
if ($column_info->{'data_type'} =~ /^(.*?)\((.*?)\)$/) |
581
|
0 |
2201 |
if (defined $type_num and $type_num =~ /^-?\d+\z/ and $dbh->can("type_info")) |
583
|
0 |
0 |
if $type_name |
588
|
306 |
472 |
unless ($self->preserve_case) |
595
|
0 |
306 |
if (keys %lc_colnames != keys %result) |
613
|
766 |
12 |
wantarray ? : |
624
|
0 |
0 |
$type_info ? : |
634
|
0 |
2314 |
unless $dbh->can("table_info") |
637
|
0 |
2314 |
unless $self->_table_info_matches($table, $info) |
684
|
0 |
778 |
unless my $info = $self->_dbh_table_info($self->dbh, $table) |