File Coverage

blib/lib/POE/Component/TLSify.pm

Criterion	Covered	Total	%
statement	45	51	88.2
branch	12	20	60.0
condition	4	6	66.6
subroutine	11	11	100.0
pod	4	4	100.0
total	76	92	82.6

package POE::Component::TLSify;
$POE::Component::TLSify::VERSION = '0.06';
#ABSTRACT: Makes using SSL/TLS in the world of POE easy!

use strict;
use warnings;

use Symbol qw[gensym];
use Scalar::Util qw[weaken];
use POE::Component::TLSify::ClientHandle;
use POE::Component::TLSify::ServerHandle;

use parent 'Exporter';
our @EXPORT_OK = qw[
  Client_TLSify Server_TLSify TLSify_GetSocket TLSify_GetCipher
];

sub Server_TLSify {
  my ($socket,$args,$callback) = @_;

  if ( ! defined $socket ) {
    die 'Did not get a defined socket';
  }

  if ( ! defined $socket->blocking( 0 ) ) {
    die "Unable to set nonblocking mode on socket: $!";
  }

  if ( defined $callback && ref $callback ne 'CODE' ) {
    undef $callback;
  }

  my $newsock = gensym();
  tie( *$newsock, 'POE::Component::TLSify::ServerHandle', $socket, $args, $callback ) or die "Unable to tie to our subclass: $!";

  if ( defined $callback ) {
    tied( *$newsock )->{'orig_socket'} = $newsock;
    weaken ( tied( *$newsock )->{'orig_socket'} );
  }

  return $newsock;
}

sub Client_TLSify {
  my ($socket,$args,$callback) = @_;

  if ( ! defined $socket ) {
    die 'Did not get a defined socket';
  }

  if ( ! defined $socket->blocking( 0 ) ) {
    die "Unable to set nonblocking mode on socket: $!";
  }

  if ( defined $callback && ref $callback ne 'CODE' ) {
    undef $callback;
  }

  my $newsock = gensym();
  tie( *$newsock, 'POE::Component::TLSify::ClientHandle', $socket, $args, $callback ) or die "Unable to tie to our subclass: $!";

  if ( defined $callback ) {
    tied( *$newsock )->{'orig_socket'} = $newsock;
    weaken ( tied( *$newsock )->{'orig_socket'} );
  }

  return $newsock;
}

sub TLSify_GetSocket {
  my $sock = shift;
  return tied( *$sock )->{'socket'};
}

sub TLSify_GetCipher {
  my $sock = shift;
  return tied( *$sock )->{'socket'}->get_cipher;
}

qq[I TLSify!];

__END__