| line |
true |
false |
branch |
|
65
|
35 |
11 |
if ($arg =~ /action/i) { } |
|
|
4 |
7 |
elsif ($arg =~ /seq/i) { } |
|
|
6 |
1 |
elsif ($arg =~ /match/i) { } |
|
|
1 |
0 |
elsif ($arg =~ /set/i) { } |
|
67
|
24 |
11 |
if $value =~ /permit/i |
|
68
|
5 |
30 |
if $value =~ /deny/i |
|
96
|
0 |
7 |
unless ref $proto |
|
117
|
0 |
24 |
@_ ? : |
|
124
|
0 |
56 |
@_ ? : |
|
131
|
0 |
0 |
(shift()) =~ /permit/i ? : |
|
|
0 |
28 |
@_ ? : |
|
132
|
23 |
5 |
$$this{'_action'} == ACL_PERMIT() ? : |
|
154
|
20 |
10 |
unless $this->_match(@_) |
|
155
|
0 |
10 |
$$this{'_action'} == ACL_DENY() ? : |
|
181
|
0 |
40 |
unless defined $class |
|
182
|
6 |
34 |
unless ($class->isa('Net::ACL::' . $type)) |
|
185
|
0 |
6 |
if $@ =~ /Can't locate/ |
|
186
|
0 |
6 |
if $@ |
|
187
|
0 |
6 |
unless $class->isa('Net::ACL::' . $type) |
|
200
|
38 |
28 |
unless $subrule->match(@_) |
|
218
|
0 |
0 |
if $arg == $_ |
|
225
|
0 |
7 |
unless ref $value |
|
226
|
2 |
5 |
if (blessed $value and $value->isa('Net::ACL::' . $type)) { } |
|
|
0 |
5 |
elsif (ref $value eq 'ARRAY') { } |
|
|
5 |
0 |
elsif (ref $value eq 'HASH') { } |