| line |
true |
false |
branch |
|
98
|
0 |
4 |
ref $_[0] ? : |
|
111
|
0 |
27 |
if $$self{'unexpand'} |
|
113
|
0 |
27 |
if not ref $str and $str =~ /^$RE_START/ |
|
120
|
480 |
28 |
unless $force or ref $str eq 'Regexp' |
|
121
|
26 |
2 |
unless $str =~ s/^($RE_START)//o |
|
124
|
0 |
2 |
if $regopt =~ /^[-:]/ |
|
138
|
0 |
28 |
if $$self{'debug'} |
|
139
|
0 |
28 |
if $$self{'debug'} |
|
145
|
2 |
26 |
unless $result =~ /$RE_PIPE/ |
|
148
|
25 |
1 |
unless ($result =~ /$RE_PAREN/) |
|
155
|
1 |
2 |
if ($result =~ s/^($RE_PAREN)($RE_QUANT?)//) { } |
|
|
0 |
2 |
elsif ($result =~ s/^$RE_PIPE//) { } |
|
|
2 |
0 |
elsif ($result =~ s/^($RE_TOKEN+)//) { } |
|
158
|
0 |
1 |
$quant ? : |
|
159
|
0 |
1 |
if ($quant) |
|
160
|
0 |
0 |
if ($term =~ /^$$self{'_cclass'}$/) { } |
|
181
|
0 |
1 |
if ($term eq '|') { } |
|
188
|
1 |
27 |
$regopt ? : |
|
191
|
0 |
28 |
if $$self{'debug'} |
|
193
|
0 |
28 |
if $$self{'debug'} |
|
199
|
0 |
0 |
if $_[0] eq $_[1] |
|
200
|
0 |
0 |
length $_[0] <= length $_[1] ? : |
|
205
|
0 |
0 |
unless $l > 0 |