| line |
true |
false |
branch |
|
11
|
7 |
4 |
if (ref $_[0] eq 'ARRAY') { }
|
|
|
3 |
1 |
elsif (ref $_[0] eq 'HASH') { }
|
|
23
|
5 |
37 |
if @_ < 2
|
|
29
|
9 |
28 |
if (not @value) { }
|
|
|
26 |
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
|
12 |
15 |
if ($ch eq '$') { }
|
|
|
7 |
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 ? :
|