| line |
true |
false |
branch |
|
59
|
0 |
140 |
if ($escaped) |
|
65
|
0 |
140 |
if ($char eq "\\") |
|
66
|
0 |
0 |
if ($single_quoted) { } |
|
75
|
2 |
138 |
if ($char =~ /\s/) |
|
76
|
0 |
2 |
if ($single_quoted or $double_quoted) { } |
|
80
|
2 |
0 |
if defined $buf |
|
86
|
5 |
133 |
if ($char eq "\"") |
|
87
|
0 |
5 |
if ($single_quoted) |
|
95
|
0 |
133 |
if ($char eq "'") |
|
96
|
0 |
0 |
if ($double_quoted) |
|
106
|
15 |
7 |
if defined $buf |
|
108
|
1 |
21 |
if ($escaped or $single_quoted or $double_quoted) |
|
119
|
38 |
28 |
if ($val =~ /\A!/ and $self->{'enable_encoding'}) { } |
|
|
11 |
17 |
elsif ($val =~ /\A"/ and $self->{'enable_quoting'}) { } |
|
|
6 |
11 |
elsif ($val =~ /\A\[/ and $self->{'enable_bracket'}) { } |
|
|
2 |
9 |
elsif ($val =~ /\A\{/ and $self->{'enable_brace'}) { } |
|
|
1 |
8 |
elsif ($val =~ /\A~/ and $self->{'enable_tilde'}) { } |
|
121
|
0 |
38 |
unless $val =~ s/!(\w+)(\s+)// |
|
124
|
0 |
38 |
if $needs_res |
|
134
|
8 |
30 |
if $enc eq "j" |
|
135
|
1 |
37 |
if $enc eq "h" |
|
136
|
7 |
31 |
if $enc eq "e" |
|
138
|
4 |
34 |
if ($self->{'allow_encodings'}) |
|
141
|
1 |
3 |
unless grep {$_ eq $enc;} @{$$self{"allow_encodings"};} |
|
143
|
4 |
33 |
if ($self->{'disallow_encodings'}) |
|
146
|
3 |
1 |
if grep {$_ eq $enc;} @{$$self{"disallow_encodings"};} |
|
149
|
13 |
21 |
if ($enc eq 'json') { } |
|
|
4 |
17 |
elsif ($enc eq 'path' or $enc eq 'paths') { } |
|
|
2 |
15 |
elsif ($enc eq 'hex') { } |
|
|
2 |
13 |
elsif ($enc eq 'base64') { } |
|
|
5 |
8 |
elsif ($enc eq 'none') { } |
|
|
7 |
1 |
elsif ($enc eq 'expr') { } |
|
154
|
0 |
13 |
unless $val =~ /\A
(".*"|\[.*\]|\{.*\}|\S+)
(\s*)
(?: ([;#])(.*) )?
\z/x |
|
160
|
1 |
12 |
unless $decode_res->[0] == 200 |
|
166
|
0 |
4 |
unless $decode_res->[0] == 200 |
|
171
|
0 |
2 |
unless $val =~ /\A
([0-9A-Fa-f]*)
(\s*)
(?: ([;#])(.*) )?
\z/x |
|
177
|
0 |
2 |
unless $decode_res->[0] == 200 |
|
182
|
0 |
2 |
unless $val =~ m[\A
([A-Za-z0-9+/]*=*)
(\s*)
(?: ([;#])(.*) )?
\z]x |
|
188
|
0 |
2 |
unless $decode_res->[0] == 200 |
|
198
|
1 |
6 |
unless $self->{'enable_expr'} |
|
201
|
0 |
6 |
unless $val =~ /\A
((?:[^#;])+?)
(\s*)
(?: ([;#])(.*) )?
\z/x |
|
207
|
1 |
5 |
unless $decode_res->[0] == 200 |
|
218
|
0 |
11 |
unless $val =~ /\A
"( (?:
\\\\ | # backslash
\\. | # escaped something
[^"\\]+ # non-doublequote or non-backslash
)* )"
(\s*)
(?: ([;#])(.*) )?
\z/x |
|
227
|
0 |
11 |
if $needs_res |
|
236
|
0 |
11 |
unless $decode_res->[0] == 200 |
|
243
|
0 |
6 |
unless $val =~ /\A
\[(.*)\]
(?:
(\s*)
([#;])(.*)
)?
\z/x |
|
250
|
0 |
6 |
if $needs_res |
|
259
|
0 |
6 |
unless $decode_res->[0] == 200 |
|
266
|
0 |
2 |
unless $val =~ /\A
\{(.*)\}
(?:
(\s*)
([#;])(.*)
)?
\z/x |
|
273
|
0 |
2 |
if $needs_res |
|
282
|
0 |
2 |
unless $decode_res->[0] == 200 |
|
287
|
0 |
1 |
unless $val =~ /\A
~(.*)
(\s*)
(?: ([;#])(.*) )?
\z/x |
|
292
|
0 |
1 |
if $needs_res |
|
302
|
0 |
1 |
unless $decode_res->[0] == 200 |
|
307
|
0 |
8 |
unless $val =~ /\A
(.*?)
(\s*)
(?: ([#;])(.*) )?
\z/x |
|
312
|
0 |
8 |
if $needs_res |
|
327
|
0 |
1 |
if ($^O eq 'MSWin32') { } |
|
330
|
0 |
1 |
if $ENV{'USER'} |
|
333
|
1 |
0 |
if @pw |
|
339
|
0 |
3 |
if ($^O eq 'MSWin32') { } |
|
342
|
0 |
0 |
if $ENV{'HOME'} |
|
343
|
0 |
0 |
if $ENV{'USERPROFILE'} |
|
345
|
0 |
0 |
if $ENV{'HOMEDRIVE'} and $ENV{'HOMEPATH'} |
|
347
|
3 |
0 |
if $ENV{'HOME'} |
|
350
|
0 |
0 |
if @pw |
|
360
|
0 |
1 |
if ($^O eq 'MSWin32') { } |
|
367
|
1 |
0 |
if ($name eq getpwuid $<) |
|
373
|
0 |
0 |
if $home and -d $home |
|
384
|
3 |
0 |
if (eval {
do {
require Cpanel::JSON::XS;
1
}
}) { } |
|
393
|
1 |
59 |
if ($@) { } |
|
403
|
2 |
3 |
if ($val =~ m[\A~([^/]+)?(?:/|\z)]) |
|
404
|
1 |
1 |
length $1 ? : |
|
406
|
0 |
2 |
unless ($home_dir) |
|
407
|
0 |
0 |
if (length $1) { } |
|
417
|
2 |
3 |
if ($which eq 'path') { } |
|
442
|
1 |
1 |
if ($arg =~ /(.+)\.(.+)/) { } |
|
455
|
0 |
0 |
@{$self->{'_include_stack'};} ? : |
|
465
|
10 |
12 |
@{$self->{'_include_stack'};} ? : |
|
477
|
6 |
39 |
if (@{$self->{'_include_stack'};}) |
|
484
|
0 |
45 |
unless my $abs_path = Cwd::abs_path($path) |
|
486
|
1 |
44 |
if grep {$_ eq $abs_path;} @{$$self{"_include_stack"};} |
|
495
|
0 |
32 |
unless @{$self->{'_include_stack'};} |
|
506
|
23 |
41 |
unless $self->{'enable_expr'} |
|
517
|
1 |
71 |
unless open my $fh, "<", $filename |
|
531
|
0 |
39 |
unless $res->[0] == 200 |