File Coverage

blib/lib/AnyEvent/TLS/SNI.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch	5	6	83.3
condition			n/a
subroutine	9	9	100.0
pod			n/a
total	45	46	97.8

package AnyEvent::TLS::SNI;
# ABSTRACT: adds Server Name Indication (SNI) support to AnyEvent::TLS client.
$AnyEvent::TLS::SNI::VERSION = '0.01';

use strict;
use warnings;
no warnings 'redefine';
no strict 'refs';
use AnyEvent::TLS;
use Net::SSLeay;
use Carp qw( croak );

croak 'Client side SNI not supported for this openssl'
    if Net::SSLeay::OPENSSL_VERSION_NUMBER() < 0x01000000;

{
    my $old_ref = \&{ 'AnyEvent::TLS::new' };
    *{ 'AnyEvent::TLS::new' } = sub {
        my ( $class, %param ) = @_;

        my $self = $old_ref->( $class, %param );

        $self->{host_name} = $param{host_name}
            if exists $param{host_name};

        $self;
    };
}

{
    my $old_ref = \&{ 'AnyEvent::TLS::_get_session' };
    *{ 'AnyEvent::TLS::_get_session' } = sub($$;$$) {
        my ($self, $mode, $ref, $cn) = @_;

        my $session = $old_ref->( @_ );

        if ( $mode eq 'connect' ) {
            if ( $self->{host_name} ) {
                Net::SSLeay::set_tlsext_host_name( $session, $self->{host_name} );
            }
        }

        $session;
    };
}

1;

__END__