rialization from Sereal-or-Storable to JSON::XS.
use JSON::XS ();
tied(%h2)->encoder( \&JSON::XS::encode_json );
tied(%h2)->decoder( \&JSON::XS::decode_json );
my @pairs = ( key1 => 'val1', key
t L<Tie::File> demonstration. Each element
in the array corresponds to a record in the text file. JSON, being readable,
seems appropiate for encoding complex objects.
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~~~~~~
use strict;
use warnings;
use MCE::Hobo;
use MCE::Mutex;
use MCE::Shared;
use JSON::MaybeXS;
# Safety for data having line breaks.
use constant EOL => "\x{0a}~\x{0a}";
my $fil