Branch Coverage

blib/lib/vars/i.pm
Criterion Covered Total %
branch 38 38 100.0


line true false branch
11 6 4 if (ref $_[0] eq 'ARRAY') { }
3 1 elsif (ref $_[0] eq 'HASH') { }
23 5 35 if @_ < 2
29 9 26 if (not @value) { }
24 2 elsif (@value == 1) { }
30 6 3 if (ref $first_var eq 'ARRAY') { }
2 1 elsif (ref $first_var eq 'HASH') { }
52 38 2 if (my($ch, $sym) = $var =~ /^([-\$\@\%\*\&])(.+)$/) { }
53 2 36 if ($ch eq '-') { }
9 28 elsif (not $sym =~ /^(\w+(::|'))+\w+$/ and $sym =~ /\W|(^\d+$)/) { }
63 2 7 if ($sym =~ /^\w+[[{].*[]}]$/) { }
5 2 elsif ($sym =~ /^(\d+|\W|\^[\[\]A-Z\^_\?]|\{\^[a-zA-Z0-9]+\})$/) { }
74 26 1 unless $sym =~ /::/
76 13 14 if ($ch eq '$') { }
6 8 elsif ($ch eq '@') { }
4 4 elsif ($ch eq '%') { }
1 3 elsif ($ch eq '*') { }
94 1 2 if (ref $param) { }
103 1 1 defined $param ? :