From 0fe79a7752f1a2dec796281a9a6639d126948bd3 Mon Sep 17 00:00:00 2001
From: Tokuhiro Matsuno <tokuhirom@gmail.com>
Date: Thu, 30 Jul 2009 13:19:49 +0900
Subject: [PATCH] Perl: added benchmark script for memroy-usage

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

diff --git a/perl/benchmark/size.pl b/perl/benchmark/size.pl
new file mode 100644
index 00000000..85555ce3
--- /dev/null
+++ b/perl/benchmark/size.pl
@@ -0,0 +1,28 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use Data::MessagePack;
+use Storable;
+use Text::SimpleTable;
+
+my @entries = (
+    1,
+    3.14,
+    {},
+    [],
+    [('a')x10],
+    {('a')x10},
+    +{1,+{1,+{}}},
+    +[+[+[]]],
+);
+
+my $table = Text::SimpleTable->new([10, 'storable'], [10, 'msgpack']);
+
+for my $e (@entries) {
+    $table->row(
+        length(Storable::nfreeze(ref $e ? $e : \$e)),
+        length(Data::MessagePack->pack($e)),
+    );
+}
+
+print $table->draw;