examples(3) User Contributed Perl Documentation examples(3)

$r = $val1->res_query("good-a.test.dnssec-tools.org", "IN", "A"); my ($pkt, $err) = new Net::DNS::Packet(\$r); print ($val1->istrusted ?
"result is trusted\n" :
"result is NOT trusted\n"); $pkt->print;

Hey! The above document had some coding errors, which are explained below:

=pod directives shouldn't be over one line long! Ignoring all 7 lines of content
=pod directives shouldn't be over one line long! Ignoring all 11 lines of content
2023-07-29 perl v5.38.0