| line |
!l |
l&&!r |
l&&r |
condition |
|
52
|
0 |
0 |
2 |
@args and ref $args[0] |
|
63
|
0 |
0 |
0 |
-d $pcapdir and -w _ |
|
75
|
0 |
0 |
0 |
-f $f and -r _ |
|
|
0 |
0 |
0 |
-f $f and -r _ and -s _ |
|
104
|
0 |
0 |
0 |
@_ || !(-f $f) and open my $fh, '>', $f |
|
126
|
0 |
0 |
2 |
$filter and @$filter |
|
138
|
1 |
0 |
1 |
$f =~ s/=(.*)// && $1 |
|
155
|
2 |
0 |
0 |
$self->{'logrx'} && do {
my $rx = $self->{'logrx'};
sub {
my($level, $msg, $dir, $off, $len) = @_;
return unless $level =~ /$rx/;
print STDERR "[$level](${dir}:$off,$len) $msg\n";
}
} |
|
182
|
0 |
0 |
0 |
-f '/etc/ssl/certs.pem' and -r _ |
|
|
0 |
0 |
0 |
-f '/etc/ssl/certs.pem' and -r _ and -s _ |
|
206
|
0 |
0 |
2 |
$self->{'addr'} and ref $self->{'addr'} ne 'ARRAY' |
|
233
|
0 |
0 |
0 |
$self->{'max_connect_per_child'} > 0 and 0 == --$self->{'max_connect_per_child'} |