From cb85dcfcb8bdaf706ab515bce4bc1991c990716c Mon Sep 17 00:00:00 2001
From: gfx <gfuji@cpan.org>
Date: Sat, 18 Sep 2010 15:49:25 +0900
Subject: [PATCH] perl: tweaks for benchmarks
---
perl/benchmark/data.pl | 6 ++++++
perl/benchmark/deserialize.pl | 8 ++------
perl/benchmark/serialize.pl | 7 +------
3 files changed, 9 insertions(+), 12 deletions(-)
create mode 100755 perl/benchmark/data.pl
diff --git a/perl/benchmark/data.pl b/perl/benchmark/data.pl
new file mode 100755
index 00000000..6908d1cc
--- /dev/null
+++ b/perl/benchmark/data.pl
@@ -0,0 +1,6 @@
++{
+ "method" => "handleMessage",
+ "params" => [ "user1", "we were just talking", "foo\nbar\nbaz\nqux" ],
+ "id" => undef,
+ "array" => [ 1, 1024, 70000, -5, 1e5, 1e7, 1, 0, 3.14, sqrt(2), 1 .. 100 ],
+};
diff --git a/perl/benchmark/deserialize.pl b/perl/benchmark/deserialize.pl
index 634a79ed..b1d7fdf2 100644
--- a/perl/benchmark/deserialize.pl
+++ b/perl/benchmark/deserialize.pl
@@ -7,12 +7,8 @@ use Storable;
#$Data::MessagePack::PreferInteger = 1;
-my $a = {
- "method" => "handleMessage",
- "params" => [ "user1", "we were just talking" ],
- "id" => undef,
- "array" => [ 1, 1024, 70000, -5, 1e5, 1e7, 1, 0, 3.14, sqrt(2) ],
-};
+my $a = do 'benchmark/data.pl';
+
my $j = JSON::XS::encode_json($a);
my $m = Data::MessagePack->pack($a);
my $s = Storable::freeze($a);
diff --git a/perl/benchmark/serialize.pl b/perl/benchmark/serialize.pl
index e0509ffa..33746842 100644
--- a/perl/benchmark/serialize.pl
+++ b/perl/benchmark/serialize.pl
@@ -5,12 +5,7 @@ use JSON::XS;
use Storable;
use Benchmark ':all';
-my $a = {
- "method" => "handleMessage",
- "params" => [ "user1", "we were just talking" ],
- "id" => undef,
- "array" => [ 1, 1024, 70000, -5, 1e5, 1e7, 1, 0, 3.14, sqrt(2) ],
-};
+my $a = do 'benchmark/data.pl';
print "-- serialize\n";
print "JSON::XS: $JSON::XS::VERSION\n";