| line |
true |
false |
branch |
|
76
|
0 |
1 |
if exists $args{'uc_escape_style'} |
|
77
|
0 |
1 |
if exists $args{'regex_escape'} |
|
78
|
0 |
1 |
if exists $args{'regex_unescape'} |
|
93
|
11 |
43 |
unless ref $nlist and @$nlist > 1 |
|
99
|
43 |
0 |
if (length $$nlist[0][0]) |
|
101
|
16 |
27 |
unless $c eq substr($$nlist[1][0], 0, 1) |
|
104
|
16 |
27 |
unless (defined $c) |
|
106
|
8 |
8 |
unless @$nlist > 2 |
|
111
|
3 |
5 |
if length $$next[0] |
|
123
|
7 |
80 |
unless $$nlist[0][0] =~ s/^$qc//u |
|
127
|
65 |
15 |
if (length $$n[0]) |
|
135
|
9 |
18 |
if (@$nlist or $opt) |
|
138
|
7 |
2 |
if (@$nlist) |
|
142
|
3 |
4 |
if length $$next[0] |
|
158
|
2 |
12 |
if @s == 1 |
|
174
|
43 |
44 |
if ($regex =~ s/^\|?($RE_PREFIX)//u) |
|
176
|
40 |
3 |
if ($cn) { } |
|
177
|
22 |
18 |
unless ref $$cn[1] |
|
187
|
22 |
22 |
if ($regex =~ s/^\(\?://u) |
|
188
|
18 |
4 |
if ($nn) { } |
|
199
|
22 |
0 |
if ($regex =~ s/^\)(\?)?//u) |
|
201
|
14 |
8 |
defined $1 ? : |
|
202
|
15 |
7 |
if @st |
|
217
|
26 |
37 |
if ($nlist and @$nlist) |
|
220
|
15 |
11 |
if $opt |
|
232
|
13 |
46 |
unless defined $s |
|
241
|
137 |
104 |
if ($p2 =~ /^$qs/u) { } |
|
|
37 |
67 |
elsif ($s =~ /^$qp2/u) { } |
|
250
|
107 |
134 |
if ($nlist and @$nlist) { } |
|
|
87 |
47 |
elsif ($push) { } |
|
251
|
33 |
74 |
if $push and $opt |
|
252
|
87 |
20 |
if ($continue) |
|
263
|
0 |
59 |
wantarray ? : |