##########
package StorageDisplay::Collect::JSON;
BEGIN {
# Mark current package as loaded;
# else, we cannot use 'use StorageDisplay::Collect::JSON;' latter
my $p = __PACKAGE__;
$p =
rser` to know if JSON:PP makes all the work alone
# - `decode_json` to decode a json text with the $json_parser object
# - a public `new` class method that returns
# - a plain JSON::PP object (if
t inherit from JSON::PP
# - an overrided `decode` method that
# - calls SUPER::decode
# - manually transforms JSON:::PP::Boolean into plain scalar
# $json_parser is
# - either a JSON::PP object (i