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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
|
# Copyright (c) 2007-2011 Dominique Dumont.
#
# This file is part of Config-Model-Itself.
#
# Config-Model-Itself is free software; you can redistribute it
# and/or modify it under the terms of the GNU Lesser Public License
# as published by the Free Software Foundation; either version 2.1
# of the License, or (at your option) any later version.
#
# Config-Model-Itself is distributed in the hope that it will be
# useful, but WITHOUT ANY WARRANTY; without even the implied
# warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
# See the GNU Lesser Public License for more details.
#
# You should have received a copy of the GNU Lesser Public License
# along with Config-Model-Itself; if not, write to the Free Software
# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
use strict;
use warnings;
return [
[
name => 'Itself::NonWarpableElement',
# warp often depend on this one, so list it first
'element' => [
'value_type' => {
type => 'leaf',
level => 'hidden',
value_type => 'enum',
choice => [
qw/boolean enum integer reference
number uniline string file dir/
],
'warp' => {
follow => { 't' => '- type' },
'rules' => [
'$t eq "leaf"' => {
level => 'normal',
mandatory => 1,
}
]
},
help => {
integer => 'positive or negative integer',
uniline => 'string with no embedded newline',
}
},
'class' => {
type => 'leaf',
level => 'hidden',
value_type => 'uniline',
summary => "Override implementation of element",
description =>
"Perl class name used to override the implementation of the configuration element. "
."This override Perl class must inherit a Config::Model class that matches the element type, "
."i.e. Config::Model::Value, Config::Model::HashId or Config::Model::ListId. "
."Use with care.",
'warp' => {
follow => { 't' => '- type' },
'rules' => [ '$t and $t !~ /node/' => { level => 'normal', } ]
}
},
'morph' => {
type => 'leaf',
level => 'hidden',
value_type => 'boolean',
'warp' => {
follow => '- type',
'rules' => {
'warped_node' => {
level => 'normal',
upstream_default => 0,
},
}
},
description =>
"When set, a recurse copy of the value from the old object "
. "to the new object is attempted. Old values are dropped when "
." a copy is not possible (usually because of mismatching types)."
},
# end warp elements for warped_node
# leaf element
'refer_to' => {
type => 'leaf',
level => 'hidden',
value_type => 'uniline',
warp => {
follow => {
t => '- type',
vt => '- value_type',
},
'rules' => [
'$t eq "check_list" or $vt eq "reference"' =>
{ level => 'important', },
]
},
description =>
"points to an array or hash element in the configuration "
. "tree using L<grab syntax|Config::Model::Role::Grab>. "
. "The available choice of this "
. "reference value (or check list)is made from the available "
. "keys of the pointed hash element or the values of the pointed array element.",
},
'computed_refer_to' => {
type => 'warped_node',
level => 'hidden',
warp => {
follow => {
t => '- type',
vt => '- value_type',
},
'rules' => [
'$t eq "check_list" or $vt eq "reference"' => {
level => 'normal',
config_class_name => 'Itself::ComputedValue',
},
],
},
description =>
"points to an array or hash element in the configuration "
. "tree using a path computed with value from several other "
. "elements in the configuration tree. The available choice "
. "of this reference value (or check list) is made from the "
. "available keys of the pointed hash element or the values "
. "of the pointed array element. The keys of several hashes (or lists) "
. "can be combined by using the '+' operator in the formula. "
. q(For instance, '! host:$a lan + ! host:foobar lan'. See )
. "L<Config::Model::IdElementReference> for more details."
},
'replace_follow' => {
type => 'leaf',
level => 'hidden',
value_type => 'uniline',
warp => {
follow => { t => '- type' },
'rules' => [ '$t eq "leaf"' => { level => 'important', }, ]
},
description =>
"Path specifying a hash of value element in the configuration "
. "tree. The hash if used in a way similar to the replace "
. "parameter. In this case, the replacement is not coded "
. "in the model but specified by the configuration.",
},
'compute' => {
type => 'warped_node',
level => 'hidden',
warp => {
follow => { t => '- type', },
'rules' => [
'$t eq "leaf"' => {
level => 'normal',
config_class_name => 'Itself::ComputedValue',
},
],
},
description =>
"compute the default value according to a formula and value "
. "from other elements in the configuration tree.",
},
'migrate_from' => {
type => 'warped_node',
level => 'hidden',
warp => {
follow => { t => '- type', },
'rules' => [
'$t eq "leaf"' => {
level => 'normal',
config_class_name => 'Itself::MigratedValue',
},
],
},
description =>
"Specify an upgrade path from an old value and compute "
. "the value to store in the new element.",
},
'write_as' => {
type => 'list',
level => 'hidden',
max_index => 1,
warp => {
follow => { t => '- type', vt => '- value_type'},
rules => [
'$t eq "leaf" and $vt eq "boolean"' => { level => 'normal', },
]
},
cargo => {
type => 'leaf',
value_type => 'uniline',
},
description =>
"Specify how to write a boolean value. Example 'no' 'yes'.",
},
# hash or list element
migrate_values_from => {
type => 'leaf',
level => 'hidden',
value_type => 'uniline',
warp => {
follow => { 't' => '?type' },
'rules' => [ '$t eq "hash" or $t eq "list"' => { level => 'normal', } ]
} ,
description => 'Specifies that the values of the hash or list are copied '
. 'from another hash or list in the configuration tree once configuration '
. 'data are loaded.',
},
# hash element
migrate_keys_from => {
type => 'leaf',
level => 'hidden',
value_type => 'uniline',
warp => {
follow => { 't' => '?type' },
'rules' => [ '$t eq "hash"' => { level => 'normal', } ]
},
description => 'Specifies that the keys of the hash are copied from another hash '
. 'in the configuration tree only when the hash is created.',
},
write_empty_value => {
type => 'leaf',
level => 'hidden',
value_type => 'boolean',
upstream_default => 0,
warp => {
follow => { 't' => '?type' },
rules => [ '$t eq "hash"' => { level => 'normal', } ]
},
description => 'By default, hash entries without data are not saved in configuration '
. 'files. Set this parameter to 1 if a key must be saved in the configuration '
. 'file even if the hash contains no value for that key.',
},
# list element
],
],
];
|
