| line |
true |
false |
branch |
|
48
|
0 |
0 |
$val eq '26' ? : |
|
64
|
0 |
0 |
if ($setregices{"-$j"}) { } |
|
|
0 |
0 |
elsif (defined $setregices{"-$j"}) { } |
|
82
|
0 |
0 |
if (&fetchparms(\$html, \%parms, 1, @_)) { } |
|
100
|
0 |
0 |
&fetchparms(\$html, \%parms, 1, @_) ? : |
|
108
|
0 |
0 |
&fetchparms(\$html, \%parms, 0, @_) ? : |
|
130
|
0 |
0 |
ref $v ? : |
|
131
|
0 |
0 |
unless @_ |
|
132
|
0 |
0 |
if ($v =~ s/^\-([a-zA-Z]+)/$1/) |
|
135
|
0 |
0 |
if (defined $t) { } |
|
137
|
0 |
0 |
ref $t ? : |
|
147
|
0 |
0 |
unless ($fromFile) |
|
150
|
0 |
0 |
$$html ? : |
|
153
|
0 |
0 |
if (open HTMLIN, $parm0) { } |
|
160
|
0 |
0 |
if $LoadHtml::useLWP |
|
161
|
0 |
0 |
unless (defined $$html and $$html =~ /\S/o) |
|
180
|
0 |
0 |
unless defined $one and defined $$parms{$one} |
|
181
|
0 |
0 |
if (ref($$parms{$one}) =~ /ARRAY/o) { } |
|
|
0 |
0 |
elsif ($$parms{$one} =~ /(ARRAY|HASH)\(.*\)/o) { } |
|
183
|
0 |
0 |
defined $listsep ? : |
|
222
|
0 |
0 |
if ($parmnos =~ s/([a-zA-Z][a-zA-Z_]*)\s+([a-zA-Z])/$2/) { } |
|
|
0 |
0 |
elsif ($parmnos =~ s/(\d+\,\d+)((?:\,\d+)*)\s+([a-zA-Z])/$3/) { } |
|
236
|
0 |
0 |
if (ref $$parms{$listparms[0]} eq 'HASH' and defined $vectorlist[0] and defined ${$$parms{$listparms[0]};}{$vectorlist[0]}) { } |
|
|
0 |
0 |
elsif (defined $vectorlist[0] and $vectorlist[0] =~ /^\d+$/o) { } |
|
247
|
0 |
0 |
if ($keys[$i] eq $forlist[$j]) |
|
260
|
0 |
0 |
if (ref $$parms{$listparms[0]} eq 'HASH') |
|
273
|
0 |
0 |
if $parmnos =~ s/([+-]?\d+)\.\./../o |
|
274
|
0 |
0 |
if $parmnos =~ s/\.\.([+-]?\d+)//o |
|
276
|
0 |
0 |
if $parmnos =~ s/\|([+-]?\d+)//o |
|
278
|
0 |
0 |
unless $parmnos eq $parmnos0 |
|
279
|
0 |
0 |
if (ref $$parms{$listparms[0]} eq 'HASH') { } |
|
282
|
0 |
0 |
if ($#vectorlist >= 0) |
|
289
|
0 |
0 |
if ($keys[$i] eq $forlist[$j]) |
|
298
|
0 |
0 |
unless defined $iend |
|
306
|
0 |
0 |
unless (defined $iend) |
|
309
|
0 |
0 |
ref $$parms{$listparms[0]} eq 'ARRAY' ? : |
|
318
|
0 |
0 |
if ($istart <= $iend) { } |
|
320
|
0 |
0 |
if $i > $iend or $iinc <= 0 |
|
324
|
0 |
0 |
if $i < $iend or $iinc >= 0 |
|
339
|
0 |
0 |
if (" @listparms " =~ /\s$j\s/) { } |
|
342
|
0 |
0 |
if (ref($$parms{$j}) =~ /HASH/io) { } |
|
|
0 |
0 |
elsif (ref($$parms{$j}) =~ /ARRAY/io) { } |
|
|
0 |
0 |
elsif ($$parms{$j} =~ /^\$(\w+)/o) { } |
|
373
|
0 |
0 |
if ($@) |
|
384
|
0 |
0 |
unless defined $loopparms{$j} |
|
413
|
0 |
0 |
if (ref $$parms{$listparms[0]} eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $$parms{$listparms[0]} eq 'ARRAY') { } |
|
417
|
0 |
0 |
unless (defined $loopparms{$j}) |
|
430
|
0 |
0 |
unless (defined $loopparms{$j}) |
|
457
|
0 |
0 |
unless $valuparm |
|
459
|
0 |
0 |
if ($valuparm) { } |
|
462
|
0 |
0 |
unless $dispvalu =~ /\S/ |
|
470
|
0 |
0 |
if (ref($$parms{$selparm}) =~ /ARRAY/o) { } |
|
475
|
0 |
0 |
if ($valu eq ${$$parms{$selparm};}[$i]) |
|
484
|
0 |
0 |
if $valu eq $$parms{$selparm} |
|
494
|
0 |
0 |
if ($selpart =~ s/\:(\w+)\s*>$//o) |
|
530
|
0 |
0 |
if (defined $roothtmlhome and $roothtmlhome =~ /\S/o) |
|
535
|
0 |
0 |
if (open HTMLIN, $fidurl) { } |
|
542
|
0 |
0 |
if $LoadHtml::useLWP |
|
543
|
0 |
0 |
unless (defined $html and $html =~ /\S/o) |
|
549
|
0 |
0 |
if ($tag) |
|
551
|
0 |
0 |
unless $html =~ s/^.*\<\!\-\-\s+BEGIN\s+$tag\s*\-\-\>//is |
|
557
|
0 |
0 |
$modhtmlflag ? : |
|
564
|
0 |
0 |
if ($fid) |
|
571
|
0 |
0 |
if (open HTMLIN, $fid) { } |
|
579
|
0 |
0 |
if $LoadHtml::useLWP |
|
580
|
0 |
0 |
unless (defined $expn and $expn =~ /\S/o) |
|
583
|
0 |
0 |
unless $dfltexpn =~ /\S/o |
|
590
|
0 |
0 |
if $expn =~ /\`/o |
|
598
|
0 |
0 |
unless defined $x |
|
613
|
0 |
0 |
unless $one |
|
631
|
0 |
0 |
if ($two =~ /VALUE\s*=\"[^\"]*\"/io or $one =~ /CHECKBOX/io) { } |
|
637
|
0 |
0 |
if defined $$parms{$parmno} |
|
639
|
0 |
0 |
if (ref $$parms{$parmno} eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (defined $$parms{$parmno} and defined $myvalue and $$parms{$parmno} eq $myvalue or not defined $myvalue and $one =~ /CHECKBOX/io and $$parms{$parmno} =~ /\S/o) { } |
|
643
|
0 |
0 |
if ($i eq $myvalue) |
|
678
|
0 |
0 |
if (defined $$parms{$parmno}) { } |
|
|
0 |
0 |
elsif ($dflt =~ /\S/o) { } |
|
688
|
0 |
0 |
if (defined $val) |
|
690
|
0 |
0 |
if ($rtn =~ /\sVALUE\s*=/io) { } |
|
718
|
0 |
0 |
defined $$parms{$1} ? : |
|
729
|
0 |
0 |
if (defined $$parms{$one}) |
|
738
|
0 |
0 |
if $evalsok |
|
750
|
0 |
0 |
if ($x) { } |
|
752
|
0 |
0 |
if (defined $ifhtml1) { } |
|
764
|
0 |
0 |
if (defined $ifhtml2) { } |
|
810
|
0 |
0 |
if $two =~ s/\%(.*)\%// |
|
817
|
0 |
0 |
unless defined $one and ref $parms eq 'HASH' and defined $$parms{$one} and "\Q$$parms{$one}\E" |
|
818
|
0 |
0 |
defined $three ? : |
|
|
0 |
0 |
if (defined $three ? $three =~ s/^\[(.*?)\]/$1/ : 0) { } |
|
|
0 |
0 |
elsif ($picture) { } |
|
821
|
0 |
0 |
unless &makaswap($parms, $1) |
|
827
|
0 |
0 |
if ($picture =~ s/^&(.*)/$1/) { } |
|
831
|
0 |
0 |
unless $picfn =~ /\:\:/o |
|
835
|
0 |
0 |
if $picfn =~ s/\((.*)\)//o |
|
838
|
0 |
0 |
if (@args) { } |
|
882
|
0 |
0 |
if $two =~ s/\%(.*)\%// |
|
886
|
0 |
0 |
if ($picture) { } |
|
888
|
0 |
0 |
if ($picture =~ s/^&(.*)/$1/) { } |
|
892
|
0 |
0 |
unless $picfn =~ /\:\:/o |
|
895
|
0 |
0 |
if $picfn =~ s/\((.*)\)//o |
|
897
|
0 |
0 |
if (@args) { } |
|
947
|
0 |
0 |
if defined ${"h1_$one";}{$two} |
|
987
|
0 |
0 |
if (ref $$parms{$two} eq 'HASH') { } |
|
990
|
0 |
0 |
if ($one =~ s/value[s]?=(\")?:(\w+)\1?//i) { } |
|
|
0 |
0 |
elsif ($one =~ s/BYVALUE//io) { } |
|
1021
|
0 |
0 |
if ($one =~ s/value[s]?=(\")?:(\#)([\+\-\*]\d+)?\1?//i) { } |
|
|
0 |
0 |
elsif ($one =~ s/value[s]?=(\")?:(\w+)\1?//i) { } |
|
|
0 |
0 |
elsif ($one =~ s/value[s]?\s*=\s*(\")?:\#([\+\-\*]\d+)?\1?//i) { } |
|
1048
|
0 |
0 |
if ($one =~ s/REVERSED?//io) |
|
1057
|
0 |
0 |
if ($one =~ s/(default|defaultsel)\s*=\s*\"(.*?)\"//i or $one =~ s/(default|defaultsel)\s*=\s*(\:?\S+)//i) |
|
1065
|
0 |
0 |
if (ref $$parms{$1} eq 'ARRAY') { } |
|
1083
|
0 |
0 |
if (${$$options{$dfltindex{$dflttype}};}[$i] =~ /^$one$/) { } |
|
1103
|
0 |
0 |
if ($cfgOps{'loops'}) |
|
1108
|
0 |
0 |
if $cfgOps{'hashes'} |
|
1111
|
0 |
0 |
if $cfgOps{'CGIScript'} |
|
1115
|
0 |
0 |
if $cfgOps{'includes'} |
|
1120
|
0 |
0 |
if $one =~ s/\:(\w+)// |
|
1121
|
0 |
0 |
if ($one =~ s/\((.*)\)\s*$//) { } |
|
1133
|
0 |
0 |
if ($cfgOps{'pocs'}) |
|
1135
|
0 |
0 |
if $cfgOps{'pocs'} |
|
1136
|
0 |
0 |
if $cfgOps{'pocs'} |
|
1155
|
0 |
0 |
if $cfgOps{'numbers'} |
|
1158
|
0 |
0 |
if $cfgOps{'hashes'} |
|
1164
|
0 |
0 |
if ($evalsok) { } |
|
1172
|
0 |
0 |
if $cfgOps{'perls'} |
|
1182
|
0 |
0 |
if (defined $hrefhtmlhome) |
|
1186
|
0 |
0 |
if (defined $hrefcase) { } |
|
1188
|
0 |
0 |
if ($hrefcase eq 'l') { } |
|
1206
|
0 |
0 |
if (defined $htmlhome and $htmlhome =~ /\S/o) |
|
1210
|
0 |
0 |
if (defined $hrefcase) { } |
|
1212
|
0 |
0 |
if ($hrefcase eq 'l') { } |
|
1246
|
0 |
0 |
if $cfgOps{'embeds'} |
|
1251
|
0 |
0 |
if $one =~ s/\:(\w+)// |
|
1298
|
0 |
0 |
unless $usetoday |
|
1308
|
0 |
0 |
if ($@) |
|
1313
|
0 |
0 |
if (not $LoadHtml::rtnTime or $LoadHtml::err =~ /^Invalid/o) |