/usr/share/perl5/Config/Model/models/Itself/MigratedValue.pl is in libconfig-model-itself-perl 2.006-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 58 59 60 61 | #
# This file is part of Config-Model-Itself
#
# This software is Copyright (c) 2007-2016 by Dominique Dumont.
#
# This is free software, licensed under:
#
# The GNU Lesser General Public License, Version 2.1, February 1999
#
[
[
name => "Itself::MigratedValue",
'element'
=> [
'variables',
=> {
type => 'hash',
index_type => 'string' ,
cargo => { type => 'leaf', value_type => 'uniline' } ,
description => 'Specify where to find the variables using path notation. For the formula "$a + $b", you need to specify "a => \'- a_path\', b => \'! b_path\' ',
},
'formula' => { type => 'leaf',
value_type => 'string',
# making formula mandatory makes mandatory setting the
# compute parameter for a leaf. That's not a
# desired behavior.
# mandatory => 1 ,
description => 'Specify how the computation is done. This string can a Perl expression for integer value or a template for string values. Variables have the same notation than in Perl. Example "$a + $b" ',
},
'replace'
=> {
type => 'hash',
index_type => 'string' ,
cargo => { type => 'leaf', value_type => 'string' } ,
description => 'Sometime, using the value of a tree leaf is not enough and you need to substitute a replacement for any value you can get. This replacement can be done using a hash like notation within the formula using the %replace hash. Example $replace{$who} , where "who => \'- who_elt\' ',
},
'use_eval'
=> { type => 'leaf',
value_type => 'boolean',
upstream_default => 0,
description => 'Set to 1 if you need to perform more complex operations than substition, like extraction with regular expressions. This will force an eval by Perl when computing the formula. The result of the eval will be used as the computed value.'
},
'undef_is'
=> { type => 'leaf',
value_type => 'uniline',
description => 'Specify a replacement for undefined variables. This will replace undef'
.' values in the formula before migrating values. Use \'\' (2 single quotes) '
. 'if you want to specify an empty string',
},
],
],
];
|