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]; my $a = [0..2**24];
print "-- serialize\n"; print "-- serialize\n";
print "JSON::XS: $JSON::XS::VERSION\n";
print "Data::MessagePack: $Data::MessagePack::VERSION\n";
cmpthese( cmpthese(
-1 => { -1 => {
json => sub { JSON::XS::encode_json($a) }, json => sub { JSON::XS::encode_json($a) },