# Benchmark

use warnings;
use strict;

use Benchmark qw(cmpthese);
use Storable qw(freeze thaw);
use JSON::XS;

my $hashref = { one => 1, two => 2, three => 3, four => 4, five => 5 }
+;
my @array = (1 .. 1000);

cmpthese(
  -1,
  {
    'storable-hashref' => sub {
      my $foo = thaw(freeze($hashref));
    },
    'storable-arrayref' => sub {
      my $bar = thaw(freeze(\@array));
    },
    'json-xs-hashref' => sub {
      my $foo = decode_json(encode_json($hashref));
    },
    'json-xs-arrayref' => sub {
      my $bar = decode_json(encode_json(\@array));
    },
  }
);

__END__
[download]

$ perl -wl bm_storable_vs_json.pl
                      Rate storable-arrayref json-xs-arrayref storable
+-hashref json-xs-hashref
storable-arrayref   6222/s                --             -31%         
+    -84%            -99%
json-xs-arrayref    8967/s               44%               --         
+    -77%            -98%
storable-hashref   38280/s              515%             327%         
+      --            -92%
json-xs-hashref   501851/s             7965%            5497%         
+   1211%              --
$
[download]

If you cannot conceive of any application where store and retrieve inter-version portability is more important than performance then you have a very limited imagination yourself. Perhaps that's why you hide behind anonymity.

PHP 'serialize' doesn't seem to have a problem with either performance or inter-version portability yet we're stuck the Perl world with a "use at your own risk" core module for what should be a core piece of functionality. Storable could happily live on in CPAN and be an invaluable source for those who need the 'performance' and understand the risk.

When you don't 'own' the system you're code runs on you have to accept that the world around you may change, sometimes without notice. When that happens, you better not be depending on Storable to keep you running. Of course if you live in a bubble you're free to continue making what ever choices you want.

Perhaps that's why you hide behind anonymity.

You know what they say, when you assume...