Condition Coverage

blib/lib/Net/HTTP2/Client/Connection/AnyEvent.pm
Criterion Covered Total %
condition 1 3 33.3


or 3 conditions

line l !l&&r !l&&!r condition
48 0 2 0 $self->{'ae_handle'} ||= do { my @tls_opts; if ($self->{'tls_verify_yn'}) { push @tls_opts, ("verify", 1, "verify_peername", "https"); } ; my $tls = "AnyEvent::TLS"->new(@tls_opts); &Net::SSLeay::CTX_set_alpn_protos(scalar $tls->ctx, scalar $self->_ALPN_PROTOS); my $weak_self = $self; &Scalar::Util::weaken($weak_self); "AnyEvent::Handle"->new("connect", [$host, $port], "tls", "connect", "tls_ctx", $tls, "on_error", sub { my($handle, $fatal, $msg) = @_; $weak_self->_on_stream_error($msg); $handle->destroy; } , "on_eof", sub { $weak_self->_on_stream_close if $weak_self; (shift())->destroy; } , "on_read", sub { $h2->feed(substr($_[0]->rbuf, 0, length $_[0]->rbuf, "")); } ) }