perl: renamed benchmark script

This commit is contained in:
Tokuhiro Matsuno
2009-04-15 23:02:27 +09:00
parent 5a201be844
commit ea41db4cc7

View File

@@ -7,6 +7,8 @@ use Benchmark ':all';
my $a = [0..2**24];
print "-- serialize\n";
print "JSON::XS: $JSON::XS::VERSION\n";
print "Data::MessagePack: $Data::MessagePack::VERSION\n";
cmpthese(
-1 => {
json => sub { JSON::XS::encode_json($a) },