NAME

Protocol::TLS::Client - pure Perl TLS Client

SYNOPSIS

    use Protocol::TLS::Client;

    # Create client object
    my $client = Protocol::TLS::Client->new();

    # You must create tcp connection yourself
    my $cv = AE::cv;
    tcp_connect 'example.com', 443, sub {
        my $fh = shift or do {
            warn "error: $!\n";
            $cv->send;
            return;
        };
        
        # socket handling
        my $h;
        $h = AnyEvent::Handle->new(
            fh       => $fh,
            on_error => sub {
                $_[0]->destroy;
                print "connection error\n";
                $cv->send;
            },
            on_eof => sub {
                $h->destroy;
                print "that's all folks\n";
                $cv->send;
            },
        );


        # Create new TLS-connection object
        my $con = $client->new_connection(

            # SERVER NAME (FQDN)
            'example.com',

            # Callback executed when TLS-handshake finished
            on_handshake_finish => sub {
                my ($tls) = @_;

                # Send some application data
                $tls->send("hi there\n");
            },
            
            # Callback executed when application data received
            on_data => sub {
                my ( $tls, $data ) = @_;
                print $data;
                
                # send close notify and close application level connection
                $tls->close;
            }
        );

        # Handshake start
        # Send TLS records to socket
        while ( my $record = $con->next_record ) {
            $h->push_write($record);
        }

        # low level socket operations (read/write)
        $h->on_read(
            sub {
                my $handle = shift;
                
                # read TLS records from socket and put them to $con object
                $con->feed( $handle->{rbuf} );
                $handle->{rbuf} = '';

                # write TLS records to socket
                while ( my $record = $con->next_record ) {
                    $handle->push_write($record);
                }

                # Terminate connection if all done
                $handle->push_shutdown if $con->shutdown;
                ();
            }
        );
        ();
    };

    # finish
    $cv->recv;

DESCRIPTION

Protocol::TLS::Client is TLS client library. It's intended to make TLS-client implementations on top of your favorite event loop.

METHODS

new

Initialize new client object

    my $client = Procotol::TLS::Client->new( %options );

Availiable options:

cert_file => /path/to/cert.crt

Path to client certificate to perform client to server authentication

key_file => /path/to/cert.key

Path to private key for client certificate

new_connection

Create new TLS-connection object

    my $con = $client->new_connection( 'F.Q.D.N', %options );

'F.Q.D.N' - fully qualified domain name

%options - options hash

Availiable options:

on_handshake_finish => sub { ... }

Callback invoked when TLS handshake completed

    on_handshake_finish => sub {
        my ($tls) = @_;

        # Send some application data
        $tls->send("hi there\n");
    },

on_data => sub { ... }

Callback executed when application data received

    on_data => sub {
        my ( $tls, $data ) = @_;
        print $data;

        # send close notify and close application level connection
        $tls->close;
    }

LICENSE

Copyright (C) Vladimir Lettiev.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

AUTHOR

Vladimir Lettiev <thecrux@gmail.com>