perl: tweaks for benchmarks

This commit is contained in:
gfx
2010-09-18 15:49:25 +09:00
parent 49379140c7
commit cb85dcfcb8
3 changed files with 9 additions and 12 deletions

6
perl/benchmark/data.pl Executable file
View File

@@ -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 ],
};