#!/usr/bin/env perl

package SerializeValues;
require Tie::Hash;
 @ISA = qw(Tie::ExtraHash);

use strict;
use warnings;
use Storable qw[freeze thaw];


sub TIEHASH {
  my ($class, $child_hash) = @_;
  return bless [$child_hash], $class;
}

sub STORE {
  $_[0][0]{$_[1]}= freeze $_[2]
}

sub FETCH {
  thaw $_[0][0]{$_[1]}
}