6 use Data::Dump qw(dump);
11 my ( $self, $name ) = @_;
13 my $code = read_file '/opt/managment_tools/etc/config.pl';
14 $code =~ s/\$(\w+)/\$config->{$1}/gs;
15 $code =~ s/\@(\w+)/\@{\$config->{$1}}/gs;
19 die "no $name in ",dump $config unless exists $config->{$name};
20 return $config->{$name};