Login or Register to Ask a Question and Join Our Community


Software Releases - RSS News

Config::Model::Itself 0.201 (Default branch)

Login to Discuss or Reply to this Discussion in Our Community

 
Thread Tools Search this Thread
Special Forums News, Links, Events and Announcements Software Releases - RSS News Config::Model::Itself 0.201 (Default branch)
# 1  
Old 04-07-2008
Config::Model::Itself 0.201 (Default branch)
Image Config::Model::Itself provides a configuration model for Config::Model. In other words, the structure of a model specification is described in Config::Model::Itself so you can use the same user interface to edit configuration data (for instance Xorg configuration data from xorg.conf) and Xorg model (if you need to add new parameters in Xorg model). You can also create your own configuration model to get a configuration tool for your own application. License: GNU Lesser General Public License (LGPL) Changes:
The model has been reworked to better fit with Config::Model features. config-model-edit now works when starting a new model from scratch.Image

More...
Login or Register to Ask a Question

Previous Thread | Next Thread
Login or Register to Ask a Question

LEARN ABOUT DEBIAN

config::model::annotation

Config::Model::Annotation(3pm)				User Contributed Perl Documentation			    Config::Model::Annotation(3pm)

NAME

       Config::Model::Annotation - Read and write configuration annotations

VERSION

       version 2.021

SYNOPSIS

	use Config::Model ;
	use Log::Log4perl qw(:easy) ;
	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',
		   },
	       },

	   ],
	) ;

	my $inst = $model->instance(root_class_name => 'MyClass' );

	my $root = $inst->config_root ;

	# put some data in config tree the hard way
	$root->fetch_element('foo')->store('yada') ;
	$root->fetch_element('baz')->fetch_with_id('en')->store('hello') ;

	# put annotation the hard way
	$root->fetch_element('foo')->annotation('english') ;
	$root->fetch_element('baz')->fetch_with_id('en')->annotation('also english') ;

	# put more data the easy way
	my $step = 'baz:fr=bonjour#french baz:hr="dobar dan"#croatian';
	$root->load( step => $step ) ;

	# dump resulting tree with annotations
	print $root->dump_tree;

	# save annotations
	my $annotate_saver = Config::Model::Annotation
	 -> new (
		 config_class_name => 'MyClass',
		 instance => $inst ,
		 root_dir => '/tmp/', # for test
		) ;
	$annotate_saver->save ;

	# now check content of /tmp/config-model/MyClass-note.pl

DESCRIPTION

       This module provides an object that read and write annotations (a bit like comments) to and from a configuration tree and save them in a
       file (not configuration file)

       Depending on the effective id of the process, the annotation will be saved in:

       o   "/var/lib/config-model/<model_name>-note.yml" for root (EUID == 0)

       o   "~/.config-model/<model_name>-note.yml" for normal user (EUID > 0)

CONSTRUCTOR

       Quite standard. The constructor is passed a Config::Model::Instance object.

METHODS

   save()
       Save annotations in a file (See DESCRIPTION)

   load()
       Loads annotations from a file (See DESCRIPTION)

AUTHOR

       Dominique Dumont, (ddumont at cpan dot org)

SEE ALSO

       Config::Model, Config::Model::Node, Config::Model::Loader, Config::Model::Searcher, Config::Model::Value,

perl v5.14.2							    2012-11-09					    Config::Model::Annotation(3pm)