view release on metacpan or  search on metacpan

t/augment_class.t  view on Meta::CPAN

# -*- cperl -*-

use Test::More;
use Test::Memory::Cycle;
use Test::Differences;
use Config::Model;
use Data::Dumper;
use Config::Model::Tester::Setup qw/init_test/;

use strict;
use warnings;

my ($model, $trace) = init_test();

$model->create_config_class(
    name => "Master",

    accept => [
        '.*' => {
            type       => 'leaf',
            value_type => 'uniline',
        }
    ],

    element => [
        one => {
            type       => 'leaf',
            value_type => 'string',
        },
        override_vtype => {
            type       => 'leaf',
            value_type => 'uniline',
        },
        fs_vfstype => {
            type       => 'leaf',
            value_type => 'enum',
            choice     => [qw/auto ext2 ext3/],
        },
        fs_mntopts => {
            type   => 'warped_node',
            warp => {
                follow => { 'f1' => '- fs_vfstype' },
                rules  => [
                    '$f1 eq \'auto\'',
                    { 'config_class_name' => 'Fstab::CommonOptions' },
                    '$f1 eq \'ext2\'',
                    { 'config_class_name' => 'Fstab::Ext2FsOpt' },
                    '$f1 eq \'ext3\'',
                    { 'config_class_name' => 'Fstab::Ext3FsOpt' },
                ],
            }
        }
    ]
);

$model->create_config_class(
    name    => "Two",
    element => [ two => { type => 'leaf', value_type => 'string', }, ]
);

$model->augment_config_class(
    name          => "Master",
    include       => 'Two',
    include_after => 'fs_mntopts',