| line |
true |
false |
branch |
|
200
|
0 |
0 |
$self->load_strategy eq 0 ? : |
|
205
|
0 |
0 |
unless %$data |
|
227
|
0 |
0 |
$self->load_strategy eq 0 ? : |
|
268
|
0 |
0 |
unless $pl_sql =~ /;$/ |
|
270
|
0 |
0 |
if ($dbms eq 'oracle' and not $pl_sql =~ /begin/i) |
|
298
|
0 |
0 |
unless $pl_sql =~ /;$/ |
|
299
|
0 |
0 |
$bind_variables_definition ? : |
|
330
|
0 |
0 |
@args == 1 ? : |
|
349
|
0 |
0 |
@args == 1 ? : |
|
368
|
0 |
0 |
@args == 2 ? : |
|
389
|
0 |
0 |
@args == 2 ? : |
|
390
|
0 |
0 |
unless ref $columns eq 'ARRAY' |
|
398
|
0 |
0 |
!grep({lc $_ eq $column;} @$columns) ? : |
|
402
|
0 |
0 |
!grep({$_ eq $column;} @db_columns) ? : |
|
407
|
0 |
0 |
if (@missing or @additional) { } |
|
437
|
0 |
0 |
@args == 2 ? : |
|
441
|
0 |
0 |
unless $column_def |
|
442
|
0 |
0 |
exists $$column_def{'nullable'} ? : |
|
457
|
0 |
0 |
@args == 2 ? : |
|
461
|
0 |
0 |
unless $column_def |
|
462
|
0 |
0 |
exists $$column_def{'nullable'} ? : |
|
489
|
0 |
0 |
unless $tested_type =~ /$_/ |
|
|
0 |
0 |
if (scalar grep({$db_type eq $_ unless $tested_type =~ /$_/;} @$type_family) > 1) |
|
494
|
0 |
0 |
unless ($result) |
|
519
|
0 |
0 |
if ($result and $expected_width) |
|
523
|
0 |
0 |
$result ? : |
|
542
|
0 |
0 |
@args == 3 ? : |
|
547
|
0 |
0 |
unless ($column_def) |
|
553
|
0 |
0 |
if ($$column_def{'db_type'}) |
|
555
|
0 |
0 |
unless $type_name |
|
558
|
0 |
0 |
if (my $result = $self->_match_data_type(uc $type, uc $type_name, $width, uc $$column_def{'db_type'})) |
|
578
|
0 |
0 |
@args == 3 ? : |
|
583
|
0 |
0 |
unless ($column_def) |
|
588
|
0 |
0 |
unless ($$column_def{'default'} =~ /$quted_default/) |
|
607
|
0 |
0 |
@args == 2 ? : |
|
612
|
0 |
0 |
unless $column_def |
|
639
|
0 |
0 |
$table && !ref($table) ? : |
|
642
|
0 |
0 |
unless (@primary_key_columns) |
|
650
|
0 |
0 |
unless ($result) |
|
653
|
0 |
0 |
if ($result and $columns) |
|
654
|
0 |
0 |
unless ref $columns |
|
656
|
0 |
0 |
if (grep {$_ eq $colunm;} @primary_key_columns) { } |
|
663
|
0 |
0 |
unless ($result) |
|
689
|
0 |
0 |
@args == 3 ? : |
|
703
|
0 |
0 |
unless ref $columns |
|
705
|
0 |
0 |
if (lc $$columns[$i] ne $foreign_key_columns[$i]) { } |
|
712
|
0 |
0 |
unless ($result) |
|
720
|
0 |
0 |
if ($result) |
|
726
|
0 |
0 |
unless ($result) |
|
758
|
0 |
0 |
unless ($index_info and @$index_info) |
|
765
|
0 |
0 |
unless $index_info and @$index_info |
|
770
|
0 |
0 |
if (lc $$index_info[0]{'table_name'} ne lc $table) |
|
776
|
0 |
0 |
$index && @args ? : |
|
|
0 |
0 |
unless $columns |
|
778
|
0 |
0 |
if ($columns) { } |
|
779
|
0 |
0 |
unless ref $columns |
|
782
|
0 |
0 |
if (lc $index_columns[$i] ne lc $$columns[$i]) { } |
|
812
|
0 |
0 |
@args == 2 ? : |
|
817
|
0 |
0 |
unless $index_info and @$index_info |
|
833
|
0 |
0 |
@args == 2 ? : |
|
838
|
0 |
0 |
unless $index_info and @$index_info |
|
856
|
0 |
0 |
@args == 3 ? : |
|
862
|
0 |
0 |
unless ($index_info and @$index_info) |
|
866
|
0 |
0 |
if (lc $$index_info[0]{'index_type'} ne $type) |
|
885
|
0 |
0 |
@args == 2 ? : |
|
888
|
0 |
0 |
unless my $trigger_info = $connection->trigger_info($trigger, $schema) |
|
891
|
0 |
0 |
if lc $$trigger_info{'table_name'} ne lc $table |
|
906
|
0 |
0 |
@args == 1 ? : |
|
927
|
0 |
0 |
@args == 3 ? : |
|
932
|
0 |
0 |
unless ($trigger_info) |
|
936
|
0 |
0 |
if (lc $$trigger_info{'table_name'} ne lc $table) |
|
947
|
0 |
0 |
unless ($trigger_body_ =~ /$trigger_body/i) |
|
983
|
0 |
0 |
unless ($functions_info) |
|
988
|
0 |
0 |
unless ($functions_info) |
|
995
|
0 |
0 |
if ($args) |
|
996
|
0 |
0 |
unless ref $args eq 'ARRAY' |
|
1001
|
0 |
0 |
if $$routine_info{'return_type'} |
|
1006
|
0 |
0 |
if ($res) { } |
|
1013
|
0 |
0 |
if $result |
|
1016
|
0 |
0 |
if (not $result) { } |
|
1017
|
0 |
0 |
$$_{'return_type'} ? : |
|
1037
|
0 |
0 |
$arg =~ s/(IN OUT|IN|OUT|INOUT) //i ? : |
|
1039
|
0 |
0 |
if ($mode and lc $mode ne lc $$routine_arg{'mode'}) |
|
1044
|
0 |
0 |
unless $type |
|
1046
|
0 |
0 |
if ($name and lc $name ne lc $$routine_arg{'name'}) |
|
1050
|
0 |
0 |
if ($type and not $self->_check_type_family(lc $type, lc $$routine_arg{'type'})) |
|
1075
|
0 |
0 |
unless (shift())->{'_failed_test_info'} |
|
1091
|
0 |
0 |
@args == 2 ? : |
|
1094
|
0 |
0 |
unless ($functions_info) |
|
1098
|
0 |
0 |
unless $functions_info = $connection->routine_info($function, $schema) |
|
1103
|
0 |
0 |
if ($$routine_info{'routine_body'} =~ /$routine_body/) |
|
1162
|
0 |
0 |
if ($reset_sequences) |
|
1183
|
2 |
1 |
$_ =~ /\w+/ ? : |
|
1198
|
0 |
0 |
$dbms_name eq 'postgresql' ? : |
|
1200
|
0 |
0 |
if $object =~ /^\d+$/ |
|
1201
|
0 |
0 |
if ($object =~ /table\s+`*(\w+)`*/i) { } |
|
|
0 |
0 |
elsif ($object =~ /view\s+`*(\w+)`*/i) { } |
|
|
0 |
0 |
elsif ($object =~ /sequence\s+`*(\w+)`*/i) { } |
|
|
0 |
0 |
elsif ($object =~ /(procedure)\s+`*(\w+)`*/i or $object =~ /(function)\s+`*(\w+)`*/i) { } |
|
1203
|
0 |
0 |
if $connection->has_table($table) |
|
1207
|
0 |
0 |
if $connection->has_view($table) |
|
1212
|
0 |
0 |
if $connection->has_sequence($sequence) |
|
1216
|
0 |
0 |
if (my $routines_info = $connection->routine_info($function)) |
|
1218
|
0 |
0 |
if lc $type eq 'procedure' and $$routines_info{'return_type'} |
|
1220
|
0 |
0 |
lc $connection->dbms_name eq 'postgresql' ? : |
|
1263
|
1 |
4 |
unless $sql_statement =~ /\w+/ |
|
1265
|
3 |
1 |
unless ($object) |
|
1267
|
0 |
3 |
if $name |
|
1269
|
3 |
1 |
unless ($object) |
|
1273
|
1 |
3 |
$object =~ /trigger|function|procedure/i ? : |
|
1304
|
0 |
0 |
%pk_values ? : |
|
1306
|
0 |
0 |
if ($exists) |
|
1308
|
0 |
0 |
unless $pk_columns and @$pk_columns |
|
1310
|
0 |
0 |
$exists ? : |
|
1359
|
0 |
0 |
unless defined $value |
|
1390
|
0 |
1 |
if $self->load_strategy ne 0 |
|
1394
|
4 |
3 |
if $has_table{$table} |
|
1418
|
10 |
4 |
if @{$$dataset[$i + 1];} |
|
1439
|
0 |
0 |
if (ref $fields eq 'HASH' and not scalar %$fields) |
|
1440
|
0 |
0 |
if (my $rows = $self->count_table_rows($table_name, $connection)) |
|
1447
|
0 |
0 |
unless %values or %lob_values |
|
1451
|
0 |
0 |
if $result |
|
1466
|
0 |
0 |
$pk_columns && @$pk_columns ? : |
|
1489
|
0 |
1 |
if ($connection) |
|
1511
|
6 |
0 |
!(ref $values{$_} eq 'HASH') ? : |
|
1512
|
0 |
3 |
wantarray ? : |
|
1523
|
0 |
0 |
ref $values{$_} eq 'HASH' ? : |
|
1525
|
0 |
0 |
wantarray ? : |
|
1535
|
0 |
0 |
unless $lobs and keys %$lobs |
|
1539
|
0 |
0 |
if ($$lob_attr{'file'}) |
|
1556
|
0 |
0 |
if not defined $rows_no or $$expected_result{$table_name} ne $rows_no |
|
1573
|
0 |
0 |
if ($lob_values and %$lob_values) |
|
1575
|
0 |
0 |
if $result |
|
1579
|
0 |
0 |
if ($hash_key) { } |
|
1581
|
0 |
0 |
if ($$rows{$hash_key}) |
|
1582
|
0 |
0 |
if $result |
|
1587
|
0 |
0 |
unless $_ |
|
1590
|
0 |
0 |
unless $$dataset{$_} |
|
1591
|
0 |
0 |
if ($rowhash eq $exp_hash) |
|
1610
|
0 |
0 |
unless $lob_values and %$lob_values |
|
1612
|
0 |
0 |
$pk_column && @$pk_column ? : |
|
1618
|
0 |
0 |
if length($exp_lob_content || '') ne length($lob_content || '') or ($exp_lob_content || '') ne ($lob_content || '') |
|
1635
|
0 |
0 |
if (ref $fields eq 'HASH' and not scalar %$fields) |
|
1636
|
0 |
0 |
if (my $rows = $self->count_table_rows($table_name, $connection)) |
|
1645
|
0 |
0 |
if $result |
|
1674
|
0 |
0 |
!ref($$exp_dataset{$_}) ? : |
|
|
0 |
0 |
@$pk_columns ? : |
|
1675
|
0 |
0 |
if ($lob_values and %$lob_values) |
|
1677
|
0 |
0 |
if $result |
|
1683
|
0 |
0 |
if (grep {defined $_;} values %$record) |
|
1701
|
0 |
4 |
if (ref $$exp_dataset{$k}) |
|
1703
|
0 |
0 |
unless $result |
|
1708
|
1 |
3 |
if ($$dataset{$k} || '') ne ($$exp_dataset{$k} || '') |
|
1724
|
3 |
1 |
defined $$dataset{$_} ? : |
|
1759
|
0 |
0 |
$has_pk ? : |
|
1776
|
0 |
0 |
unless defined $$field_values{$_} |
|
1791
|
1 |
0 |
unless ($xml) |
|
1807
|
4 |
0 |
if ($parent_name eq 'dataset') { } |
|
1816
|
0 |
0 |
if (not scalar %$attributes) { } |
|
1822
|
0 |
0 |
if $value |
|
1843
|
0 |
0 |
if $record |
|
1866
|
0 |
0 |
unless open my $fh, '<', $file_name |