line |
true |
false |
branch |
22
|
3 |
20 |
if @_ < 2 |
28
|
4 |
16 |
if (not @value) { } |
29
|
3 |
1 |
if (ref $var) { } |
40
|
17 |
3 |
if (ref $stuff{$k} eq 'ARRAY') { } |
|
1 |
2 |
elsif (ref $stuff{$k} eq 'HASH') { } |
51
|
18 |
2 |
if (my($ch, $sym) = $var =~ /^([\$\@\%\*\&])(.+)$/) { } |
52
|
8 |
10 |
if (not $sym =~ /^(\w+(::|'))+\w+$/ and $sym =~ /\W|(^\d+$)/) |
58
|
2 |
6 |
if ($sym =~ /^\w+[[{].*[]}]$/) { } |
|
5 |
1 |
elsif ($sym =~ /^(\d+|\W|\^[\[\]A-Z\^_\?]|\{\^[a-zA-Z0-9]+\})$/) { } |
69
|
9 |
1 |
unless $sym =~ /::/ |
71
|
4 |
6 |
if ($ch eq '$') { } |
|
2 |
4 |
elsif ($ch eq '@') { } |
|
2 |
2 |
elsif ($ch eq '%') { } |
|
1 |
1 |
elsif ($ch eq '*') { } |