view release on metacpan or  search on metacpan

author_tools/freeze_thaw_timing.pl  view on Meta::CPAN

#!/usr/bin/env perl
use strict;
use warnings;
use Sereal::Encoder;
use Sereal::Decoder;

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

package main;

my $data = Foo->new(name => "blargh");
my $data_big = [];
for (1..100) {
  push @$data_big, Foo->new(name => "blargh");
}
my $data_big_nocb = [];
for (1..100) {
  push @$data_big_nocb, bless({name => "blargh"} => "Bar");
}

my $frozen_nocb = $enc_nocb->encode($data);
my $frozen_cb = $enc_cb->encode($data);

my $frozen_big_nocb = $enc_nocb->encode($data_big);
my $frozen_big_cb = $enc_cb->encode($data_big);

my $timing = "1000.01";

print "Comparing small serialization with/out callbacks...\n";
cmpthese(
  $timing,
  {
    cb    => sub {$enc_cb->encode($data)},
    no_cb => sub {$enc_nocb->encode($data)},
  }
);

print "Comparing big serialization with/out callbacks...\n";
cmpthese(
  $timing,
  {
    cb             => sub {$enc_cb->encode($data_big)},
    no_cb          => sub {$enc_nocb->encode($data_big)},
    cb_nocbdata    => sub {$enc_cb->encode($data_big_nocb)},
    no_cb_nocbdata => sub {$enc_nocb->encode($data_big_nocb)},
  }
);


print "Comparing small deserialization with/out callbacks...\n";
cmpthese(
  $timing,
  {
    cb    => sub {$dec->decode($frozen_cb)},
    no_cb => sub {$dec->decode($frozen_nocb)},
  }