File Coverage

blib/lib/Data/Encoder/Data/MessagePack.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	2	4	50.0
condition	2	2	100.0
subroutine	6	6	100.0
pod	0	3	0.0
total	31	36	86.1

package Data::Encoder::Data::MessagePack;

use strict;
use warnings;
use Data::MessagePack;

my $ooish = $Data::MessagePack::VERSION >= 0.36;

sub new {
    my ($class, $args) = @_;
    my $mp = 'Data::MessagePack';
    if ($ooish) {
        $mp = Data::MessagePack->new;
        $args ||= {};
        for my $method (keys %$args) {
            $mp->$method(defined $args->{$method} ? $args->{$method} : ());
        }
    }
    bless { mp => $mp }, __PACKAGE__;
}

sub encode {
    my ($self, $stuff, @args) = @_;
    $self->{mp}->pack($stuff);
}

sub decode {
    my ($self, $stuff, @args) = @_;
    $self->{mp}->unpack($stuff);
}

1;
__END__