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
|
package Config::Model::Role::NodeLoader;
# ABSTRACT: Load Node element in configuration tree
use Mouse::Role;
use strict;
use warnings;
use Carp;
use 5.10.0;
use Mouse::Util;
use Log::Log4perl qw(get_logger :levels);
my $load_logger = get_logger("TreeLoad");
sub load_node {
my ($self, %params) = @_ ;
my $config_class_name = $params{config_class_name};
my $config_class = $self->config_model->get_model_clone($config_class_name) ;
my $node_class = $config_class->{class} || 'Config::Model::Node';
$load_logger->debug("Loading $config_class_name ". $self->location . " with $node_class");
Mouse::Util::load_class($node_class);
if (delete $params{check}) {
carp "load_node; drop check param. Better let node query the instance";
}
$params{gist} //= $config_class->{gist} if $config_class->{gist};
return $node_class->new(%params) ;
}
1;
__END__
=head1 SYNOPSIS
$self->load_node( config_class_name => "...", %other_args);
=head1 DESCRIPTION
Role used to load a node element using L<Config::Model::Node> (default behavior).
If the config class overrides the default implementation, ( C<class> parameter ), the
override class is loaded and used to create the node.
=head1 METHODS
=head2 load_node
Creates a node object using all the named parameters passed to load_node. One of these
parameter must be C<config_class_name>
=cut
|
