| line |
true |
false |
branch |
|
22
|
2 |
5 |
if @words and not defined $words[-1] |
|
23
|
2 |
5 |
unless @words or not length $line |
|
37
|
1 |
3 |
unless @words or not length $line |
|
51
|
1 |
3 |
unless @{$allwords[$i];} or not length $lines[$i] |
|
68
|
5 |
101 |
unless $line =~ s/^
(?:
# double quoted string
(") # $quote
((?>[^\\"]*(?:\\.[^\\"]*)*))" # $quoted
| # --OR--
# singe quoted string
(') # $quote
((?>[^\\']*(?:\\.[^\\']*)*))' # $quoted
| # --OR--
# unquoted string
( # $unquoted
(?:\\.|[^\\"'])*?
)
# followed by
( # $delim
\Z(?!\n) # EOL
| # --OR--
(?-x:$delimiter) # delimiter
| # --OR--
(?!^)(?=["']) # a quote
)
)//sx |
|
91
|
22 |
79 |
$1 ? : |
|
94
|
0 |
77 |
unless defined $quote or length $unquoted or length $delim |
|
96
|
27 |
74 |
if ($keep) { } |
|
101
|
17 |
57 |
if (defined $quote) |
|
102
|
15 |
2 |
if $quote eq "\"" |
|
103
|
1 |
16 |
if $PERL_SINGLE_QUOTE and $quote eq "'" |
|
107
|
24 |
77 |
defined $quote ? : |
|
109
|
55 |
46 |
if (length $delim) |
|
111
|
4 |
51 |
if $keep eq "delimiters" |
|
114
|
21 |
80 |
unless (length $line) |
|
134
|
2 |
0 |
if @_ |
|
141
|
0 |
5 |
if (s/\A"(([^"\\]|\\.)*)"//s) { } |
|
|
0 |
5 |
elsif (/\A"/) { } |
|
|
0 |
5 |
elsif (s/\A'(([^'\\]|\\.)*)'//s) { } |
|
|
0 |
5 |
elsif (/\A'/) { } |
|
|
1 |
4 |
elsif (s/\A\\(.?)//s) { } |
|
|
2 |
2 |
elsif (s/\A([^\s\\'"]+)//) { } |