| line |
true |
false |
branch |
|
62
|
0 |
0 |
unless ($$self{'query'} = $$self{'params'}{'default'}{'!!Query'}) |
|
63
|
0 |
0 |
unless $$self{'params'}{'default'}{'!!QueryClass'} |
|
67
|
0 |
0 |
unless defined $$self{'query'} |
|
74
|
0 |
0 |
unless ($$self{'filename'}) |
|
79
|
0 |
0 |
unless $$self{'filename'} |
|
82
|
0 |
0 |
unless -r $$self{'filename'} |
|
86
|
0 |
0 |
if exists $$self{'params'}{'default'}{'!!ParamFile'} |
|
88
|
0 |
0 |
if exists $$self{'params'}{'default'}{'!!ParamFileDir'} |
|
101
|
0 |
0 |
if defined $hash |
|
137
|
0 |
0 |
if exists $$self{'param_file'} |
|
140
|
0 |
0 |
unless $f =~ /\.(\w+)$/ |
|
143
|
0 |
0 |
if (my $d = $$self{'param_file_dir'}) |
|
144
|
0 |
0 |
unless $pf =~ m[/([^/]+)$] |
|
147
|
0 |
0 |
unless -r $pf |
|
160
|
0 |
0 |
if /^(;|#|--)/ |
|
161
|
0 |
0 |
if /^(\s*)$/ |
|
163
|
0 |
0 |
if (/^\%([^\ ]*) /) |
|
168
|
0 |
0 |
if ($single) { } |
|
169
|
0 |
0 |
if (/^(.+?)\=/) { } |
|
181
|
0 |
0 |
if ($key =~ m[/(\w+)/]) |
|
187
|
0 |
0 |
if (not $special or $special =~ /^\%[\=\!]/ or $special =~ /^\%\?/ and not exists $$self{'params'}{$name}{$key}) { } |
|
|
0 |
0 |
elsif ($special eq '%()') { } |
|
|
0 |
0 |
elsif ($special eq '%!()') { } |
|
|
0 |
0 |
elsif ($special =~ /%(RGV|T)/) { } |
|
192
|
0 |
0 |
unless exists $$self{'params'}{$name} |
|
197
|
0 |
0 |
if (@keys) { } |
|
198
|
0 |
0 |
unless (exists $$p{$key}) |
|
237
|
0 |
0 |
if (/^(Debug|PreserveCase|FetchsizeWarn)$/) { } |
|
278
|
0 |
0 |
if (my $val = $$p{'!ConvertTimestampMysql2Iso'}) |
|
297
|
0 |
0 |
if (my $val = $$p{'$substring_search'}) |
|
300
|
0 |
0 |
unless exists $$p{'=update'} or exists $$p{'=insert'} or not $$p{$_} |
|
316
|
0 |
0 |
if $$self{'params'}{'default'}{'!DoNothing'} |
|
327
|
0 |
0 |
if ($$self{'params'}{$query}{'!SearchForm'}) { } |
|
339
|
0 |
0 |
unless ($$self{'recordsets'}{$query} = tie(@{$$self{'output'}{$query};}, $$self{'recordset_class'}, $$self{'params'}{$query})) |
|
350
|
0 |
0 |
if defined $$self{'recordsets'}{$query} |
|
357
|
0 |
0 |
if ($$self{'params'}{'default'}{'=update'} or $$self{'params'}{'default'}{'=insert'}) |
|
360
|
0 |
0 |
if defined $$self{'recordsets'}{$query} |
|
373
|
0 |
0 |
if (${*{"$$self{'recordset_class'}::FetchsizeWarn";}{'SCALAR'};} or $] < 5.00504) |
|
391
|
0 |
0 |
if (ref $errorobject) { } |
|
398
|
0 |
0 |
if ($errorobject =~ /^Access denied/) { } |
|
433
|
0 |
0 |
if ($$st{'error'}) |
|
435
|
0 |
0 |
unless (-r $f) |
|
447
|
0 |
0 |
$cnt == 1 ? : |
|
|
0 |
0 |
$cnt > 1 ? : |
|
453
|
0 |
0 |
if ($$st{$_} or /^found_/) |
|
454
|
0 |
0 |
if (-r "$g.$_.$ending") { } |
|
|
0 |
0 |
elsif (-r "$dir$base.$_.$ending") { } |
|
479
|
0 |
0 |
if (my $http = $$self{'params'}{'default'}{'!HTTPHeaders'}) { } |
|
|
0 |
0 |
elsif (my $ct = $$self{'params'}{'default'}{'!ContentType'}) { } |
|
510
|
0 |
0 |
if (ref $$src{$_} eq 'ARRAY' or $$src{$_} =~ /^\*DBIx::Recordset/) { } |
|
|
0 |
0 |
elsif (ref $$src{$_} eq 'HASH') { } |
|
518
|
0 |
0 |
if (defined $rsh and ref $rsh eq 'HASH' and exists $$rsh{$_}) |
|
521
|
0 |
0 |
if (defined $links and ref $links ne 'HASH') { } |
|
529
|
0 |
0 |
if (ref $z eq 'HASH') { } |