line |
true |
false |
branch |
37
|
2 |
18 |
unless defined $mass and &looks_like_number($mass) and $mass > 0 |
41
|
2 |
16 |
unless defined $name and length $name |
44
|
2 |
14 |
unless defined $grname and length $grname |
50
|
10 |
4 |
@rest ? : |
57
|
6 |
8 |
unless defined $gmeta->[3] |
64
|
1 |
1 |
unless defined $key |
94
|
4 |
6 |
if (exists $param{'id'}) { } |
|
4 |
2 |
elsif (exists $param{'group'}) { } |
96
|
2 |
2 |
unless defined $param{'id'} and length $param{'id'} |
101
|
1 |
8 |
if ($ref->[1] eq $param{'id'}) |
107
|
1 |
1 |
unless $okay |
110
|
2 |
2 |
unless defined $param{'group'} and length $param{'group'} |
112
|
1 |
1 |
unless exists $$groups{$param{'group'}} |
126
|
1 |
4 |
unless defined $key |
134
|
1 |
3 |
if (keys %$groups) |
150
|
1 |
12 |
unless defined $key |
151
|
2 |
9 |
unless defined $mass and &looks_like_number($mass) and $mass > 0 |
156
|
4 |
5 |
if (exists $param{'id'}) { } |
|
4 |
1 |
elsif (exists $param{'group'}) { } |
158
|
2 |
2 |
unless defined $param{'id'} and length $param{'id'} |
163
|
1 |
7 |
if ($ref->[1] eq $param{'id'}) |
169
|
1 |
1 |
unless $okay |
172
|
2 |
2 |
unless defined $param{'group'} and length $param{'group'} |
174
|
1 |
1 |
unless exists $$groups{$param{'group'}} |