| line |
true |
false |
branch |
|
26
|
20 |
10 |
if @$self |
|
46
|
1 |
14 |
if (my($vname, $assignment, $rest) = $$ref =~ /^($PERLSVAR)($SPACE=)(.*)$/su) { } |
|
|
2 |
12 |
elsif (my($vname4, $assignment4, $rest4) = $$ref =~ /^\($SPACE($PERLSVAR)$SPACE\)($SPACE=)(.*)$/su) { } |
|
|
4 |
8 |
elsif (my($vname2, $rest2) = $$ref =~ /^($PERLSVAR)$SPACE;(.*)$/su) { } |
|
|
4 |
4 |
elsif ($$ref =~ /^$SPACE\(/su) { } |
|
|
3 |
1 |
elsif (my($vname3) = $$ref =~ /^$SPACE([\@\%\*][^\W0-9]\w*)/su) { } |
|
67
|
0 |
4 |
unless my $extracted = &Text::Balanced::extract_bracketed($$ref) |
|
73
|
0 |
6 |
unless /^$PERLSVAR$/u |
|
77
|
1 |
3 |
if $$ref =~ /^$SPACE=/u |
|
101
|
3 |
10 |
if (@_ > 1 and $Readonly::XSokay) { } |
|
|
0 |
10 |
elsif (@_ > 1) { } |