File Coverage

blib/lib/KiokuDB/Backend/Serialize/Memory.pm

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

#!/usr/bin/perl

package KiokuDB::Backend::Serialize::Memory;
use Moose::Role;

use Storable qw(dclone);

use namespace::clean -except => 'meta';

with qw(
    KiokuDB::Backend::Serialize
    KiokuDB::Backend::Role::UnicodeSafe
    KiokuDB::Backend::Role::BinarySafe
    KiokuDB::Backend::TypeMap::Default::Storable
);

sub serialize {
    my ( $self, $entry ) = @_;

    return dclone($entry);
}

sub deserialize {
    my ( $self, $blob ) = @_;

    return defined($blob) && dclone($blob);
}

__PACKAGE__

__END__