| line |
true |
false |
branch |
|
198
|
0 |
2 |
if (defined $self->{'argv'}{'configfile'}) |
|
200
|
0 |
0 |
unless (stat $self->{'argv'}{'configfile'}) |
|
206
|
0 |
0 |
unless (defined $fh) |
|
217
|
2 |
0 |
unless defined $self->{'argv'}{'interface'} |
|
218
|
2 |
0 |
unless defined $self->{'argv'}{'quote'} |
|
219
|
0 |
2 |
unless defined $self->{'argv'}{'connect'} |
|
220
|
2 |
0 |
unless defined $self->{'argv'}{'message_log'} |
|
221
|
2 |
0 |
unless defined $self->{'argv'}{'port'} |
|
224
|
0 |
2 |
unless (grep /^$self->{'argv'}{'interface'}$/i, "dbi") |
|
231
|
0 |
2 |
if (not defined $self->{'argv'}{'driver'} or $self->{'argv'}{'driver'} eq "") |
|
238
|
0 |
2 |
if (not defined $self->{'argv'}{'db'} or $self->{'argv'}{'db'} eq "") |
|
245
|
0 |
2 |
if (defined $self->{'argv'}{'tables'}) |
|
247
|
0 |
0 |
if (ref $self->{'argv'}{'tables'} ne "HASH") |
|
254
|
0 |
0 |
if (not defined $self->{'argv'}{'tables'}{$table}{'name'} or $self->{'argv'}{'tables'}{$table}{'name'} eq "") |
|
259
|
0 |
0 |
if (defined $self->{'argv'}{'tables'}{$table}{'cols'}) |
|
261
|
0 |
0 |
if (ref $self->{'argv'}{'tables'}{$table}{'cols'} ne "HASH") |
|
268
|
0 |
0 |
if ($self->{'argv'}{'tables'}{$table}{'cols'}{$field} eq "") |
|
279
|
0 |
2 |
if (defined $self->{'argv'}{'message_syslog_facility'} and not $self->{'argv'}{'message_syslog_facility'} =~ /^local[0-7]$/i) |
|
284
|
0 |
2 |
if (defined $self->{'argv'}{'message_syslog_service'} and $self->{'argv'}{'message_syslog_service'} =~ s/[a-zA-Z0-9\-\_]//g) |
|
289
|
0 |
2 |
if (defined $self->{'argv'}{'sql_save_name'} and $self->{'argv'}{'sql_save_name'} =~ s/[a-zA-Z0-9\-\_]//g) |
|
297
|
2 |
0 |
unless defined $self->{'argv'}{'interface_options'}{'RaiseError'} |
|
298
|
2 |
0 |
unless defined $self->{'argv'}{'interface_options'}{'PrintError'} |
|
301
|
0 |
2 |
if (grep /^$self->{'argv'}{'driver'}$/i, 'mysql', 'mariadb') { } |
|
|
0 |
2 |
elsif (grep /^$self->{'argv'}{'driver'}$/i, 'pg', 'postgres', 'postsql', 'pgsql') { } |
|
|
2 |
0 |
elsif (grep /^$self->{'argv'}{'driver'}$/i, 'sqlite', 'sqlite3') { } |
|
312
|
2 |
2 |
if stat $fn |
|
315
|
0 |
2 |
if ($fn eq "") |
|
321
|
0 |
2 |
if ($@) |
|
327
|
0 |
2 |
unless (defined $self->{'init'}{'plugin_fh'}) |
|
334
|
0 |
2 |
if ($self->{'init'}{'test_server'}) |
|
336
|
0 |
0 |
if ($self->{'argv'}{'server'} eq "") |
|
341
|
0 |
0 |
if ($self->{'argv'}{'port'} ne "" and $self->{'argv'}{'port'} =~ /^\D+$/ || ($self->{'argv'}{'port'} < 1 || $self->{'argv'}{'port'} > 65535)) |
|
350
|
0 |
2 |
unless defined $bless |
|
353
|
0 |
2 |
if $self->{'argv'}{'connect'} and $self->Open |
|
370
|
0 |
1 |
if ($self->{'init'}{'plugin_fh'}->can("Open") and $self->{'init'}{'plugin_fh'}->Open) |
|
375
|
1 |
0 |
if ($self->{'argv'}{'interface'} =~ /^dbi$/i) |
|
400
|
0 |
8 |
unless defined $self->{'init'}{'dbh'} |
|
405
|
0 |
8 |
if ($self->{'init'}{'plugin_fh'}->can("SelectCursor") and $self->{'init'}{'plugin_fh'}->SelectCursor($argv)) |
|
411
|
0 |
8 |
if defined $argv->{'message_log'} |
|
412
|
0 |
8 |
if defined $argv->{'quote'} |
|
413
|
0 |
8 |
if defined $argv->{'sql_save'} |
|
417
|
0 |
8 |
if defined $argv->{'message_log'} |
|
418
|
0 |
8 |
if defined $argv->{'quote'} |
|
419
|
0 |
8 |
if defined $argv->{'sql_save'} |
|
430
|
5 |
3 |
if ($argv->{'cursor_command'} != 1 and $argv->{'cursor_command'} != 4) |
|
432
|
5 |
0 |
if (not defined $argv->{'cursor'} or $argv->{'cursor'} eq "") |
|
434
|
0 |
5 |
unless (defined $argv->{'cursor_info'}) |
|
440
|
5 |
0 |
if (ref $argv->{'cursor_info'} eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $argv->{'cursor_info'} eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $argv->{'cursor_info'} eq 'SCALAR') { } |
|
448
|
1 |
1 |
unless defined $last |
|
|
2 |
3 |
if ($argv->{'cursor_command'} == 3) { } |
|
|
2 |
1 |
elsif ($argv->{'cursor_command'} == 2) { } |
|
|
1 |
0 |
elsif ($argv->{'cursor_command'} == 5) { } |
|
449
|
1 |
1 |
unless defined $first |
|
453
|
0 |
8 |
if (not defined $argv->{'cursor_key'} or ref $argv->{'cursor_key'} ne "") |
|
458
|
0 |
8 |
if (defined $argv->{'where'} and ref $argv->{'where'} ne "ARRAY") |
|
466
|
8 |
0 |
if (not defined $argv->{'order_by'}) { } |
|
|
0 |
0 |
elsif (ref $argv->{'order_by'} eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $argv->{'order_by'} eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $argv->{'order_by'} eq '') { } |
|
476
|
3 |
5 |
if ($argv->{'cursor_command'} == 1) { } |
|
|
1 |
4 |
elsif ($argv->{'cursor_command'} == 2) { } |
|
|
2 |
2 |
elsif ($argv->{'cursor_command'} == 3 or $argv->{'cursor_command'} == 5) { } |
|
|
2 |
0 |
elsif ($argv->{'cursor_command'} == 4) { } |
|
501
|
0 |
8 |
if (not defined $argv->{'limit'} or $argv->{'limit'} eq "") |
|
507
|
8 |
0 |
if @order |
|
510
|
8 |
0 |
unless defined $argv->{'notfound'} |
|
513
|
8 |
0 |
if $self->{'init'}{'cursor'}{'rc'} = $self->_Select(%{$argv;}) |
|
519
|
0 |
0 |
$self->{'init'}{'cursor'}{'lines'} ? : |
|
523
|
0 |
0 |
if (not defined $argv->{'cursor_info'}) { } |
|
|
0 |
0 |
elsif (ref $argv->{'cursor_info'} eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $argv->{'cursor_info'} eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $argv->{'cursor_info'} eq 'SCALAR') { } |
|
530
|
0 |
0 |
$argv->{'cursor_command'} == 2 ? : |
|
538
|
0 |
0 |
$argv->{'cursor_command'} == 2 ? : |
|
563
|
0 |
25 |
unless defined $self->{'init'}{'dbh'} |
|
568
|
0 |
25 |
if ($self->{'init'}{'plugin_fh'}->can("Select") and $self->{'init'}{'plugin_fh'}->Select($argv)) |
|
574
|
0 |
25 |
if defined $argv->{'message_log'} |
|
575
|
0 |
25 |
if defined $argv->{'quote'} |
|
576
|
1 |
24 |
if defined $argv->{'sql_save'} |
|
580
|
0 |
25 |
if defined $argv->{'message_log'} |
|
581
|
0 |
25 |
if defined $argv->{'quote'} |
|
582
|
1 |
24 |
if defined $argv->{'sql_save'} |
|
593
|
0 |
33 |
unless (defined $argv->{'table'}) |
|
599
|
30 |
3 |
if (ref $argv->{'table'} eq '') { } |
|
|
3 |
0 |
elsif (ref $argv->{'table'} eq 'ARRAY') { } |
|
605
|
0 |
6 |
if ($tables_tmp{$table}) |
|
622
|
26 |
7 |
if (defined $argv->{'fields'}) { } |
|
625
|
26 |
0 |
if (ref $argv->{'fields'} eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $argv->{'fields'} eq '') { } |
|
637
|
7 |
48 |
if (ref $field eq "HASH") |
|
643
|
3 |
52 |
if ($field =~ /^distinct$/i) { } |
|
|
0 |
52 |
elsif ($field =~ /^distinct\s+(.*)/i) { } |
|
653
|
52 |
3 |
unless ($field =~ /^\\/) |
|
655
|
5 |
46 |
$field =~ /^(.*?)\((.*)\)/ ? : |
|
|
1 |
51 |
$field =~ /^(.*?)\((.*?)\,(.*)\)/ ? : |
|
656
|
9 |
43 |
if ($value =~ /^(.*)\.(.*)$/) |
|
659
|
0 |
9 |
unless (grep /^$table$/i, @tables_work) |
|
667
|
3 |
52 |
if $distinct |
|
672
|
0 |
7 |
if (@tables_work > 1) { } |
|
676
|
0 |
0 |
unless (defined $self->{'argv'}{'tables'}{$table} and defined $self->{'argv'}{'tables'}{$table}{'cols'}) |
|
689
|
0 |
7 |
if (defined $self->{'argv'}{'tables'}{$tables_work[0]} and defined $self->{'argv'}{'tables'}{$tables_work[0]}{'cols'}) |
|
696
|
0 |
33 |
if (defined $argv->{'group_by'}) |
|
698
|
0 |
0 |
if (ref $argv->{'group_by'} eq '') { } |
|
|
0 |
0 |
elsif (ref $argv->{'group_by'} eq 'ARRAY') { } |
|
707
|
15 |
18 |
if (defined $argv->{'order_by'}) |
|
709
|
1 |
14 |
if (ref $argv->{'order_by'} eq '') { } |
|
|
1 |
13 |
elsif (ref $argv->{'order_by'} eq 'HASH') { } |
|
|
13 |
0 |
elsif (ref $argv->{'order_by'} eq 'ARRAY') { } |
|
722
|
0 |
33 |
$self->{'init'}{'alias_with_as'} ? : |
|
725
|
26 |
7 |
if (@fields_work) { } |
|
730
|
3 |
52 |
$fields_distinct{$field} ? : |
|
732
|
7 |
48 |
if (defined $fields_aliases{$field}) |
|
738
|
3 |
52 |
if ($field =~ /^\\(.*)/) |
|
740
|
1 |
2 |
$alias ? : |
|
748
|
1 |
51 |
if ($field =~ /^(.*?)\((.*?)\,(.*)\)/) { } |
|
|
5 |
46 |
elsif ($field =~ /^(.*?)\((.*)\)/) { } |
|
766
|
9 |
43 |
if ($field =~ /^(.*)\.(.*)$/) { } |
|
771
|
0 |
5 |
$field ne $realn ? : |
|
|
4 |
5 |
$alias ? : |
|
779
|
43 |
0 |
if (@tables_work == 1) { } |
|
782
|
0 |
41 |
$field ne $realn ? : |
|
|
2 |
41 |
$alias ? : |
|
790
|
0 |
0 |
$alias ? : |
|
803
|
0 |
33 |
if $self->_getWhere("select", \@tables_work, $argv->{'where'}, \$where) |
|
810
|
13 |
5 |
if (ref $field eq 'HASH') { } |
|
828
|
12 |
21 |
if $where |
|
829
|
0 |
33 |
if @group_work |
|
830
|
15 |
18 |
if @order |
|
831
|
7 |
26 |
if defined $argv->{'limit'} and $argv->{'limit'} > 0 |
|
845
|
33 |
0 |
if $self->_Call("command", $sql, "command_type", 0, "buffer", $argv->{'buffer'}, "buffer_options", $argv->{'buffer_options'}, "buffer_hashkey", $argv->{'buffer_hashkey'}, "buffer_arrayref", $argv->{'buffer_arrayref'}, "buffer_fields", @fields + 0, "make_only", $argv->{'make_only'}, "flush", $argv->{'flush'}, "sql_save", $argv->{'sql_save'}) |
|
846
|
0 |
0 |
if $self->getRows |
|
847
|
0 |
0 |
if $argv->{'notfound'} |
|
861
|
10 |
8 |
if ($field =~ /^(.*?)\.(.*?)$/) { } |
|
869
|
13 |
5 |
if ($order) |
|
872
|
6 |
0 |
$order eq 'DESC' ? : |
|
|
7 |
6 |
$order eq 'ASC' ? : |
|
892
|
1 |
1 |
unless defined $self->{'init'}{'dbh'} |
|
897
|
0 |
2 |
if ($self->{'init'}{'plugin_fh'}->can("Delete") and $self->{'init'}{'plugin_fh'}->Delete($argv)) |
|
903
|
0 |
2 |
if defined $argv->{'commit'} |
|
904
|
0 |
2 |
if defined $argv->{'message_log'} |
|
905
|
0 |
2 |
if defined $argv->{'quote'} |
|
906
|
0 |
2 |
if defined $argv->{'sql_save'} |
|
910
|
0 |
2 |
if defined $argv->{'commit'} |
|
911
|
0 |
2 |
if defined $argv->{'message_log'} |
|
912
|
0 |
2 |
if defined $argv->{'quote'} |
|
913
|
0 |
2 |
if defined $argv->{'sql_save'} |
|
924
|
0 |
2 |
if (not defined $argv->{'table'} and ref $argv->{'table'} ne "") |
|
931
|
0 |
2 |
if $self->_getWhere("delete", [$argv->{'table'}], $argv->{'where'}, \$where) |
|
932
|
0 |
2 |
if (!defined($where) || $where eq '' and not $argv->{'force'}) |
|
939
|
1 |
1 |
if $where |
|
951
|
2 |
0 |
if $self->_Call("command", $sql, "command_type", 1, "buffer", $argv->{'buffer'}, "buffer_options", $argv->{'buffer_options'}, "buffer_hashkey", $argv->{'buffer_hashkey'}, "buffer_arrayref", $argv->{'buffer_arrayref'}, "make_only", $argv->{'make_only'}, "flush", $argv->{'flush'}, "sql_save", $argv->{'sql_save'}) |
|
952
|
0 |
0 |
if $argv->{'notfound'} |
|
953
|
0 |
0 |
if ($self->getRows == 0) |
|
976
|
0 |
2 |
unless defined $self->{'init'}{'dbh'} |
|
981
|
0 |
2 |
if ($self->{'init'}{'plugin_fh'}->can("Insert") and $self->{'init'}{'plugin_fh'}->Insert($argv)) |
|
987
|
0 |
2 |
if defined $argv->{'commit'} |
|
988
|
0 |
2 |
if defined $argv->{'message_log'} |
|
989
|
0 |
2 |
if defined $argv->{'quote'} |
|
990
|
0 |
2 |
if defined $argv->{'sql_save'} |
|
994
|
0 |
2 |
if defined $argv->{'commit'} |
|
995
|
0 |
2 |
if defined $argv->{'message_log'} |
|
996
|
0 |
2 |
if defined $argv->{'quote'} |
|
997
|
0 |
2 |
if defined $argv->{'sql_save'} |
|
1008
|
0 |
2 |
if (not defined $argv->{'table'} and ref $argv->{'table'} ne "") |
|
1013
|
0 |
2 |
unless (defined $argv->{'fields'}) |
|
1018
|
1 |
1 |
if (ref $argv->{'fields'} eq 'HASH') { } |
|
|
1 |
0 |
elsif (ref $argv->{'fields'} eq 'ARRAY') { } |
|
1021
|
0 |
1 |
unless (defined $argv->{'values'}) |
|
1026
|
0 |
1 |
if (ref $argv->{'values'} ne "ARRAY") |
|
1037
|
0 |
2 |
if (defined $argv->{'conflict'} and ref $argv->{'conflict'} ne "HASH") |
|
1045
|
1 |
1 |
if (ref $argv->{'fields'} eq 'HASH') { } |
|
1064
|
0 |
1 |
if ($no_fld == 1) { } |
|
1066
|
0 |
0 |
if (ref $values eq 'ARRAY') { } |
|
1077
|
0 |
1 |
if (ref $values eq 'ARRAY') { } |
|
1092
|
0 |
2 |
if (defined $argv->{'conflict'}) |
|
1099
|
0 |
0 |
$argv->{'conflict'}{$field} =~ /^\\(.*)/ ? : |
|
1103
|
0 |
0 |
$argv->{'conflict_key'} ? : |
|
|
0 |
0 |
$self->{'init'}{'plugin_id'} =~ /^mysql/i || $self->{'init'}{'plugin_id'} =~ /^mariadb/i ? : |
|
1116
|
2 |
0 |
if $self->_Call("command", $sql, "command_type", 1, "buffer", $argv->{'buffer'}, "buffer_options", $argv->{'buffer_options'}, "buffer_hashkey", $argv->{'buffer_hashkey'}, "buffer_arrayref", $argv->{'buffer_arrayref'}, "make_only", $argv->{'make_only'}, "flush", $argv->{'flush'}, "sql_save", $argv->{'sql_save'}) |
|
1135
|
0 |
2 |
unless defined $self->{'init'}{'dbh'} |
|
1140
|
0 |
2 |
if ($self->{'init'}{'plugin_fh'}->can("Update") and $self->{'init'}{'plugin_fh'}->Update($argv)) |
|
1146
|
0 |
2 |
if defined $argv->{'commit'} |
|
1147
|
0 |
2 |
if defined $argv->{'message_log'} |
|
1148
|
0 |
2 |
if defined $argv->{'quote'} |
|
1149
|
0 |
2 |
if defined $argv->{'sql_save'} |
|
1153
|
0 |
2 |
if defined $argv->{'commit'} |
|
1154
|
0 |
2 |
if defined $argv->{'message_log'} |
|
1155
|
0 |
2 |
if defined $argv->{'quote'} |
|
1156
|
0 |
2 |
if defined $argv->{'sql_save'} |
|
1167
|
0 |
2 |
if (not defined $argv->{'table'} and ref $argv->{'table'} ne "") |
|
1172
|
0 |
2 |
unless (defined $argv->{'fields'}) |
|
1177
|
0 |
2 |
if (ref $argv->{'fields'} ne "HASH") |
|
1188
|
1 |
2 |
$argv->{'fields'}{$field} =~ /^\\(.*)/ ? : |
|
1192
|
0 |
2 |
if $self->_getWhere("update", [$argv->{'table'}], $argv->{'where'}, \$where) |
|
1194
|
0 |
2 |
if (!defined($where) || $where eq '' and not $argv->{'force'}) |
|
1201
|
1 |
1 |
if $where |
|
1214
|
2 |
0 |
if $self->_Call("command", $sql, "command_type", 1, "buffer", $argv->{'buffer'}, "buffer_options", $argv->{'buffer_options'}, "buffer_hashkey", $argv->{'buffer_hashkey'}, "buffer_arrayref", $argv->{'buffer_arrayref'}, "make_only", $argv->{'make_only'}, "flush", $argv->{'flush'}, "sql_save", $argv->{'sql_save'}) |
|
1215
|
0 |
0 |
if $argv->{'notfound'} |
|
1216
|
0 |
0 |
if ($self->getRows == 0) |
|
1238
|
0 |
0 |
unless defined $argv->{'count'} |
|
1239
|
0 |
0 |
unless defined $argv->{'interval'} |
|
1241
|
0 |
0 |
if $count =~ /^\D+$/ |
|
1242
|
0 |
0 |
if $sleep =~ /^\D+$/ |
|
1246
|
0 |
0 |
unless $self->Open |
|
1248
|
0 |
0 |
if $count and $sleep |
|
1276
|
0 |
0 |
unless defined $self->{'init'}{'dbh'} |
|
1281
|
0 |
0 |
if ($self->{'init'}{'plugin_fh'}->can("Call") and $self->{'init'}{'plugin_fh'}->Call($argv)) |
|
1286
|
0 |
0 |
if ($argv->{'command'} eq "") |
|
1292
|
0 |
0 |
if defined $argv->{'commit'} |
|
1293
|
0 |
0 |
if defined $argv->{'message_log'} |
|
1294
|
0 |
0 |
if defined $argv->{'quote'} |
|
1295
|
0 |
0 |
if defined $argv->{'sql_save'} |
|
1299
|
0 |
0 |
if defined $argv->{'commit'} |
|
1300
|
0 |
0 |
if defined $argv->{'message_log'} |
|
1301
|
0 |
0 |
if defined $argv->{'quote'} |
|
1302
|
0 |
0 |
if defined $argv->{'sql_save'} |
|
1315
|
1 |
0 |
if (defined $argv->{'sql_save'} and $argv->{'sql_save'} or defined $self->{'argv'}{'sql_save'} and $self->{'argv'}{'sql_save'} and $argv->{'command_type'}) |
|
1317
|
0 |
1 |
if $self->Save($argv->{'command'}) |
|
1320
|
39 |
0 |
if $argv->{'make_only'} |
|
1323
|
0 |
0 |
unless (defined $self->{'init'}{'dbh'}) |
|
1328
|
0 |
0 |
!defined($argv->{'flush'}) || $argv->{'flush'} ? : |
|
1330
|
0 |
0 |
if (not defined $argv->{'buffer'}) { } |
|
|
0 |
0 |
elsif (ref $argv->{'buffer'} eq 'HASH') { } |
|
1333
|
0 |
0 |
if (not defined $argv->{'buffer_hashkey'}) { } |
|
|
0 |
0 |
elsif (ref $argv->{'buffer_hashkey'} eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $argv->{'buffer_hashkey'} eq 'SCALAR') { } |
|
|
0 |
0 |
elsif (ref $argv->{'buffer_hashkey'} eq '') { } |
|
1342
|
0 |
0 |
if $flush_buffer |
|
1346
|
0 |
0 |
if (ref $argv->{'buffer'} eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $argv->{'buffer'} eq 'CODE') { } |
|
|
0 |
0 |
elsif (ref $argv->{'buffer'} eq 'SCALAR') { } |
|
1348
|
0 |
0 |
if (defined $argv->{'buffer_arrayref'} and not $argv->{'buffer_arrayref'}) { } |
|
1350
|
0 |
0 |
if ($argv->{'buffer_fields'} != 1) |
|
1358
|
0 |
0 |
if $flush_buffer |
|
1369
|
0 |
0 |
if (defined $argv->{'buffer_hashkey'}) |
|
1377
|
0 |
0 |
if ($self->{'init'}{'plugin_fh'}->can("PreFetch") and $self->{'init'}{'plugin_fh'}->PreFetch($argv)) |
|
1385
|
0 |
0 |
$argv->{'command'} =~ /\;$/ ? : |
|
1388
|
0 |
0 |
if (defined $sth) { } |
|
1394
|
0 |
0 |
if (defined $argv->{'buffer'}) |
|
1396
|
0 |
0 |
if ($sth->{'NUM_OF_FIELDS'}) |
|
1400
|
0 |
0 |
if ($type == 1) { } |
|
|
0 |
0 |
elsif ($type == 2) { } |
|
|
0 |
0 |
elsif ($type == 3) { } |
|
|
0 |
0 |
elsif ($type == 4) { } |
|
|
0 |
0 |
elsif ($type == 5) { } |
|
|
0 |
0 |
elsif ($type == 6) { } |
|
|
0 |
0 |
elsif ($type == 7) { } |
|
1402
|
0 |
0 |
if &{$argv->{'buffer'};}($ref, $argv->{'buffer_options'}) |
|
1406
|
0 |
0 |
unless (defined $$ref{$argv->{'buffer_hashkey'}}) |
|
1413
|
0 |
0 |
$argv->{'buffer_fields'} != 2 ? : |
|
1420
|
0 |
0 |
unless (defined $ref->{$key}) |
|
1425
|
0 |
0 |
unless defined $$addr{$ref->{$key}} |
|
1429
|
0 |
0 |
keys %{$ref;} != 1 ? : |
|
1451
|
0 |
0 |
if $self->{'argv'}{'commit'} and $argv->{'command_type'} |
|
1469
|
0 |
0 |
unless defined $self->{'init'}{'dbh'} |
|
1497
|
0 |
0 |
unless defined $self->{'init'}{'dbh'} |
|
1520
|
1 |
0 |
unless defined $self->{'init'}{'sql_save_ix'} |
|
1521
|
1 |
0 |
unless defined $self->{'init'}{'sql_save_name'} |
|
1525
|
0 |
0 |
$^O ne 'MSWin32' ? : |
|
|
1 |
0 |
defined $self->{'argv'}{'sql_save_dir'} ? : |
|
|
1 |
0 |
unless defined $self->{'init'}{'sql_save_dir'} |
|
1534
|
1 |
0 |
$self->{'argv'}{'sql_save_bydate'} ? : |
|
1536
|
1 |
0 |
unless (stat $path) |
|
1539
|
0 |
1 |
if ($@) |
|
1542
|
0 |
0 |
$self->{'argv'}{'sql_save_ignore'} ? : |
|
1548
|
0 |
1 |
unless (defined $fh) |
|
1551
|
0 |
0 |
$self->{'argv'}{'sql_save_ignore'} ? : |
|
1577
|
8 |
25 |
if (ref $argv->{'table'} eq 'ARRAY') { } |
|
|
25 |
0 |
elsif (ref $argv->{'table'} eq '') { } |
|
1597
|
23 |
47 |
unless $where |
|
1601
|
0 |
47 |
if $self->_getWhereRecursive($command, 0, $tables, $where, \@where_local) |
|
1618
|
0 |
53 |
if ($where eq "") |
|
1623
|
0 |
53 |
if (ref $where eq "") |
|
1629
|
0 |
53 |
if (ref $where ne "ARRAY") |
|
1641
|
6 |
78 |
if (ref $value1 ne "") |
|
1644
|
0 |
6 |
if $self->_getWhereRecursive($command, $level + 1, $tables, $value1, \@where_aux) |
|
1647
|
2 |
4 |
if $oper_pend and @where_tmp |
|
1654
|
6 |
72 |
if ($value1 =~ /^(and|\&\&|or|\|\|)$/i) |
|
1661
|
17 |
55 |
if ($oper_pend and @where_tmp) |
|
1667
|
0 |
72 |
if ($value1 =~ /^\\/) { } |
|
|
54 |
18 |
elsif (@{$tables;} == 1) { } |
|
|
18 |
0 |
elsif ($value1 =~ /^(.*?)\.(.*?)$/ and grep /^$1$/, @{$tables;}) { } |
|
1680
|
0 |
72 |
if ($ix >= @{$where;}) |
|
1691
|
34 |
38 |
if (ref $value2 eq "ARRAY") |
|
1700
|
0 |
34 |
if (not defined $operator) { } |
|
|
0 |
34 |
elsif ($operator =~ /^\\/) { } |
|
|
4 |
30 |
elsif ($operator eq '=') { } |
|
|
12 |
18 |
elsif ($operator eq '!') { } |
|
|
0 |
18 |
elsif ($operator eq '!=') { } |
|
|
0 |
18 |
elsif ($operator eq '<>') { } |
|
|
0 |
18 |
elsif ($operator eq '<=') { } |
|
|
2 |
16 |
elsif ($operator eq '<') { } |
|
|
0 |
16 |
elsif ($operator eq '>=') { } |
|
|
3 |
13 |
elsif ($operator eq '>') { } |
|
|
1 |
12 |
elsif ($operator eq '%%') { } |
|
|
2 |
10 |
elsif ($operator eq '^%') { } |
|
|
2 |
8 |
elsif ($operator eq '%^') { } |
|
|
1 |
7 |
elsif ($operator eq '^^') { } |
|
|
0 |
7 |
elsif ($operator eq '!%%') { } |
|
|
2 |
5 |
elsif ($operator eq '!^%') { } |
|
|
2 |
3 |
elsif ($operator eq '!%^') { } |
|
|
0 |
3 |
elsif ($operator eq '!^^') { } |
|
1710
|
0 |
1 |
if @_value2 > 1 |
|
1711
|
1 |
1 |
if @_value2 > 1 |
|
1712
|
1 |
1 |
if @_value2 > 1 |
|
1713
|
0 |
1 |
if @_value2 > 1 |
|
1721
|
19 |
15 |
if ($operator eq "=" or $operator eq "!=") |
|
1723
|
5 |
14 |
if (@_value2 > 1) |
|
1725
|
2 |
3 |
$operator eq '!=' ? : |
|
1726
|
3 |
2 |
@_value2 == 3 && $_value2[1] eq '..' ? : |
|
1736
|
33 |
2 |
if (defined $value and $value ne '') { } |
|
|
0 |
2 |
elsif ($operator eq '=') { } |
|
1738
|
1 |
32 |
if ($value =~ /^\\(.*)/) { } |
|
|
24 |
8 |
elsif (@{$tables;} == 1) { } |
|
|
6 |
2 |
elsif ($value =~ /^(.*?)\.(.*?)$/ and grep /^$1$/, @{$tables;}) { } |
|
1765
|
6 |
23 |
if (@where_aux > 1) |
|
1770
|
28 |
1 |
if @where_aux |
|
1774
|
2 |
36 |
unless (defined $value2) |
|
1779
|
36 |
0 |
if (ref $value2 eq "") |
|
1781
|
36 |
0 |
if ($value2 ne '') { } |
|
1783
|
2 |
34 |
if ($value2 =~ /^\\(.*)/) { } |
|
|
25 |
9 |
elsif (@{$tables;} == 1) { } |
|
|
9 |
0 |
elsif ($value2 =~ /^(.*?)\.(.*?)$/ and grep /^$1$/, @{$tables;}) { } |
|
1806
|
53 |
0 |
if (@where_tmp) |
|
1809
|
6 |
47 |
if $level |
|
1811
|
6 |
47 |
if $level |
|
1890
|
0 |
42 |
$self->{'init'}{'schema'} && defined $self->{'argv'}{'schema'} && $self->{'argv'}{'schema'} ne '' ? : |
|
1899
|
0 |
0 |
$ident ? : |
|
|
42 |
0 |
!(defined $self->{'argv'}{'tables'} && defined $self->{'argv'}{'tables'}{$table} && defined $self->{'argv'}{'tables'}{$table}{'name'}) || $self->{'argv'}{'tables'}{$table}{'name'} eq $table ? : |
|
1918
|
33 |
133 |
$notab ? : |
|
|
0 |
0 |
$notab ? : |
|
|
166 |
0 |
!(defined $self->{'argv'}{'tables'} && defined $self->{'argv'}{'tables'}{$table} && defined $self->{'argv'}{'tables'}{$table}{'cols'} && defined $self->{'argv'}{'tables'}{$table}{'cols'}{$field}) ? : |
|
1975
|
0 |
0 |
if $quote eq "" or $quote eq "\"" or $quote eq "'" |
|
1991
|
1 |
0 |
unless (defined $rc) |
|
1993
|
0 |
1 |
if defined $self->{'init'}{'dbh'} and $self->{'init'}{'dbh'}->err |
|
1994
|
0 |
1 |
if $DBI::err |
|
2003
|
0 |
0 |
defined $SQL_SIMPLE_TABLE_OF_MSGS{$code} ? : |
|
2006
|
0 |
0 |
if ($self->{'argv'}{'message_log'}) |
|
2008
|
0 |
0 |
if $self->{'argv'}{'message_log'} & 2 |
|
2010
|
0 |
0 |
if ($self->{'argv'}{'message_log'} & 1) |
|
2017
|
0 |
0 |
$SQL_SIMPLE_TABLE_OF_MSGS{$code}{'T'} eq 'W' ? : |
|
|
0 |
0 |
$SQL_SIMPLE_TABLE_OF_MSGS{$code}{'T'} eq 'S' ? : |
|
|
0 |
0 |
$SQL_SIMPLE_TABLE_OF_MSGS{$code}{'T'} eq 'E' ? : |
|
2043
|
40 |
0 |
unless $self->{'init'}{'dumper'} |