| line |
true |
false |
branch |
|
17
|
0 |
4 |
unless defined $args |
|
18
|
0 |
4 |
unless UNIVERSAL::isa($args, 'HASH') |
|
19
|
0 |
4 |
unless defined $$args{'fields'} |
|
20
|
0 |
4 |
unless UNIVERSAL::isa($$args{'fields'}, 'HASH') |
|
37
|
4 |
60 |
if (defined $fields and UNIVERSAL::isa($fields, 'HASH')) |
|
42
|
0 |
16 |
if $$fields{$field} eq 'all' |
|
55
|
2 |
4 |
unless (defined $flag) |
|
56
|
2 |
2 |
if ($flag == 1) { } |
|
|
2 |
0 |
elsif ($flag == 0) { } |
|
67
|
0 |
0 |
if (defined $action and $action =~ /^ALLOW$/i || $action =~ /^DENY$/i || $action =~ /^PERMIT$/i || $action =~ /^BLOCK$/i) |
|
84
|
0 |
14 |
unless $$self{'_fields_loaded'} |
|
85
|
0 |
14 |
unless $self->Action |
|
86
|
0 |
14 |
unless $args |
|
87
|
0 |
14 |
unless UNIVERSAL::isa($args, 'HASH') |
|
94
|
0 |
14 |
if $self->DEBUG_LEVEL |
|
97
|
4 |
10 |
if ($concern_status != 0) |
|
99
|
0 |
4 |
if $self->DEBUG_LEVEL |
|
100
|
2 |
2 |
if $self->Action =~ /^ALLOW$/i or $self->Action =~ /^PERMIT/i |
|
102
|
2 |
0 |
if $self->Action =~ /^DENY$/i or $self->ACtion =~ /^BLOCK$/i |
|
114
|
0 |
14 |
unless $args |
|
120
|
0 |
33 |
if $self->DEBUG_LEVEL |
|
122
|
10 |
0 |
if $field_value ne $$args{$field} and $field_value and $field_value ne 'ALL' and $$args{$field} ne 'ALL' and $$args{$field} |
|
128
|
0 |
23 |
if $self->DEBUG_LEVEL |