| line |
true |
false |
branch |
|
41
|
0 |
182 |
if @_ & 1 |
|
46
|
0 |
182 |
if defined $args{'raw_events'} |
|
49
|
0 |
182 |
defined $args{'prefix'} ? : |
|
52
|
182 |
0 |
defined $args{'antiflood'} ? : |
|
56
|
182 |
0 |
defined $args{'auth'} ? : |
|
58
|
12 |
170 |
if ($args{'sslify_options'} and ref $args{'sslify_options'} eq "ARRAY") |
|
66
|
0 |
12 |
if $@ |
|
75
|
0 |
12 |
if $@ |
|
79
|
181 |
1 |
if ($args{'states'}) |
|
81
|
0 |
181 |
if defined $error |
|
97
|
181 |
1 |
$args{'states'} ? : |
|
|
182 |
0 |
$args{'plugin_debug'} ? : |
|
|
0 |
182 |
ref $args{'options'} eq 'HASH' ? : |
|
100
|
1 |
181 |
if ($self->{'auth'}) |
|
117
|
181 |
181 |
if (ref $events eq 'HASH') { } |
|
|
181 |
0 |
elsif (ref $events eq 'ARRAY') { } |
|
119
|
0 |
3982 |
if ({"add_connector" => "_add_connector","add_listener" => "_add_listener","del_listener" => "_del_listener","send_output" => "_send_output","shutdown" => "_shutdown","syndicator_started" => "_start"}->{$event} or &first(sub {
$event eq $_;
}
, @{["_accept_connection","_accept_failed","_conn_alarm","_conn_input","_conn_error","_conn_flushed","_event_dispatcher","_sock_failed","_sock_up","_sock_ssl"];})) |
|
127
|
0 |
724 |
if ({"add_connector" => "_add_connector","add_listener" => "_add_listener","del_listener" => "_del_listener","send_output" => "_send_output","shutdown" => "_shutdown","syndicator_started" => "_start"}->{$event} or &first(sub {
$event eq $_;
}
, @{["_accept_connection","_accept_failed","_conn_alarm","_conn_input","_conn_error","_conn_flushed","_event_dispatcher","_sock_failed","_sock_up","_sock_ssl"];})) |
|
157
|
0 |
0 |
if $value |
|
211
|
15 |
13 |
if ($self->{'got_ssl'} and $listener->{'usessl'}) |
|
218
|
0 |
15 |
if $@ |
|
233
|
525 |
0 |
if ($wheel) |
|
251
|
1 |
524 |
$listener->{'auth'} && $self->{'auth'} ? : |
|
271
|
6 |
519 |
if (my $reason = $self->denied($peeraddr)) |
|
283
|
0 |
15 |
unless $cont->{'wheel_id'} |
|
285
|
0 |
15 |
unless $self->{'wheels'}{$wheel_id} |
|
287
|
0 |
15 |
unless $stat |
|
290
|
15 |
0 |
if $sslinf |
|
302
|
0 |
0 |
$version == 65279 ? : |
|
|
0 |
0 |
$version == 2 ? : |
|
|
0 |
0 |
$version == 768 ? : |
|
|
0 |
0 |
$version == 769 ? : |
|
|
0 |
0 |
$version == 770 ? : |
|
|
29 |
0 |
$version == 771 ? : |
|
|
0 |
29 |
$version == 772 ? : |
|
318
|
0 |
174 |
if @_ & 1 |
|
335
|
10 |
168 |
if $args{'usessl'} |
|
336
|
0 |
178 |
if defined $args{'auth'} and $args{'auth'} eq 0 |
|
337
|
0 |
178 |
if defined $args{'antiflood'} and $args{'antiflood'} eq 0 |
|
346
|
0 |
178 |
ip_is_ipv6($bindaddr) ? : |
|
|
0 |
178 |
$args{'listenqueue'} ? : |
|
360
|
178 |
0 |
if ($port) |
|
375
|
0 |
10 |
if @_ & 1 |
|
388
|
0 |
10 |
if ($self->_listener_exists($listener_id)) { } |
|
|
10 |
0 |
elsif (defined $port) { } |
|
401
|
10 |
0 |
if ($listener->{'port'} == $port) |
|
420
|
0 |
0 |
if defined $self->{'listeners'}{$listener_id} |
|
426
|
0 |
3 |
if @_ & 1 |
|
440
|
0 |
3 |
unless $remoteaddress and $remoteport |
|
450
|
0 |
3 |
$args{'bindaddress'} ? : |
|
|
0 |
3 |
ip_is_ipv6($remoteaddress) ? : |
|
454
|
3 |
0 |
if ($wheel) |
|
481
|
1 |
0 |
if ($self->{'got_ssl'} and $cntr->{'usessl'}) |
|
487
|
0 |
1 |
if $@ |
|
502
|
0 |
3 |
unless $wheel |
|
535
|
0 |
0 |
unless $wheel_id and $self->connection_exists($wheel_id) and $input |
|
538
|
0 |
0 |
if ($self->{'wheels'}{$wheel_id}{'flooded'}) |
|
541
|
0 |
0 |
if (not $self->{'wheels'}{$wheel_id}{'timer'} or $self->{'wheels'}{$wheel_id}{'timer'} < $current_time) |
|
549
|
0 |
0 |
if ($self->{'wheels'}{$wheel_id}{'timer'} <= $current_time + 10) |
|
570
|
0 |
241 |
unless $self->connection_exists($wheel_id) |
|
580
|
0 |
0 |
unless $self->connection_exists($wheel_id) |
|
599
|
0 |
2794 |
unless $self->connection_exists($wheel_id) |
|
608
|
246 |
2548 |
if ($self->{'wheels'}{$wheel_id}{'disconnecting'}) |
|
616
|
1 |
2547 |
if ($self->{'wheels'}{$wheel_id}{'compress_pending'}) |
|
632
|
1 |
3940 |
if $conn->{'disconnecting'} |
|
639
|
0 |
3940 |
if ($self->{'raw_events'}) |
|
651
|
0 |
3940 |
if ($self->antiflood($wheel_id)) { } |
|
664
|
0 |
0 |
if (not $self->connection_exists($wheel_id) or $self->{'wheels'}{$wheel_id}{'flooded'}) |
|
672
|
0 |
0 |
if ($input) |
|
682
|
12465 |
230 |
if ($output and ref $output eq "HASH") |
|
684
|
0 |
9146 |
if ($self->{'raw_events'}) |
|
705
|
0 |
4482 |
unless $self->connection_exists($wheel_id) |
|
706
|
4482 |
0 |
unless $self->{'antiflood'} |
|
707
|
0 |
0 |
unless defined $value |
|
709
|
0 |
0 |
unless ($value) |
|
715
|
0 |
0 |
if ($input) |
|
728
|
0 |
2 |
unless $self->connection_exists($wheel_id) |
|
729
|
0 |
2 |
unless defined $value |
|
731
|
2 |
0 |
if ($value) { } |
|
732
|
2 |
0 |
unless ($self->{'got_zlib'}) |
|
738
|
0 |
2 |
unless $self->{'got_zlib'} |
|
740
|
1 |
1 |
if ($cntr) { } |
|
763
|
0 |
240 |
unless $wheel_id and $self->connection_exists($wheel_id) |
|
770
|
0 |
487 |
unless $wheel_id and $self->connection_exists($wheel_id) |
|
782
|
0 |
487 |
if ($^O =~ /(cygwin|MSWin)/) |
|
792
|
0 |
0 |
unless $self->connection_exists($wheel_id) |
|
800
|
79 |
17394 |
unless $wheel_id and defined $self->{'wheels'}{$wheel_id} |
|
806
|
0 |
484 |
unless $wheel_id and defined $self->{'wheels'}{$wheel_id} |
|
807
|
470 |
14 |
unless $self->{'wheels'}{$wheel_id}{'secured'} |
|
809
|
14 |
0 |
unless ($sslinfo) |
|
812
|
14 |
0 |
if $sslinfo |
|
820
|
0 |
12 |
unless $wheel_id and defined $self->{'wheels'}{$wheel_id} |
|
821
|
0 |
12 |
unless $self->{'wheels'}{$wheel_id}{'secured'} |
|
828
|
9 |
3 |
if $fp |
|
834
|
0 |
0 |
unless $wheel_id and defined $self->{'wheels'}{$wheel_id} |
|
840
|
0 |
2 |
unless $wheel_id and defined $self->{'wheels'}{$wheel_id} |
|
847
|
0 |
0 |
unless $self->connection_exists($conn_id) |
|
856
|
6 |
0 |
unless (eval {
do {
$netmask->isa("Net::Netmask")
}
}) |
|
860
|
0 |
6 |
unless ($netmask) |
|
875
|
0 |
5 |
unless $self->{'denials'}{$netmask} |
|
884
|
0 |
0 |
unless ($netmask->isa("Net::Netmask")) |
|
888
|
0 |
0 |
unless ($netmask) |
|
893
|
0 |
0 |
unless ($self->{'exemptions'}{$netmask}) |
|
902
|
0 |
0 |
unless $self->{'exemptions'}{$netmask} |
|
910
|
0 |
537 |
if $self->exempted($ipaddr) |
|
913
|
0 |
11 |
if (eval {
do {
$self->{'denials'}{$mask}{'blk'}->isa('Net::Netmask')
}
} and $self->{'denials'}{$mask}{'blk'}->match($ipaddr)) { } |
|
|
11 |
0 |
elsif (Net::CIDR::cidrlookup($ipaddr, $self->{'denials'}{$mask}{'blk'})) { } |
|
928
|
0 |
0 |
if $self->{'exemptions'}{$mask}->isa("Net::Netmask") and $self->{'exemptions'}{$mask}->match($ipaddr) |
|
929
|
0 |
0 |
if Net::CIDR::cidrlookup($ipaddr, $self->{'exemptions'}{$mask}) |