| line |
true |
false |
branch |
|
181
|
0 |
1 |
unless $self->id |
|
183
|
0 |
1 |
unless (defined $self->realmname and length $self->realmname) |
|
187
|
0 |
1 |
if ($self->expires and $self->expires < time) |
|
205
|
0 |
0 |
if ($ent eq 'allow') { } |
|
|
0 |
0 |
elsif ($ent eq 'deny') { } |
|
212
|
0 |
0 |
$status > 0 ? : |
|
218
|
0 |
0 |
unless ref $groupnames |
|
222
|
0 |
0 |
unless scalar @$reqs |
|
225
|
0 |
0 |
if ($ent eq 'user') { } |
|
|
0 |
0 |
elsif ($ent eq 'group') { } |
|
|
0 |
0 |
elsif ($ent eq 'valid-user') { } |
|
226
|
0 |
0 |
if _op("str", $username, $r->{'op'}, $r->{'value'}) |
|
229
|
0 |
0 |
if _op("str", $g, $r->{'op'}, $r->{'value'}) |
|
235
|
0 |
0 |
$status ? : |
|
242
|
0 |
0 |
unless scalar @$reqs |
|
243
|
0 |
0 |
unless length $ip |
|
246
|
0 |
0 |
if ($ent eq 'ip') { } |
|
|
0 |
0 |
elsif ($ent eq 'host') { } |
|
247
|
0 |
0 |
if _op("ip", $ip, $r->{'op'}, $r->{'value'}) |
|
250
|
0 |
0 |
unless length $host |
|
251
|
0 |
0 |
if _op("str", $host, $r->{'op'}, $r->{'value'}) |
|
261
|
0 |
0 |
unless scalar @$reqs |
|
264
|
0 |
0 |
unless length $varname |
|
265
|
0 |
0 |
exists $ENV{$varname} && defined $ENV{$varname} ? : |
|
266
|
0 |
0 |
is_integer($varval) ? : |
|
|
0 |
0 |
if _op(is_integer($varval) ? "int" : "str", $varval, $r->{'op'}, $r->{'value'}) |
|
274
|
0 |
0 |
unless ref $cb and ref $cb eq "CODE" |
|
277
|
0 |
0 |
unless scalar @$reqs |
|
280
|
0 |
0 |
unless length $hkey |
|
282
|
0 |
0 |
is_integer($hval) ? : |
|
|
0 |
0 |
if _op(is_integer($hval) ? "int" : "str", $hval, $r->{'op'}, $r->{'value'}) |
|
296
|
0 |
0 |
if ($rule eq "ip") |
|
297
|
0 |
0 |
unless $subnet = "Net::IP"->new($val) |
|
298
|
0 |
0 |
unless $ip = "Net::IP"->new($tst) |
|
299
|
0 |
0 |
unless defined $subnet and defined $ip |
|
303
|
0 |
0 |
if ($op eq 'eq') { } |
|
|
0 |
0 |
elsif ($op eq 'ne') { } |
|
|
0 |
0 |
elsif ($op eq 'gt') { } |
|
|
0 |
0 |
elsif ($op eq 'lt') { } |
|
|
0 |
0 |
elsif ($op eq 'ge') { } |
|
|
0 |
0 |
elsif ($op eq 'le') { } |
|
|
0 |
0 |
elsif ($op eq 're') { } |
|
|
0 |
0 |
elsif ($op eq 'rn') { } |
|
304
|
0 |
0 |
if ($rule eq 'str') { } |
|
|
0 |
0 |
elsif ($rule eq 'int') { } |
|
|
0 |
0 |
elsif ($rule eq 'ip') { } |
|
309
|
0 |
0 |
$subnet->overlaps($ip) ? : |
|
312
|
0 |
0 |
if ($rule eq 'str') { } |
|
|
0 |
0 |
elsif ($rule eq 'int') { } |
|
|
0 |
0 |
elsif ($rule eq 'ip') { } |
|
317
|
0 |
0 |
$subnet->overlaps($ip) ? : |
|
320
|
0 |
0 |
if ($rule eq 'str') { } |
|
|
0 |
0 |
elsif ($rule eq 'int') { } |
|
|
0 |
0 |
elsif ($rule eq 'ip') { } |
|
325
|
0 |
0 |
$subnet->bincomp($op, $ip) ? : |
|
328
|
0 |
0 |
if ($rule eq 'str') { } |
|
|
0 |
0 |
elsif ($rule eq 'int') { } |
|
|
0 |
0 |
elsif ($rule eq 'ip') { } |
|
333
|
0 |
0 |
$subnet->bincomp($op, $ip) ? : |
|
336
|
0 |
0 |
if ($rule eq 'str') { } |
|
|
0 |
0 |
elsif ($rule eq 'int') { } |
|
|
0 |
0 |
elsif ($rule eq 'ip') { } |
|
341
|
0 |
0 |
$subnet->bincomp($op, $ip) ? : |
|
344
|
0 |
0 |
if ($rule eq 'str') { } |
|
|
0 |
0 |
elsif ($rule eq 'int') { } |
|
|
0 |
0 |
elsif ($rule eq 'ip') { } |
|
349
|
0 |
0 |
$subnet->bincomp($op, $ip) ? : |
|
352
|
0 |
0 |
unless defined $tst and length $tst |
|
353
|
0 |
0 |
unless defined $val and length $val |
|
355
|
0 |
0 |
if ($rule eq 'str') { } |
|
|
0 |
0 |
elsif ($rule eq 'int') { } |
|
|
0 |
0 |
elsif ($rule eq 'ip') { } |
|
363
|
0 |
0 |
unless defined $tst and length $tst |
|
364
|
0 |
0 |
unless defined $val and length $val |
|
366
|
0 |
0 |
if ($rule eq 'str') { } |
|
|
0 |
0 |
elsif ($rule eq 'int') { } |
|
|
0 |
0 |
elsif ($rule eq 'ip') { } |