| line |
true |
false |
branch |
|
22
|
1 |
5 |
if @_ < 2 |
|
28
|
1 |
4 |
if (not @value) { } |
|
29
|
1 |
0 |
if (ref $var) { } |
|
40
|
4 |
2 |
if (ref $stuff{$k} eq 'ARRAY') { } |
|
|
0 |
2 |
elsif (ref $stuff{$k} eq 'HASH') { } |
|
51
|
6 |
0 |
if (my($ch, $sym) = $var =~ /^([\$\@\%\*\&])(.+)/) { } |
|
52
|
0 |
6 |
if ($sym =~ /\W/) |
|
54
|
0 |
0 |
if ($sym =~ /^\w+[[{].*[]}]$/) { } |
|
|
0 |
0 |
elsif ($^H &= strict::bits('vars')) { } |
|
71
|
6 |
0 |
unless $sym =~ /::/ |
|
73
|
2 |
4 |
if ($ch eq '$') { } |
|
|
1 |
3 |
elsif ($ch eq '@') { } |
|
|
1 |
2 |
elsif ($ch eq '%') { } |
|
|
1 |
1 |
elsif ($ch eq '*') { } |
|
|
1 |
0 |
elsif ($ch eq '&') { } |