NAME
Config::Model::Backend::ShellVar - Read and write config as a SHELLVAR
data structure
VERSION
version 1.252
SYNOPSIS
use Config::Model;
use Log::Log4perl qw(:easy);
Log::Log4perl->easy_init($WARN);
my $model = Config::Model->new;
$model->create_config_class (
name => "MyClass",
element => [
[qw/foo bar/] => {qw/type leaf value_type string/}
],
read_config => [
{
backend => 'ShellVar',
config_dir => '/tmp',
file => 'foo.conf',
auto_create => 1,
}
],
);
my $inst = $model->instance(root_class_name => 'MyClass' );
my $root = $inst->config_root ;
$root->load('foo=FOO1 bar=BAR1' );
$inst->write_back ;
File foo.conf
now contains:
## This file was written by Config::Model
## You may modify the content of this file. Configuration
## modifications will be preserved. Modifications in
## comments may be mangled.
##
foo="FOO1"
bar="BAR1"
DESCRIPTION
This module is used directly by Config::Model to read or write the content of a configuration tree written with SHELLVAR
syntax in Config::Model
configuration tree.
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'
.
CONSTRUCTOR
new ( node => $node_obj, name => 'shellvar' ) ;
Inherited from Config::Model::Backend::Any. The constructor will be called by Config::Model::AutoRead.
read ( io_handle => ... )
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.
It can also be undef. In this case, read()
will return 0.
When a file is read, read()
will return 1.
write ( io_handle => ... )
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.
AUTHOR
Dominique Dumont, (ddumont at cpan dot org)
SEE ALSO
Config::Model, Config::Model::AutoRead, Config::Model::Backend::Any,