File Coverage

blib/lib/POE/Component/TLSify/ClientHandle.pm

Criterion	Covered	Total	%
statement	26	28	92.8
branch	4	8	50.0
condition	4	9	44.4
subroutine	6	6	100.0
pod			n/a
total	40	51	78.4

package POE::Component::TLSify::ClientHandle;
$POE::Component::TLSify::ClientHandle::VERSION = '0.08';
#ABSTRACT: Client-side handle for TLSify

use strict;
use warnings;
use POSIX qw[EAGAIN EWOULDBLOCK];
use IO::Socket::SSL qw[$SSL_ERROR SSL_WANT_READ SSL_WANT_WRITE];

use parent 'POE::Component::TLSify::ServerHandle';

sub TIEHANDLE {
  my ($class,$socket,$args,$connref) = @_;
  my $fileno = fileno($socket);

  my %SSL_ca_args = IO::Socket::SSL::default_ca();

  if ( !defined $args->{SSL_verify_mode}
       and !defined $args->{SSL_ca_file}
       and !defined $args->{SSL_ca_path} ) {

    unless ( %SSL_ca_args ) {
      $SSL_ca_args{SSL_verify_mode} = IO::Socket::SSL::SSL_VERIFY_NONE();
    }

    %$args = ( %SSL_ca_args, %$args );
  }

  $socket = IO::Socket::SSL->start_SSL(
    $socket,
    SSL_startHandshake => 0,
    %$args,
  ) or die IO::Socket::SSL->errstr;
  $socket->connect_SSL;
  if( $! != EAGAIN and $! != EWOULDBLOCK ) {
    die IO::Socket::SSL::errstr();
  }
  my $self = bless {
    socket  => $socket,
    started => 0,
    fileno  => $fileno,
    method  => 'connect_SSL',
    on_connect => $connref,
  }, $class;
  return $self;
}

qq[I TLSify!];

__END__