view release on metacpan or  search on metacpan

author_tools/freeze_thaw_timing.pl  view on Meta::CPAN

use Benchmark::Dumb qw(cmpthese);

my $enc_nocb = Sereal::Encoder->new();
my $enc_cb = Sereal::Encoder->new({freeze_callbacks => 1});
my $dec = Sereal::Decoder->new();

package Foo;
sub new {
  my $class = shift;
  return bless({@_} => $class);
}

sub FREEZE {
  my ($self, $serializer) = @_;
  return $self->{name}; # performance
}

sub THAW {
  my ($class, $serializer, $data) = @_;
  return Foo->new(name => $data);