1 package SL::LxOfficeConf;
9 my $file = -f 'config/lx_office.conf' ? 'config/lx_office.conf' : 'config/lx_office.conf.default';
10 read_config $file => %::lx_office_conf;
11 _decode_recursively(\%::lx_office_conf);
14 sub _decode_recursively {
17 while (my ($key, $value) = each %{ $obj }) {
18 if (ref($value) eq 'HASH') {
19 _decode_recursively($value);
21 $obj->{$key} = decode('UTF-8', $value);