| line |
true |
false |
branch |
|
27
|
0 |
2 |
if $raw =~ s/ \(\?
<
([^\W\d]\w*)
>
($matchcontents)
\)
/push @vars, "undef\$$1;";
"($2)(?{eval'\$$1=\$^N'})";/egx |
|
36
|
0 |
2 |
unless $raw =~ s/\(\?p\)/(?{\$Regexp::MatchContext::target_ref=\\\$_})/g |
|
45
|
3 |
6 |
if ($vars) |
|
48
|
6 |
3 |
if ($subs) |
|
73
|
0 |
0 |
unless defined ${$Regexp::MatchContext::target_ref;} |
|
80
|
0 |
0 |
unless defined ${$Regexp::MatchContext::target_ref;} |
|
94
|
0 |
0 |
unless defined ${$Regexp::MatchContext::target_ref;} |
|
101
|
0 |
0 |
unless defined ${$Regexp::MatchContext::target_ref;} |
|
115
|
0 |
0 |
unless defined ${$Regexp::MatchContext::target_ref;} |
|
122
|
0 |
0 |
unless defined ${$Regexp::MatchContext::target_ref;} |