The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

say "Client->get_ns_ips:".Dumper($c->get_ns_ips("ns1.nic.fr"));

say "Client->get_data_from_parent_zone:".Dumper($c->get_data_from_parent_zone("nic.fr"));

say "Client->validate_domain_syntax:".Dumper($c->validate_domain_syntax("nic.fr"));

my $frontend_params = { client_id => 'Zonemaster CGI/Dancer/node.js', # free string client_version => '1.0', # free version like string

domain => 'afnic-2.fr', # content of the domain text field
advanced => 1, # 0 or 1, is the advanced options checkbox checked
ipv4 => 1, # 0 or 1, is the ipv4 checkbox checked
ipv6 => 1, # 0 or 1, is the ipv6 checkbox checked
profile => 'test_profile_1', # the id if the Test profile listbox
nameservers => [ # list of the namaserves up to 32
{ ns => 'ns1.nic.fr', ip => '1.1.1.1' }, # key values pairs representing nameserver => namesterver_ip
{ ns => 'ns2.nic.fr', ip => '192.134.4.1' },
],
ds_info => [ # list of DS/Digest pairs up to 32
{ keytag => 11627, algorithm => 8, digtype => 2, digest => 'a6cca9e6027ecc80ba0f6d747923127f1d69005fe4f0ec0461bd633482595448' },
],
};

my $id_test = $c->start_domain_test($frontend_params); say "start_domain_test: ".Dumper($id_test); say "--------------------------";

say "test_progress: ".Dumper($c->test_progress($id_test)); sleep(1); say "test_progress: ".Dumper($c->test_progress($id_test)); sleep(1); say "test_progress: ".Dumper($c->test_progress($id_test)); sleep(2); say "test_progress: ".Dumper($c->test_progress($id_test)); sleep(2); say "test_progress: ".Dumper($c->test_progress($id_test)); sleep(3); say "test_progress: ".Dumper($c->test_progress($id_test)); sleep(3); say "test_progress: ".Dumper($c->test_progress($id_test)); say "--------------------------";

say "get_test_results: ".Dumper($c->get_test_results( { id => $id_test, language => 'en' } )); say "--------------------------";

my $frontend_params1 = { client_id => 'Zonemaster CGI/Dancer/node.js', # free string client_version => '1.0', # free version like string

domain => 'afnic-2.fr', # content of the domain text field
advanced => 1, # 0 or 1, is the advanced options checkbox checked
ipv4 => 1, # 0 or 1, is the ipv4 checkbox checked
ipv6 => 1, # 0 or 1, is the ipv6 checkbox checked
profile => 'test_profile_1', # the id if the Test profile listbox
nameservers => [ # list of the namaserves up to 32
{ ns => 'ns1.nic.fr', ip => '1.1.1.1' }, # key values pairs representing nameserver => namesterver_ip
{ ns => 'ns2.nic.fr', ip => '192.134.4.1' },
],
ds_info => [ # list of DS/Digest pairs up to 32
{ keytag => 11627, algorithm => 8, digtype => 2, digest => 'a6cca9e6027ecc80ba0f6d747923127f1d69005fe4f0ec0461bd633482595448' },
],
};

my $offset = 0; my $limit = 10; say "get_test_history: ".Dumper($c->get_test_history( { frontend_params => $frontend_params1, offset => $offset, limit => $limit } )); say "--------------------------";

1 POD Error

The following errors were encountered while parsing the POD:

Around line 34:

Unknown directive: =coment