Branch Coverage

blib/lib/Acme/CXW/vars/i.pm
Criterion Covered Total %
branch 28 28 100.0


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 '*') { }