From e0bd2a291182bb6cfe1971de59bcf18f7bd52b04 Mon Sep 17 00:00:00 2001
From: Tokuhiro Matsuno <tokuhirom@users.sourceforge.jp>
Date: Wed, 15 Apr 2009 23:06:47 +0900
Subject: [PATCH] perl: added benchmark script for deserialization

---
 perl/benchmark/deserialize.pl | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 perl/benchmark/deserialize.pl

diff --git a/perl/benchmark/deserialize.pl b/perl/benchmark/deserialize.pl
new file mode 100644
index 00000000..fd21f086
--- /dev/null
+++ b/perl/benchmark/deserialize.pl
@@ -0,0 +1,20 @@
+use strict;
+use warnings;
+use Data::MessagePack;
+use JSON::XS;
+use Benchmark ':all';
+
+my $a = [0..2**24];
+my $j = JSON::XS::encode_json($a);
+my $m = Data::MessagePack->pack($a);
+
+print "-- deserialize\n";
+print "JSON::XS: $JSON::XS::VERSION\n";
+print "Data::MessagePack: $Data::MessagePack::VERSION\n";
+cmpthese(
+    -1 => {
+        json => sub { JSON::XS::decode_json($j)     },
+        mp   => sub { Data::MessagePack->unpack($m) },
+    }
+);
+