line |
true |
false |
branch |
40
|
11 |
36 |
if (_has_shell_metachars($args)) |
47
|
0 |
0 |
if (@_ > 1) { } |
59
|
0 |
0 |
unless (_has_shell_metachars($args)) |
69
|
6 |
52 |
if ($string =~ /[\r\n\0]/) |
81
|
0 |
144 |
if (not $force and $text ne '' and not $text =~ /[ \t\n\x0b"]/) { } |
97
|
4 |
43 |
if $string =~ /%/ |
107
|
2 |
49 |
unless my $length = length $_ |
116
|
10 |
287 |
if (/\G((?:\\\\)+)(?=\\?(")?)/cg) { } |
|
16 |
271 |
elsif (/\G\\"/cg) { } |
|
127 |
144 |
elsif (/\G"/cg) { } |
|
20 |
124 |
elsif (not $quote_mode and /\G\s+\z?/cg) { } |
|
124 |
0 |
elsif (/\G(.)/cgs) { } |
117
|
7 |
3 |
if (defined $2) { } |
128
|
14 |
113 |
if ($quote_mode and /\G"/cg) |