perl: tweaks for benchmarks

3 files changed, 9 insertions, 12 deletions

diff --git a/perl/benchmark/data.pl b/perl/benchmark/data.pl
new file mode 100755
index 0000000..6908d1c
--- /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 634a79e..b1d7fdf 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 e0509ff..3374684 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";