| line |
true |
false |
branch |
|
50
|
33 |
219 |
exists $options{$o} ? : |
|
53
|
2 |
40 |
if ($$self{'options'}{'Variables'} and ref $$self{'options'}{'Variables'} ne 'HASH') |
|
71
|
25 |
1 |
if (not ref $string) { } |
|
|
1 |
0 |
elsif (ref $string eq 'SCALAR') { } |
|
89
|
0 |
4 |
unless ref $vars eq 'HASH' |
|
90
|
0 |
4 |
if defined $string and ref $string ne 'SCALAR' |
|
101
|
0 |
0 |
if ($$options{'WriteWithHeader'}) |
|
109
|
0 |
0 |
$$options{$_} ? : |
|
114
|
0 |
0 |
if ($string) { } |
|
127
|
0 |
16 |
unless defined $filename |
|
138
|
0 |
1 |
unless defined $filename |
|
157
|
11 |
75 |
if ($$self{'options'}{'Variables'}) |
|
179
|
1 |
1231 |
if ($$contents =~ /\x0D\x0A/) { } |
|
229
|
2157 |
3906 |
if /$re_skipcomment/ |
|
232
|
186 |
3720 |
if ($$options{'Subs'} and length $_) |
|
245
|
0 |
3906 |
if /$re_skipcomment/ |
|
246
|
1104 |
2802 |
if /$re_skipblank/ |
|
254
|
163 |
2639 |
if (/$re_openhash/ or /$re_openlist/) { } |
|
|
161 |
2478 |
elsif (/$re_closhash/ or /$re_closlist/) { } |
|
|
1329 |
1149 |
elsif (/$re_datapair/) { } |
|
|
104 |
1045 |
elsif (/$Config::Wrest::RE_DATASING/ or /$Config::Wrest::RE_DATASINGQUOTE/) { } |
|
|
1043 |
2 |
elsif (/$re_command/) { } |
|
256
|
120 |
43 |
$type eq '<' ? : |
|
257
|
142 |
21 |
if (ref $stack[$#stack] eq 'HASH') { } |
|
272
|
118 |
43 |
if (ref $popped eq 'HASH') { } |
|
|
43 |
0 |
elsif (ref $popped eq 'ARRAY') { } |
|
273
|
1 |
117 |
if $type ne '<' |
|
275
|
1 |
42 |
if $type ne '[' |
|
279
|
1 |
158 |
unless ($popped and $#stack >= 0) |
|
280
|
1 |
157 |
if (pop @level ne $block and $block) |
|
288
|
1328 |
1 |
if (ref $stack[$#stack] eq 'HASH') { } |
|
299
|
99 |
5 |
if (ref $stack[$#stack] eq 'ARRAY') { } |
|
302
|
1 |
4 |
if (not $$options{'AllowEmptyValues'}) { } |
|
315
|
8 |
1035 |
if ($cmd eq 'option') { } |
|
|
13 |
1022 |
elsif ($cmd eq 'set') { } |
|
|
1006 |
16 |
elsif ($cmd eq 'include') { } |
|
|
14 |
2 |
elsif ($cmd eq 'reference') { } |
|
318
|
0 |
8 |
if (not $name =~ /^(UseQuotes|Escapes|Subs|TemplateBackend)$/i) { } |
|
331
|
1 |
1005 |
if ($$options{'__includeguard'}{$text}++ > 1000) |
|
340
|
9 |
5 |
if (ref $stack[$#stack] eq 'HASH') { } |
|
341
|
2 |
7 |
unless defined $name and length $name |
|
357
|
1 |
31 |
unless ($#stack == 0) |
|
359
|
1 |
0 |
if ($$options{'IgnoreUnclosedTags'}) { } |
|
373
|
2396 |
78 |
if ($$options{'UseQuotes'}) |
|
374
|
2403 |
71 |
if ($$options{'Escapes'}) |
|
388
|
33 |
8 |
if $name =~ /[\w\-\.]+->[\w\-\.]+/ |
|
393
|
0 |
115 |
unless defined $ref |
|
394
|
93 |
22 |
if (ref $ref eq 'HASH') { } |
|
403
|
0 |
115 |
if @levels == 1 and !1 |
|
404
|
1 |
114 |
unless ($found) |
|
406
|
0 |
1 |
if @allowed |
|
410
|
114 |
0 |
if $found |
|
412
|
40 |
0 |
$found ? : |
|
417
|
0 |
62 |
if ($str =~ /[{}]/) |
|
425
|
0 |
4 |
unless (defined $str) |
|
430
|
0 |
4 |
if ($] and $] < 5.006001) |
|
433
|
0 |
0 |
if ($^V and $^V lt "\cE\cH") |
|
440
|
0 |
0 |
if ($strlen == @nbytes) |
|
449
|
0 |
0 |
if ($ordn < 256) { } |
|
450
|
0 |
0 |
if ($ordn >= 48 and $ordn <= 57 or $ordn >= 65 and $ordn <= 90 or $ordn >= 97 and $ordn <= 122) { } |
|
472
|
0 |
0 |
ref $v eq 'ARRAY' ? : |
|
476
|
0 |
0 |
defined $content ? : |
|
484
|
4 |
2 |
$type eq 'HASH' ? : |
|
488
|
2 |
4 |
$use_equals ? : |
|
489
|
6 |
0 |
$use_quotes ? : |
|
496
|
4 |
2 |
if ($type eq 'HASH') { } |
|
509
|
6 |
0 |
defined $v ? : |
|
511
|
2 |
4 |
if (defined $v and ref $v) { } |
|
512
|
0 |
2 |
if ($useref and exists $$referencelut{$v} and length $$referencelut{$v}) { } |
|
513
|
0 |
0 |
$type eq 'HASH' ? : |
|
519
|
0 |
0 |
ref $v eq 'HASH' ? : |
|
|
0 |
2 |
if $type eq 'ARRAY' |
|
527
|
4 |
0 |
$$opt{'Escapes'} ? : |
|
530
|
0 |
0 |
unless (defined $localv and length $localv) |
|
531
|
0 |
0 |
if ($$opt{'AllowEmptyValues'}) { } |
|
538
|
0 |
0 |
if ($flag) |
|
540
|
0 |
0 |
if $type eq 'HASH' |
|
558
|
0 |
6 |
if $depth > 500 |
|
566
|
0 |
1 |
unless $$self{'current_options'}{'DieOnNonExistantVars'} |
|
575
|
0 |
6 |
if $$self{'current_options'}{'IgnoreInvalidLines'} |
|
578
|
2 |
4 |
if ($$self{'current_options'}{'Strict'}) { } |
|
597
|
0 |
4 |
if not defined $str && $str =~ /^[\w\-\.]+$/ |
|
602
|
2 |
0 |
if ($quo) { } |
|
603
|
0 |
2 |
if not "'${str}'" =~ /$Config::Wrest::RE_DATASINGQUOTE/ |
|
605
|
0 |
0 |
if not $str =~ /$Config::Wrest::RE_DATASING/ |