File Coverage

blib/lib/Data/Encoder/Custom.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch			n/a
condition	1	2	50.0
subroutine	5	5	100.0
pod	0	3	0.0
total	19	23	82.6

package Data::Encoder::Custom;

use strict;
use warnings;

sub new {
    my ($class, $args) = @_;
    $args ||= {};
    bless { %$args }, __PACKAGE__;
}

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

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

1;
__END__