File Coverage

blib/lib/OpenID/Lite/SignatureMethods.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	0	1	0.0
total	23	24	95.8

package OpenID::Lite::SignatureMethods;

use strict;
use warnings;

use OpenID::Lite::Constants::AssocType qw(:all);
use OpenID::Lite::SignatureMethod::HMAC_SHA1;
use OpenID::Lite::SignatureMethod::HMAC_SHA256;

my %methods = (
    HMAC_SHA1()   => OpenID::Lite::SignatureMethod::HMAC_SHA1->new,
    HMAC_SHA256() => OpenID::Lite::SignatureMethod::HMAC_SHA256->new,
);

sub select_method {
    my ( $self, $type ) = @_;
    return $methods{$type};
}

1;