| line |
true |
false |
branch |
|
45
|
4 |
6 |
$params{'noserv'} ? : |
|
48
|
0 |
10 |
if $err |
|
49
|
4 |
6 |
$params{'noserv'} ? : |
|
145
|
2 |
0 |
blessed $class ? : |
|
147
|
0 |
2 |
unless 'POE::Session'->create('object_states', [$self, {'_start', '_start', '_stop', '_stop', 'register', '_register_controller', 'shutdown', '_shutdown', 'create_connector', '_create_connector', 'create_listener', '_create_listener', 'remove_listener', '_remove_listener', 'send', '_send', '_accept_conn_v4', '_accept_conn', '_accept_conn_v6', '_accept_conn', '_accept_fail', '_accept_fail', '_idle_alarm', '_idle_alarm', '_connector_up_v4', '_connector_up', '_connector_up_v6', '_connector_up', '_connector_failed', '_connector_failed', '_ircsock_input', '_ircsock_input', '_ircsock_error', '_ircsock_error', '_ircsock_flushed', '_ircsock_flushed'}]) |
|
176
|
1 |
1 |
if (defined $ssl_opts) |
|
177
|
0 |
1 |
unless ref $ssl_opts eq 'ARRAY' |
|
181
|
0 |
1 |
unless $self->has_ssl_support |
|
189
|
0 |
1 |
unless try sub {
die 'Failed to load POE::Component::SSLify' unless $self->has_ssl_support;
$self->_set_ssl_context(POE::Component::SSLify::SSLify_ContextCreate(@$ssl_opts));
1;
}
, catch(sub {
$ssl_err = $_;
undef;
}
) |
|
225
|
0 |
2 |
if $self->has_controller |
|
257
|
0 |
2 |
delete $args{'ipv6'} || ip_is_ipv6($bindaddr) ? : |
|
259
|
0 |
2 |
$protocol == 6 ? : |
|
|
0 |
2 |
$protocol == 6 ? : |
|
271
|
2 |
0 |
keys %args ? : |
|
285
|
2 |
0 |
if $port |
|
301
|
0 |
2 |
if (defined $args{'listener'} and $self->listeners->{$args{'listener'}}) |
|
314
|
0 |
2 |
if (defined $args{'port'} and defined $args{'addr'}) { } |
|
|
2 |
0 |
elsif (defined $args{'addr'} and $args{'addr'} eq $listener->addr) { } |
|
|
0 |
0 |
elsif (defined $args{'port'} and $args{'port'} eq $listener->port) { } |
|
315
|
0 |
0 |
if ($args{'addr'} eq $listener->addr and $args{'port'} eq $listener->port) |
|
342
|
0 |
0 |
if ($listener) |
|
354
|
0 |
2 |
$_[4] eq '_accept_conn_v6' ? : |
|
363
|
1 |
1 |
if ($using_ssl) |
|
365
|
0 |
1 |
unless $self->has_ssl_support |
|
370
|
0 |
1 |
unless try sub {
die 'Failed to load POE::Component::SSLify' unless $self->has_ssl_support;
$sock = POE::Component::SSLify::Server_SSLify($sock, $self->ssl_context);
}
, catch(sub {
warn "Could not SSLify (server) socket: $_";
undef;
}
) |
|
381
|
0 |
2 |
unless ($wheel) |
|
386
|
1 |
1 |
$using_ssl ? : |
|
393
|
2 |
0 |
$listener->has_args ? : |
|
439
|
0 |
2 |
unless defined $remote_addr and defined $remote_port |
|
442
|
0 |
2 |
$args{'bindaddr'} && ip_is_ipv6($args{'bindaddr'}) ? : |
|
|
0 |
2 |
ip_is_ipv6($remote_addr) ? : |
|
|
0 |
2 |
delete $args{'ipv6'} ? : |
|
448
|
0 |
2 |
$protocol == 6 ? : |
|
|
0 |
2 |
$protocol == 6 ? : |
|
|
0 |
2 |
defined $args{'bindaddr'} ? : |
|
467
|
1 |
1 |
defined $args{'ssl'} ? : |
|
|
0 |
2 |
defined $args{'bindaddr'} ? : |
|
|
2 |
0 |
keys %args ? : |
|
491
|
0 |
2 |
if ($_[4] eq '_connector_up_v6') { } |
|
505
|
1 |
1 |
if ($ct->ssl) |
|
507
|
0 |
1 |
unless $self->has_ssl_support |
|
515
|
0 |
1 |
unless try sub {
die 'Failed to load POE::Component::SSLify' unless $self->has_ssl_support;
$sock = POE::Component::SSLify::Client_SSLify($sock, undef, undef, $self->ssl_context);
$using_ssl = 1;
}
, catch(sub {
warn "Could not SSLify (client) socket: $_\n";
undef;
}
) |
|
528
|
0 |
2 |
unless ($wheel) |
|
533
|
1 |
1 |
$using_ssl ? : |
|
539
|
2 |
0 |
$ct->has_args ? : |
|
576
|
4 |
2 |
if $this_conn->has_alarm_id |
|
603
|
0 |
4 |
if ($this_conn->is_disconnecting) |
|
607
|
0 |
4 |
if ($this_conn->is_pending_compress) |
|
623
|
4 |
2 |
if (blessed $out and $out->isa('IRC::Message::Object')) |
|
628
|
8 |
8 |
exists $$out{$_} ? : |
|
635
|
0 |
6 |
unless ref $out eq 'HASH' and @ids |
|
640
|
2 |
4 |
if blessed $target |
|
650
|
0 |
0 |
if blessed $w_id |
|
651
|
0 |
0 |
unless defined $w_id |
|
657
|
0 |
0 |
unless (defined $self->wheels->{$w_id}) |
|
670
|
0 |
0 |
if blessed $w_id |
|
671
|
0 |
0 |
unless defined $w_id |
|
674
|
0 |
0 |
unless (defined $self->wheels->{$w_id}) |
|
688
|
0 |
4 |
unless $w_id and $self->wheels->{$w_id} |
|
693
|
2 |
2 |
if $this_conn->has_alarm_id |
|
696
|
0 |
4 |
if (RUNNING_IN_HELL) |
|
715
|
0 |
0 |
unless defined $w_id |
|
718
|
0 |
0 |
unless $self->has_zlib_support |
|
721
|
0 |
0 |
unless ($self->wheels->{$w_id}) |
|
733
|
0 |
0 |
unless defined $w_id |
|
737
|
0 |
0 |
unless (defined $this_conn) |
|
742
|
0 |
0 |
unless $self->has_zlib_support |
|
761
|
0 |
0 |
unless defined $w_id |
|
765
|
0 |
0 |
unless (defined $this_conn and $this_conn->compressed) |