You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

23 lines
309 B

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 ;
}
}
}