The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#
# This file is part of Config-Model-Itself
#
# This software is Copyright (c) 2014 by Dominique Dumont.
#
# This is free software, licensed under:
#
#   The GNU Lesser General Public License, Version 2.1, February 1999
#
[
  [
   name => "Itself::ComputedValue",
   include => "Itself::MigratedValue" ,

   'element' 
   => [

       'allow_override' 
       => { type => 'leaf',

	    value_type => 'boolean',
	    compute => {
                formula => '$upstream_knowns',
                variables => {
                    upstream_knowns => '- use_as_upstream_default',
                },
                use_as_upstream_default => 1,
            },

	    level => 'normal',
	    description => "Allow user to override computed value",
	 },

       'use_as_upstream_default' 
       => { type => 'leaf',

	    value_type => 'boolean',
	    upstream_default   => 0,
	    level => 'normal',
	    description => "Indicate that the computed value is known by the "
                ."application and does not need to be written in the configuration file. Implies allow_override."
	 },

      ],

  ],

];