File Coverage

blib/lib/Protocol/TLS/Crypto.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch	2	4	50.0
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	22	25	88.0

package Protocol::TLS::Crypto;
use strict;
use warnings;
use Module::Runtime qw(compose_module_name require_module);

# TODO: select backend
our $BACKEND = 'CryptX';

my $crypto  = undef;
my @methods = (qw(PRF PRF_hash random rsa_encrypt cert_pubkey));

sub new {
    return $crypto if $crypto;
    my $module = compose_module_name( 'Protocol::TLS::Crypto', $BACKEND );
    require_module $module;
    my $crypto = $module->new;
    for (@methods) {
        die ref($crypto) . " backend doesn't implement method $_\n"
          unless $crypto->can($_);
    }
    $crypto;
}

1