|
use Test::More;
|
|
use Modern::Perl;
|
|
use YAML::XS;
|
|
use URI;
|
|
use lib 'lib';
|
|
use configuration ':all';
|
|
|
|
my $x = get_cfg();
|
|
#say Dump $x;
|
|
|
|
say $$x{database}{host};
|
|
|
|
for($$x{secondarydnsserver})
|
|
{
|
|
for(@$_)
|
|
{
|
|
while( my ($k, $v) = each %$_)
|
|
{
|
|
say $k . ' ' . $v ;
|
|
}
|
|
}
|
|
}
|