Obsolete
/
dnsmanagerv1
Archived
3
0
Fork 0
This repository has been archived on 2024-06-18. You can view files and clone it, but cannot push or open issues/pull-requests.
dnsmanagerv1/t/00x_dump_cfg_file.t

23 lines
309 B
Raku

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