| line |
true |
false |
branch |
|
66
|
0 |
28 |
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 |
|
89
|
14 |
14 |
$1 ? : |
|
92
|
0 |
12 |
unless defined $quote or length $unquoted or length $delim |
|
94
|
0 |
28 |
if ($keep) { } |
|
99
|
16 |
12 |
if (defined $quote) |
|
100
|
14 |
2 |
if $quote eq '"' |
|
101
|
0 |
16 |
if $PERL_SINGLE_QUOTE and $quote eq q['] |
|
105
|
16 |
12 |
defined $quote ? : |
|
107
|
4 |
24 |
if (length $delim) |
|
109
|
0 |
4 |
if $keep eq 'delimiters' |
|
112
|
22 |
6 |
unless (length $line) |
|
125
|
1 |
4 |
unless (ref $data) |
|
133
|
0 |
3 |
if (ref $data and UNIVERSAL::isa($data, 'IO::Handle') || ref $data eq 'GLOB' or UNIVERSAL::isa($data, 'Tie::Handle')) |
|
157
|
5 |
31 |
if $line =~ /^\s*(\n|\#|;)/ |
|
158
|
1 |
30 |
unless $line =~ /\S/ |
|
166
|
8 |
22 |
if $line =~ /^\s*\[\s*([^\]]+)\s*\]$/ |
|
170
|
22 |
0 |
if ($line =~ /^\s*([^=]*\w)\s*([\?\+]?=)\s*(.*)\s*$/) |
|
176
|
2 |
20 |
if ($op =~ /\+=/) { } |
|
|
4 |
16 |
elsif ($op =~ /\?=/) { } |
|
183
|
2 |
2 |
if defined $result{$section}{$key} |
|
199
|
8 |
5 |
if (scalar @$val < 2) |
|
213
|
0 |
1 |
if $req_path =~ m[^/] |
|
230
|
1 |
27 |
$line =~ /#%INCLUDE\s*(.*)\s*%/ ? : |
|
263
|
0 |
0 |
if $req_path =~ m[^/] |
|
267
|
0 |
0 |
unless -e $path |
|
273
|
0 |
1 |
if $WebDAO::Config::AUTOLOAD =~ /::DESTROY$/ |