package
MLDBM::Serializer::YAML;
$VERSION
=
'0.10'
;
@ISA
=
qw(MLDBM::Serializer)
;
use
strict;
sub
serialize {
local
$YAML::UseVersion
= 0;
local
$YAML::CompressSeries
= 0;
local
$YAML::Indent
= 1;
local
$YAML::SortKeys
= 0;
YAML::Dump(
$_
[1]);
}
sub
deserialize {
YAML::Load(
$_
[1]);
}
1;