| line |
true |
false |
branch |
|
90
|
0 |
0 |
if (@connect_options) |
|
91
|
0 |
0 |
unless $$self{'dbix'} = 'DBIx::Simple'->connect(@connect_options) |
|
97
|
0 |
0 |
unless (-d $path and -r $path) |
|
102
|
0 |
0 |
$path =~ m[[\\/]$] ? : |
|
106
|
0 |
0 |
if ($$self{'file_pattern'}) |
|
171
|
0 |
0 |
if (-d $object and -r $object) |
|
179
|
0 |
0 |
if ($rel_path) |
|
184
|
0 |
0 |
if $@ |
|
192
|
0 |
0 |
if $@ |
|
197
|
0 |
0 |
if $@ |
|
202
|
0 |
0 |
if $@ |
|
210
|
0 |
0 |
if $@ |
|
213
|
0 |
0 |
if (-f $object and -r $object) |
|
221
|
0 |
0 |
if ($rel_path) |
|
227
|
0 |
0 |
if ($pat) { } |
|
233
|
0 |
0 |
if ($namespace =~ /$pat/) |
|
240
|
0 |
0 |
if $@ |
|
327
|
0 |
0 |
if $connect_options[1] eq '-' |
|
328
|
0 |
0 |
if $connect_options[2] eq '-' |
|
329
|
0 |
0 |
if ($connect_options[3]) { } |
|
332
|
0 |
0 |
unless $$self{'dbix'} = 'DBIx::Simple'->connect(@connect_options) |
|
348
|
0 |
0 |
if $$self{'processing'}{'set_name'} |
|
350
|
0 |
0 |
if $$self{'processing'}{'set_name'} |
|
364
|
0 |
0 |
if (@parameters) |
|
366
|
0 |
0 |
unless defined $parameter |
|
370
|
0 |
0 |
eval $statement ? : |
|
388
|
0 |
0 |
if $placeholders |
|
393
|
0 |
0 |
if (keys %{$$sub{'set_names'};}) |
|
410
|
0 |
0 |
if ($results) |
|
446
|
0 |
0 |
if lc $statement eq 'blank as zero' |
|
447
|
0 |
0 |
if lc $statement eq 'blank as blank' |
|
448
|
0 |
0 |
if lc $statement eq 'blank as null' |
|
454
|
0 |
0 |
if $statement |
|
470
|
0 |
0 |
if ($statement =~ /\$\%/) { } |
|
473
|
0 |
0 |
if (@parameters) |
|
484
|
0 |
0 |
if ($term =~ /^\$\%([a-z0-9A-Z\_\-]+)$/) |
|
486
|
0 |
0 |
ref $param ? : |
|
490
|
0 |
0 |
unless my $resultset = $$self{'dbix'}->query($statement, @parameters) |
|
496
|
0 |
0 |
unless my $resultset = $$self{'dbix'}->query($statement, @parameters) |
|
510
|
0 |
0 |
if (ref $$self{'cmds'} eq 'ARRAY') |
|
511
|
0 |
0 |
$$self{'cmds'} ? : |
|
|
0 |
0 |
$$self{'cmds'}[$$self{'cursor'}]{'statement'} ? : |
|
|
0 |
0 |
@parameters ? : |
|
553
|
0 |
0 |
if (defined $custom) |
|
558
|
0 |
0 |
if (defined $passed) |
|
564
|
0 |
0 |
if ($$self{'processing'}{'skip_switch'} and ($command ne 'proceed' and $command ne 'ifvalid' and $command ne 'validif')) { } |
|
584
|
0 |
0 |
if ($$self{'constants'}) |
|
585
|
0 |
0 |
if (ref $$self{'constants'} eq 'ARRAY') |
|
588
|
0 |
0 |
if (ref $$self{'constants'} eq 'HASH') |
|
597
|
0 |
0 |
if (ref $param eq 'HASH') |
|
616
|
0 |
0 |
unless open SQL, "$sqlfile" |
|
618
|
0 |
0 |
unless close SQL |
|
624
|
0 |
0 |
if ($command =~ /^\!/) |
|
626
|
0 |
0 |
if (grep(($commands[0] eq $_), keys %{$$self{'commands'};})) |
|
627
|
0 |
0 |
if ($commands[1] =~ /^\{/) { } |
|
637
|
0 |
0 |
if ($use_mlsql == 1) |
|
638
|
0 |
0 |
if (not $command =~ /^\}$/) { } |
|
662
|
0 |
0 |
if (grep(($$statement{'command'} eq $_), @{$$self{'select_required'};})) |
|
663
|
0 |
0 |
unless (lc($$statement{'statement'}) =~ /^(\s+)?select/) |
|
747
|
0 |
0 |
if @parameters |
|
750
|
0 |
0 |
if (@{$$self{'cmds'};}) { } |
|
754
|
0 |
0 |
if (grep(($$cmd{'command'} eq $_), keys %{$$self{'commands'};})) |
|
820
|
0 |
0 |
if ($index =~ /^\d+$/) { } |
|
821
|
0 |
0 |
if ($$self{'sets'}[$index]) |
|
826
|
0 |
0 |
if ($$self{'set_names'}{$index}) |
|
858
|
0 |
0 |
if (grep(($$cmd{'command'} eq $_), keys %{$$self{'commands'};})) |
|
861
|
0 |
0 |
if @parameters |