Config::Model::Backend::Json - Read and write config as a JSON data structure
version 2.153
use Config::Model ; use Data::Dumper ; # define configuration tree object my $model = Config::Model->new ; $model ->create_config_class ( name => "MyClass", element => [ [qw/foo bar/] => { type => 'leaf', value_type => 'string' }, baz => { type => 'hash', index_type => 'string' , cargo => { type => 'leaf', value_type => 'string', }, }, ], rw_config => { backend => 'Json' , config_dir => '/tmp', file => 'foo.json', auto_create => 1, } ) ; my $inst = $model->instance(root_class_name => 'MyClass' ); my $root = $inst->config_root ; my $steps = 'foo=yada bar="bla bla" baz:en=hello baz:fr=bonjour baz:hr="dobar dan"'; $root->load( steps => $steps ) ; $inst->write_back ;
Now, /tmp/foo.yml contains:
/tmp/foo.yml
{ "bar" : "bla bla", "foo" : "yada", "baz" : { "hr" : "dobar dan", "en" : "hello", "fr" : "bonjour" } }
This module is used directly by Config::Model to read or write the content of a configuration tree written with Json syntax in Config::Model configuration tree.
Config::Model
Note that undefined values are skipped for list element. I.e. if a list element contains ('a',undef,'b'), the data structure only contains 'a','b'.
('a',undef,'b')
'a','b'
Parameters: ( node => $node_obj, name => 'Json' )
( node => $node_obj, name => 'Json' )
Inherited from Config::Model::Backend::Any. The constructor is called by Config::Model::BackendMgr.
Of all parameters passed to this read call-back, only file_path is used. This parameter must be a Path::Tiny.
file_path
When a file is read, read returns 1.
read
Of all parameters passed to this write call-back, only file_path is used. This parameter must be Path::Tiny object.
write returns 1.
write
Dominique Dumont, (ddumont at cpan dot org)
Config::Model, Config::Model::BackendMgr, Config::Model::Backend::Any,
Dominique Dumont
This software is Copyright (c) 2005-2022 by Dominique Dumont.
This is free software, licensed under:
The GNU Lesser General Public License, Version 2.1, February 1999
To install Config::Model, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Config::Model
CPAN shell
perl -MCPAN -e shell install Config::Model
For more information on module installation, please visit the detailed CPAN module installation guide.