#! /usr/bin/perl

package OpenSSL;

use strict;
use warnings;

use Exporter;
use vars qw(@ISA @EXPORT);
@ISA = 'Exporter';
@EXPORT = qw(openssl connect in s_client);

sub openssl {
    return bless {}, __PACKAGE__;
}

sub s_client {
    my $self = shift;
    $self->{s_client} = 1;
}

sub connect {
    my $self = shift;
    my $uri  = shift;
    my $cert = frantic_hand_waving($uri);

    return $cert;
}

1;