--- JSON-XS/eg/bench 2007/08/28 02:06:06 1.16 +++ JSON-XS/eg/bench 2007/12/05 11:37:27 1.17 @@ -9,7 +9,7 @@ "JSON::DWIW" => ['$dwiw->to_json ($perl)' , '$dwiw->from_json ($json)'], # "JSON::PC" => ['$pc->convert ($perl)' , '$pc->parse ($json)'], "JSON::Syck" => ['JSON::Syck::Dump $perl' , 'JSON::Syck::Load $json'], - "JSON::XS" => ['to_json $perl' , 'from_json $json'], + "JSON::XS" => ['encode_json $perl' , 'decode_json $json'], "JSON::XS/2" => ['$xs2->encode ($perl)' , '$xs2->decode ($json)'], "JSON::XS/3" => ['$xs3->encode ($perl)' , '$xs3->decode ($json)'], "Storable" => ['Storable::nfreeze $perl' , 'Storable::thaw $pst'], @@ -19,7 +19,7 @@ use JSON::DWIW; use JSON::PC; use JSON::PP (); -use JSON::XS qw(to_json from_json); +use JSON::XS qw(encode_json decode_json); use JSON::Syck; use Storable (); @@ -57,7 +57,7 @@ sub bench($) { my ($code) = @_; - my $perl = JSON::XS::from_json $json; + my $perl = JSON::XS::decode_json $json; my $pst = Storable::nfreeze $perl; my $count = 5;