hex );
use English qw( -no_match_vars );
use File::Slurp qw( read_file write_file read_dir );
use JSON;
use Params::Validate qw( :all );
use Storable;
use YAML::Syck qw( LoadFile DumpFile );
=encodin
ails, it will try to use I<JSON> to load the data.
This method supports reading I<.12> and I<.13> file formats.
It can auto-detect if it was serialized with storable or JSON.
=cut
sub read_db_file {
# Data is a Storable image.
return retrieve($file_path);
}
require JSON;
return decode_json( $data );
} # }}}
1;
=back
=head1 LICENCE
Copyright 2009-2011, Bartłomiej Sygu