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 );