/usr/local/CPAN/YAML-MLDBM/MLDBM/Serializer/YAML.pm

• package MLDBM::Serializer::YAML
  • serialize
  • deserialize
• EOF

package MLDBM::Serializer::YAML;
$VERSION = '0.10';
@ISA = qw(MLDBM::Serializer);

use strict;
use YAML '0.35';

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;