File Coverage

blib/lib/Data/Encoder/Storable.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	0	3	0.0
total	21	24	87.5

package Data::Encoder::Storable;

use strict;
use warnings;
use Storable;

sub new {
    my ($class) = @_;
    bless \my $obj, __PACKAGE__;
}

sub encode {
    my ($self, $stuff, @args) = @_;
    Storable::nfreeze($stuff);
}

sub decode {
    my ($self, $stuff, @args) = @_;
    Storable::thaw($stuff);
}

1;
__END__