From f6f675d1e12b2c5994099df3d1af1513b1d83bf2 Mon Sep 17 00:00:00 2001
From: tokuhirom <tokuhirom@gmail.com>
Date: Fri, 10 Sep 2010 20:27:11 +0900
Subject: [PATCH] updated benchmark script

---
 perl/benchmark/deserialize.pl | 9 ++++++---
 perl/benchmark/serialize.pl   | 5 ++++-
 2 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/perl/benchmark/deserialize.pl b/perl/benchmark/deserialize.pl
index fd21f08..0ddcec9 100644
--- a/perl/benchmark/deserialize.pl
+++ b/perl/benchmark/deserialize.pl
@@ -3,18 +3,21 @@ use warnings;
 use Data::MessagePack;
 use JSON::XS;
 use Benchmark ':all';
+use Storable;
 
 my $a = [0..2**24];
 my $j = JSON::XS::encode_json($a);
 my $m = Data::MessagePack->pack($a);
+my $s = Storable::nfreeze($a);
 
 print "-- deserialize\n";
 print "JSON::XS: $JSON::XS::VERSION\n";
 print "Data::MessagePack: $Data::MessagePack::VERSION\n";
-cmpthese(
+timethese(
     -1 => {
-        json => sub { JSON::XS::decode_json($j)     },
-        mp   => sub { Data::MessagePack->unpack($m) },
+        json     => sub { JSON::XS::decode_json($j)     },
+        mp       => sub { Data::MessagePack->unpack($m) },
+        storable => sub { Storable::thaw($s) },
     }
 );
 
diff --git a/perl/benchmark/serialize.pl b/perl/benchmark/serialize.pl
index 626ae03..b811bfe 100644
--- a/perl/benchmark/serialize.pl
+++ b/perl/benchmark/serialize.pl
@@ -2,6 +2,7 @@ use strict;
 use warnings;
 use Data::MessagePack;
 use JSON::XS;
+use Storable;
 use Benchmark ':all';
 
 my $a = [0..2**24];
@@ -9,9 +10,11 @@ my $a = [0..2**24];
 print "-- serialize\n";
 print "JSON::XS: $JSON::XS::VERSION\n";
 print "Data::MessagePack: $Data::MessagePack::VERSION\n";
-cmpthese(
+print "Storable: $Storable::VERSION\n";
+timethese(
     -1 => {
         json => sub { JSON::XS::encode_json($a)   },
+        storable => sub { Storable::nfreeze($a)   },
         mp   => sub { Data::MessagePack->pack($a) },
     }
 );