File Coverage

blib/lib/AnyEvent/TLS/SNI.pm

Criterion	Covered	Total	%
statement	24	35	68.5
branch	0	8	0.0
condition			n/a
subroutine	8	10	80.0
pod			n/a
total	32	53	60.3

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

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

{
    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} ) {
                croak 'Client side SNI not supported for this openssl'
                    if Net::SSLeay::OPENSSL_VERSION_NUMBER() < 0x01000000;
                Net::SSLeay::set_tlsext_host_name( $session, $self->{host_name} );
            }
        }

        $session;
    };
}

1;

__END__