| line |
true |
false |
branch |
|
169
|
1 |
28 |
unless defined $text |
|
171
|
20 |
8 |
if (defined $patn) { } |
|
172
|
2 |
18 |
if (ref $patn eq "Regexp") |
|
179
|
15 |
3 |
unless (defined $re) |
|
185
|
0 |
11 |
defined $2 ? : |
|
|
2 |
11 |
defined $1 ? : |
|
187
|
1 |
14 |
unless eval {
do {
BEGIN {${^WARNING_BITS} = "\x54\x55\x55\x55\x55\x54\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x05"}
$re = $subst{$patn} = qr/[$re]/;
1
}
} |
|
200
|
1 |
256 |
unless $escapes{$1} |
|
211
|
0 |
2 |
unless defined $text |
|
221
|
1 |
1072 |
if (@_ and wantarray) |
|
229
|
1071 |
1 |
if defined $str |
|
239
|
134 |
468 |
if (utf8::is_utf8($_[0])) |