File Coverage

blib/lib/Tie/MLDBM/Serialise/Storable.pm

Criterion	Covered	Total	%
statement	9	13	69.2
branch			n/a
condition			n/a
subroutine	3	5	60.0
pod	0	2	0.0
total	12	20	60.0

package Tie::MLDBM::Serialise::Storable;

use Storable;

use strict;
use vars qw/ $VERSION /;

$VERSION = '1.04';


sub deserialise {
    my ( $self, $arg ) = @_;
    return Storable::thaw( $arg );
}


sub serialise {
    my ( $self, $arg ) = @_;
    return Storable::nfreeze( $arg );
}


1;


__END__