/usr/share/perl5/Config/Model/models/Itself/ConfigWR.d/augeas-backend.pl is in libconfig-model-backend-augeas-perl 0.118-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 | [
[
name => "Itself::ConfigWR",
'element' => [
'backend' => {
choice => [qw/Augeas/],
help => {
augeas => "Experimental backend with RedHat's Augeas library. See http://augeas.net for details",
}
},
'save' => {
type => 'leaf',
value_type => 'enum',
choice => [qw/backup newfile/],
level => 'hidden',
description =>
'Specify how to save the configuration file. Either create a newfile (with extension .augnew, and do not overwrite the original file) or move the original file into a backup file (.augsave extension). Configuration files are overwritten by default',
warp => {
follow => '- backend',
rules => [ Augeas => { level => 'normal', } ],
}
},
'set_in' => {
type => 'leaf',
value_type => 'reference',
refer_to => '- - element',
level => 'hidden',
description =>
'Sometimes, the structure of a file loaded by Augeas starts directly with a list of items. For instance, /etc/hosts structure starts with a list of lines that specify hosts and IP addresses. This parameter specifies an element name in Config::Model root class that will hold the configuration data retrieved by Augeas',
warp => {
follow => '- backend',
rules => [ Augeas => { level => 'normal', } ],
}
},
'sequential_lens' => {
type => 'list',
level => 'hidden',
cargo => {
type => 'leaf',
value_type => 'uniline',
},
warp => {
follow => { b => '- backend' },
rules => [ '$b eq "Augeas"' => { level => 'normal', } ],
},
description =>
'List of hash or list Augeas lenses where value are stored in sequential Augeas nodes. See Config::Model::Backend::Augeas for details.',
},
],
],
];
|