| line |
true |
false |
branch |
|
76
|
0 |
2 |
if exists $args{'uc_escape_style'} |
|
77
|
0 |
2 |
if exists $args{'regex_escape'} |
|
78
|
0 |
2 |
if exists $args{'regex_unescape'} |
|
93
|
11580 |
191600 |
unless ref $nlist and @$nlist > 1 |
|
99
|
191600 |
0 |
if (length $$nlist[0][0]) |
|
101
|
40342 |
151258 |
unless $c eq substr($$nlist[1][0], 0, 1) |
|
104
|
40342 |
151258 |
unless (defined $c) |
|
106
|
15456 |
24886 |
unless @$nlist > 2 |
|
111
|
5061 |
19825 |
if length $$next[0] |
|
123
|
27023 |
1559177 |
unless $$nlist[0][0] =~ s/^$qc// |
|
127
|
1544988 |
14189 |
if (length $$n[0]) |
|
135
|
33980 |
117278 |
if (@$nlist or $opt) |
|
138
|
27023 |
6957 |
if (@$nlist) |
|
142
|
4257 |
22766 |
if length $$next[0] |
|
158
|
2 |
13 |
if @s == 1 |
|
174
|
110669 |
86612 |
if ($regex =~ s/^\|?($RE_PREFIX)//) |
|
176
|
110666 |
3 |
if ($cn) { } |
|
177
|
43306 |
67360 |
unless ref $$cn[1] |
|
187
|
43306 |
43306 |
if ($regex =~ s/^\(\?://) |
|
188
|
43301 |
5 |
if ($nn) { } |
|
199
|
43306 |
0 |
if ($regex =~ s/^\)(\?)?//) |
|
201
|
14188 |
29118 |
defined $1 ? : |
|
202
|
43298 |
8 |
if @st |
|
217
|
43310 |
67380 |
if ($nlist and @$nlist) |
|
220
|
14189 |
29121 |
if $opt |
|
232
|
13 |
47 |
unless defined $s |
|
241
|
305 |
164 |
if ($p2 =~ /^$qs/) { } |
|
|
41 |
123 |
elsif ($s =~ /^$qp2/) { } |
|
250
|
234 |
235 |
if ($nlist and @$nlist) { } |
|
|
179 |
56 |
elsif ($push) { } |
|
251
|
63 |
171 |
if $push and $opt |
|
252
|
167 |
67 |
if ($continue) |
|
263
|
0 |
60 |
wantarray ? : |