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') { } |