| line |
true |
false |
branch |
|
29
|
0 |
0 |
if ($syn =~ /^(loose|strict)$/i) |
|
40
|
0 |
0 |
if ($type =~ /^(alloy|deny)_(all|some)$/i) { } |
|
59
|
0 |
0 |
if exists $$self{'allow'}{$cmd} |
|
63
|
0 |
0 |
unless $$self{'cusdeny'} == 1 |
|
71
|
0 |
0 |
if exists $$self{'deny'}{$cmd} |
|
75
|
0 |
0 |
unless $$self{'cusdeny'} == 1 |
|
81
|
0 |
0 |
unless open FILE, $file |
|
86
|
0 |
0 |
if ($/ ne "\r\n") |
|
97
|
0 |
0 |
if length $line == 0 |
|
98
|
0 |
0 |
if $line =~ m[^/] |
|
108
|
0 |
0 |
unless length $cmd > 0 |
|
111
|
0 |
0 |
if ($$self{'denytype'} ne 'allow_all') { } |
|
|
0 |
0 |
elsif ($$self{'denytype'} eq 'deny_all') { } |
|
112
|
0 |
0 |
if ($$self{'denytype'} eq 'deny_some') { } |
|
|
0 |
0 |
elsif ($$self{'denytype'} eq 'allow_some') { } |
|
113
|
0 |
0 |
if (exists $$self{'deny'}{$cmd}) |
|
118
|
0 |
0 |
unless (exists $$self{'allow'}{$cmd}) |
|
127
|
0 |
0 |
if ($cmd eq '>') { } |
|
|
0 |
0 |
elsif ($cmd eq '<') { } |
|
|
0 |
0 |
elsif ($cmd eq '+') { } |
|
|
0 |
0 |
elsif ($cmd eq '%') { } |
|
|
0 |
0 |
elsif ($cmd eq '-') { } |
|
|
0 |
0 |
elsif ($cmd eq '^') { } |
|
|
0 |
0 |
elsif ($cmd eq '@') { } |
|
|
0 |
0 |
elsif ($cmd eq '*') { } |
|
|
0 |
0 |
elsif ($cmd eq '&') { } |
|
|
0 |
0 |
elsif ($cmd eq '#') { } |
|
|
0 |
0 |
elsif ($cmd eq '/') { } |
|
|
0 |
0 |
elsif ($cmd eq '~') { } |
|
129
|
0 |
0 |
if (scalar @args != 2) |
|
135
|
0 |
0 |
if (scalar @args != 1) |
|
141
|
0 |
0 |
if ($$self{'syntax'} eq 'strict') { } |
|
|
0 |
0 |
elsif ($$self{'syntax'} eq 'loose') { } |
|
142
|
0 |
0 |
if ($data =~ /[^a-z0-9 \*]/) |
|
148
|
0 |
0 |
if ($data =~ /[^A-Za-z0-9 \*]/) |
|
156
|
0 |
0 |
if ($$self{'syntax'} eq 'strict') { } |
|
|
0 |
0 |
elsif ($$self{'syntax'} eq 'loose') { } |
|
157
|
0 |
0 |
if ($data =~ /[^a-z0-9 ]/) |
|
163
|
0 |
0 |
if ($data =~ /[^A-Za-z0-9 ]/) |
|
170
|
0 |
0 |
if (length $data == 0) |
|
175
|
0 |
0 |
if (length $data == 0) |
|
180
|
0 |
0 |
if ($$self{'syntax'} eq 'strict') { } |
|
|
0 |
0 |
elsif ($$self{'syntax'} eq 'loose') { } |
|
181
|
0 |
0 |
if ($data =~ /[^a-z0-9 \*\<\>]/) |
|
187
|
0 |
0 |
if ($data =~ /[^A-Za-z0-9 \*\<\>]/) |
|
194
|
0 |
0 |
unless ($data =~ /^(.*?)=(.*?)::(.*?)$/i) |
|
199
|
0 |
0 |
if (length $data == 0) |
|
204
|
0 |
0 |
if (length $data == 0) |