sed, it is handed off to
L<Data::Structure::Deserialize::Auto>, which attempts to parse a
YAML, JSON, TOML, or perl string value or filename of an existing, readable file
containing data in one of t
sed, it is handed off to
L<Data::Structure::Deserialize::Auto>, which attempts to parse a
YAML, JSON, TOML, or perl string value or filename of an existing, readable file
containing data in one of t
h->($ref);
}
my sub stringify_value($v) {
return 'undef' unless (defined($v));
return encode_json($v) if (ref($v));
return qq{"$v"} if (!looks_like_number($v));
return $v;
}
my sub re
Deserializes perl structures, JSON or YML data, from strings or files
use strict;
use warnings;
use File::Basename;
use IO::All;
use Readonly;
use JSON qw(decode_json);
use YAML::XS;
use Syntax::
'yaml',
json => 'json',
);
Readonly::Scalar my $DEFAULT_DECODER => q{perl};
sub decoders() {
return (
yaml => sub {
Load(shift());
},
json => sub {
decode_json(shift());
d
=encoding UTF-8
=head1 NAME
Config::Structured::Deserializer - Deserializes perl structures, JSON or YML data, from strings or files
=head1 VERSION
version 2.004
=head1 AUTHOR
Mark Tyrrell <m