view release on metacpan or  search on metacpan

lib/Net/HTTP2/Client/Connection/IOAsync.pm  view on Meta::CPAN

use parent 'Net::HTTP2::Client::Connection';

use IO::Async::SSL ();
use Scalar::Util   ();

use Net::HTTP2::IOSocketSSL ();

# perl -I ../p5-X-Tiny/lib -MIO::Async::Loop -MData::Dumper -MAnyEvent -I ../p5-IO-SigGuard/lib -I ../p5-Promise-ES6/lib -Ilib -MNet::HTTP2::Client::Connection::IOAsync -e'my $loop = IO::Async::Loop->new(); my $pool = Net::HTTP2::Client::Connection::...

#$IO::Socket::SSL::DEBUG = 5;
#$Net::SSLeay::trace = 8;

sub _parse_args {
    my ($class, $loop) = splice @_, 0, 2;

    return (
        $class->SUPER::_parse_args(@_),
        loop => $loop,
    );
}

lib/Net/HTTP2/Client/Connection/Mojo.pm  view on Meta::CPAN

use Mojo::IOLoop::Client ();
use Mojo::Promise ();

use Net::HTTP2::IOSocketSSL;

use constant _PROMISE_CLASS => 'Mojo::Promise';

# perl -I ../p5-X-Tiny/lib -MCarp::Always -MData::Dumper -I ../p5-Promise-ES6/lib -Ilib -MNet::HTTP2::Client::Connection::Mojo -e'my $h2 = Net::HTTP2::Client::Connection::Mojo->new("google.com"); $h2->request("GET", "/")->then( sub { print Dumper shi...

#$IO::Socket::SSL::DEBUG = 5;
#$Net::SSLeay::trace = 8;

use constant _INIT_OPTS => (
    __PACKAGE__->SUPER::_INIT_OPTS(),
    'reactor',
);

sub _parse_event_args {
    my ($self, %opts) = @_;

lib/Net/HTTP2/IOSocketSSL.pm  view on Meta::CPAN

package Net::HTTP2::IOSocketSSL;

use strict;
use warnings;

use IO::Socket::SSL ();

use constant _TLS_PROTO_ARGNAME => IO::Socket::SSL->can_alpn() ? 'SSL_alpn_protocols' : 'SSL_npn_protocols';

sub tls_proto_args {
    return ( _TLS_PROTO_ARGNAME, [Protocol::HTTP2::ident_tls] );
}

sub verify_args_from_boolean {
    my ($verify_yn) = @_;

    return ( SSL_verify_mode => $verify_yn ? IO::Socket::SSL::SSL_VERIFY_PEER : IO::Socket::SSL::SSL_VERIFY_NONE );
}

1;