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
|
package Config::Model::Backend::Mini ;
use strict;
use warnings;
use 5.10.1;
use Mouse;
extends 'Config::Model::Backend::Any';
with 'Config::Model::Role::FileHandler';
use Path::Tiny;
use YAML::Tiny qw/LoadFile Dump/;
sub _get_cfg_dir {
my ($self,$root) = @_;
my $dir = $self->get_tuned_config_dir(
config_dir => 'debian/meta',
root => $root
);
my $file = $dir->child('test.yml');
return $file;
}
sub read {
my $self = shift;
my %args = @_;
# args is:
# object => $obj, # Config::Model::Node object
# root => './my_test', # fake root directory, userd for tests
# config_dir => /etc/foo', # absolute path
# file => 'foo.conf', # file name
# file_path => './my_test/etc/foo/foo.conf'
# check => yes|no|skip
my $file = $self->_get_cfg_dir($args{root});
return 0 unless $file->exists; # no file to read
my $perl_data = LoadFile($file);
# load perl data in tree
$self->node->load_data( data => $perl_data, check => $args{check} || 'yes' );
return 1;
}
sub write {
my $self = shift;
my %args = @_;
# args is:
# object => $obj, # Config::Model::Node object
# root => './my_test', # fake root directory, used for tests
# config_dir => /etc/foo', # absolute path
# file => 'foo.conf', # file name
# file_path => './my_test/etc/foo/foo.conf'
# check => yes|no|skip
my $perl_data = $self->node->dump_as_data( full_dump => $args{full_dump} // 0);
my $file = $self->_get_cfg_dir($args{root});
$file->parent->mkpath;
my $yaml = Dump( $perl_data );
$file->spew_utf8($yaml);
return 1;
}
1;
|
