view release on metacpan or  search on metacpan

README.md  view on Meta::CPAN

```
use AnyEvent::HTTP;
use AnyEvent::TLS::SNI;

my $cv = AnyEvent->condvar;
$cv->begin;
AnyEvent::HTTP::http_get(
    'https://sni.velox.ch/',
    tls_ctx => {
        verify => 1,
        verify_peername => 'https',
        host_name => 'sni.velox.ch'
    },
    sub {
        printf "Body length = %d\n", length( shift );
        $cv->end;
    }
);
$cv->recv;

```

lib/AnyEvent/TLS/SNI.pm  view on Meta::CPAN

=head1 SYNOPSIS

    use AnyEvent::HTTP;
    use AnyEvent::TLS::SNI;

    my $cv = AnyEvent->condvar;
    $cv->begin;
    AnyEvent::HTTP::http_get(
        'https://sni.velox.ch/',
        tls_ctx => {
            verify => 1,
            verify_peername => 'https',
            host_name => 'sni.velox.ch'
        },
        sub {
            printf "Body length = %d\n", length( shift );
            $cv->end;
        }
    );
    $cv->recv;

=head1 NAME

t/01.t  view on Meta::CPAN

use_ok AnyEvent::TLS::SNI;

# my $cv = AnyEvent->condvar;

# my $body_sni;
# $cv->begin;
# AnyEvent::HTTP::http_get(
#     'https://sni.velox.ch/',
#     tls_ctx => {
#         verify => 1,
#         verify_peername => 'https',
#         host_name => 'sni.velox.ch'
#     },
#     sub {
#         $body_sni = shift;
#         $cv->end;
#     }
# );

# $cv->recv;