diff options
| author | gfx <gfuji@cpan.org> | 2010-09-15 13:34:18 +0900 |
|---|---|---|
| committer | gfx <gfuji@cpan.org> | 2010-09-15 13:34:18 +0900 |
| commit | 0e0a2aa9810c22e3744694965e3d45cab6c135e6 (patch) | |
| tree | 2c2b4aff305bdd5afb6c83a7df77f41fc95a78e3 /perl/benchmark/deserialize.pl | |
| parent | af73b9d11b0a8e0a0d1b6a02ee0b8213cca3867c (diff) | |
| download | msgpack-python-0e0a2aa9810c22e3744694965e3d45cab6c135e6.tar.gz | |
Add various integers to benchmarks
Diffstat (limited to 'perl/benchmark/deserialize.pl')
| -rw-r--r-- | perl/benchmark/deserialize.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/perl/benchmark/deserialize.pl b/perl/benchmark/deserialize.pl index 9658c0c..634a79e 100644 --- a/perl/benchmark/deserialize.pl +++ b/perl/benchmark/deserialize.pl @@ -5,11 +5,13 @@ use JSON::XS; use Benchmark ':all'; use Storable; +#$Data::MessagePack::PreferInteger = 1; + my $a = { "method" => "handleMessage", "params" => [ "user1", "we were just talking" ], "id" => undef, - "array" => [ 1, 11, 234, -5, 1e5, 1e7, 1, 0, 3.14, sqrt(2) ] + "array" => [ 1, 1024, 70000, -5, 1e5, 1e7, 1, 0, 3.14, sqrt(2) ], }; my $j = JSON::XS::encode_json($a); my $m = Data::MessagePack->pack($a); |