File Coverage

blib/lib/OpenID/Lite/Message/Decoder/Hash.pm

Criterion	Covered	Total	%
statement	9	21	42.8
branch	0	6	0.0
condition			n/a
subroutine	3	4	75.0
pod	0	1	0.0
total	12	32	37.5

package OpenID::Lite::Message::Decoder::Hash;

use Any::Moose;
use OpenID::Lite::Message;

sub decode {
    my ( $self, $hash ) = @_;
    my $message = OpenID::Lite::Message->new;
    for my $key (%$hash) {
        if ( $key =~ /^openid\.(.+)$/ ) {
            $message->set( $1, $hash->{$key} );
        }
        elsif ( $key =~ /^openid\.(.+)\.(.+)$/ ) {
            my $ext_name = $1;
            my $ext_key  = $2;
            if ( $ext_name eq 'ns' ) {
                $message->register_extension_namespace( $ext_key,
                    $hash->{$key} );
            }
            else {
                $message->set_extension( $ext_name, $ext_key, $hash->{$key} );
            }
        }
        else {
            $message->set_extra( $key, $hash->{$key} );
        }
    }
    return $message;
}

no Any::Moose;
__PACKAGE__->meta->make_immutable;
1;