1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
#!/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)},
}
);
print "Comparing big deserialization with/out callbacks...\n";
cmpthese(
$timing,
{
cb => sub {$dec->decode($frozen_big_cb)},
no_cb => sub {$dec->decode($frozen_big_nocb)},
}
);
|
