Config::Model::Backend::Json - Read and write config as a JSON data structure
version 2.068
use Config::Model ; use Log::Log4perl qw(:easy) ; use Data::Dumper ; Log::Log4perl->easy_init($WARN); # 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', }, }, ], read_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 $step = 'foo=yada bar="bla bla" baz:en=hello baz:fr=bonjour baz:hr="dobar dan"'; $root->load( step => $step ) ; $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 will contain 'a','b'.
('a',undef,'b')
'a','b'
Inherited from Config::Model::Backend::Any. The constructor will be called by Config::Model::BackendMgr.
Of all parameters passed to this read call-back, only io_handle is used. This parameter must be IO::File object already opened for read.
io_handle
It can also be undef. In this case, read() will return 0.
read()
When a file is read, read() will return 1.
Of all parameters passed to this write call-back, only io_handle is used. This parameter must be IO::File object already opened for write.
write() will return 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) 2015 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.