| 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
|
1 |
1 |
if $WebDAO::Config::AUTOLOAD =~ /::DESTROY$/
|