| line |
true |
false |
branch |
|
31
|
0 |
0 |
unless $self->db_schema |
|
33
|
0 |
0 |
if (@{$self->db_schema;} == 1 and $self->db_schema->[0] ne "%" and lc $self->db_schema->[0] ne lc $current_schema) |
|
38
|
0 |
0 |
if (not defined $self->preserve_case) { } |
|
|
0 |
0 |
elsif ($self->preserve_case) { } |
|
104
|
0 |
0 |
unless my $deferrable = $self->dbh->selectrow_array($deferrable_sth, undef, $table->schema, $table->name, $rel->{'_constraint_name'}) |
|
106
|
0 |
0 |
$deferrable =~ /^DEFERRABLE/i ? : |
|
146
|
0 |
0 |
if $table_comment |
|
164
|
0 |
0 |
if $column_comment |
|
195
|
0 |
0 |
if (my($seq_schema, $seq_name) = $trigger_body =~ /(?:"?(\w+)"?\.)?"?(\w+)"?\.nextval/i) |
|
196
|
0 |
0 |
if (my($col_name) = $trigger_body =~ /:new\.(\w+)/i) |
|
204
|
0 |
0 |
$self->qualify_objects ? : |
|
210
|
0 |
0 |
$DBD::Oracle::VERSION >= 1.52 ? : |
|
225
|
0 |
0 |
if ($data_type =~ /^(?:n(?:var)?char2?|u?rowid|nclob|timestamp\(\d+\)(?: with(?: local)? time zone)?|binary_(?:float|double))\z/i) |
|
228
|
0 |
0 |
if ($data_type =~ /^u?rowid\z/i) |
|
233
|
0 |
0 |
if ($info->{'data_type'} =~ /^(?:n?[cb]lob|long(?: raw)?|bfile|date|binary_(?:float|double)|rowid)\z/i) |
|
237
|
0 |
0 |
if ($info->{'data_type'} =~ /^n(?:var)?char2?\z/i) { } |
|
|
0 |
0 |
elsif ($info->{'data_type'} =~ /^(?:var)?char2?\z/i) { } |
|
|
0 |
0 |
elsif (lc($info->{'data_type'}) =~ /^(?:number|decimal)\z/i) { } |
|
|
0 |
0 |
elsif (my($precision) = $info->{'data_type'} =~ /^timestamp\((\d+)\)(?: with (?:local )?time zone)?\z/i) { } |
|
|
0 |
0 |
elsif ($info->{'data_type'} =~ /timestamp/i and ref $info->{'size'} and $info->{'size'}[0] == 0) { } |
|
|
0 |
0 |
elsif (($precision) = $info->{'data_type'} =~ /^interval year\((\d+)\) to month\z/i) { } |
|
|
0 |
0 |
elsif (my($day_precision, $second_precision) = $info->{'data_type'} =~ /^interval day\((\d+)\) to second\((\d+)\)\z/i) { } |
|
|
0 |
0 |
elsif ($info->{'data_type'} =~ /^interval year to month\z/i and ref $info->{'size'}) { } |
|
|
0 |
0 |
elsif ($info->{'data_type'} =~ /^interval day to second\z/i and ref $info->{'size'}) { } |
|
|
0 |
0 |
elsif (lc $info->{'data_type'} eq 'float') { } |
|
|
0 |
0 |
elsif (lc $info->{'data_type'} eq 'double precision') { } |
|
|
0 |
0 |
elsif (lc $info->{'data_type'} eq 'urowid' and $info->{'size'} == 4000) { } |
|
|
0 |
0 |
elsif ($info->{'data_type'} eq '-9104') { } |
|
|
0 |
0 |
elsif ($info->{'data_type'} eq '-2') { } |
|
|
0 |
0 |
elsif (lc $info->{'data_type'} eq 'date') { } |
|
|
0 |
0 |
elsif (lc $info->{'data_type'} eq 'binary_float') { } |
|
|
0 |
0 |
elsif (lc $info->{'data_type'} eq 'binary_double') { } |
|
238
|
0 |
0 |
if (ref $info->{'size'}) { } |
|
246
|
0 |
0 |
if (ref $info->{'size'}) |
|
254
|
0 |
0 |
if $info->{'size'}[0] == 38 |
|
|
0 |
0 |
if (&try(sub {
$info->{'size'}[1] == 0 if $info->{'size'}[0] == 38;
}
)) |
|
264
|
0 |
0 |
if ($precision == 6) { } |
|
274
|
0 |
0 |
unless $size == 6 |
|
279
|
0 |
0 |
if ($precision == 2) { } |
|
289
|
0 |
0 |
if ($day_precision == 2 and $second_precision == 6) { } |
|
299
|
0 |
0 |
if ($precision == 2) { } |
|
307
|
0 |
0 |
if ($info->{'size'}[0] == 2 and $info->{'size'}[1] == 6) |
|
315
|
0 |
0 |
if ($info->{'size'} <= 63) { } |
|
330
|
0 |
0 |
if ($size <= 63) |
|
360
|
0 |
0 |
unless (defined $info->{'default_value'}) |
|
373
|
0 |
0 |
if (defined $default) |
|
376
|
0 |
0 |
if ($default =~ /^'(.*?)'\z/) { } |
|
|
0 |
0 |
elsif ($default =~ /^(-?\d.*?)\z/) { } |
|
|
0 |
0 |
elsif ($default =~ /^NULL\z/i) { } |
|
|
0 |
0 |
elsif ($default ne '') { } |
|
393
|
0 |
0 |
if ((&try(sub {
lc ${$info->{'default_value'};};
}
) || '') eq "sysdate") |