| line |
true |
false |
branch |
|
52
|
0 |
0 |
defined $_[0] ? : |
|
68
|
0 |
36 |
if $_ eq 'get' || $_ eq 'set' and not $handle_get_set |
|
84
|
36 |
50 |
if (/^[a-zA-Z_]/) |
|
86
|
26 |
10 |
if not is_keyword($1) or $allow_keyword |
|
89
|
1 |
49 |
if (/^\.\d/ or /^\d/) |
|
92
|
0 |
1 |
if (s/^0[Xx]([A-Fa-f0-9]+)//) { } |
|
|
0 |
1 |
elsif (s/^(\d+)(\.\D)/$2/) { } |
|
|
0 |
1 |
elsif (s/^(\d+\.\d+)//) { } |
|
94
|
0 |
0 |
if /^[ULul]/ |
|
104
|
0 |
1 |
if s/^([eE][+-]\d+)// |
|
105
|
0 |
1 |
if (s/^[fF]//) |
|
106
|
0 |
1 |
if (s/^[dD]//) |
|
107
|
0 |
1 |
if (s/^[mM]//) |
|
108
|
1 |
0 |
unless ($real) |
|
109
|
0 |
1 |
if /^[ULul]/ |
|
114
|
5 |
44 |
if s/^\.// |
|
115
|
1 |
43 |
if s[^//.*][] |
|
116
|
1 |
42 |
if s[^/\*.*?\*/][]ms |
|
118
|
40 |
2 |
if s{^(
[{}\[\]\(\),:;~\?]
|
\+[\+=]?
|
-[\-=>]?
|
[!=/%^]=?
|
==?
|
&[&=]?
|
\|[\|=]?
|
<>?=?
)
}[]x |
|
138
|
1 |
1 |
if (s/^\"([^\\\"]*(?:\\.[^\\\"]*)*)\"//) |
|
143
|
0 |
1 |
if /^\"/ |
|
144
|
0 |
1 |
if (s/^'//) |
|
145
|
0 |
0 |
if /^'/ |
|
147
|
0 |
0 |
if (s/^\\(.)//) { } |
|
149
|
0 |
0 |
unless /^'/ |
|
152
|
0 |
1 |
if s/^@// |
|
153
|
1 |
0 |
unless $_ |