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;

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

       Around line 72:
           =pod directives shouldn't be over one line long!  Ignoring all 7
           lines of content

       Around line 91:
           =pod directives shouldn't be over one line long!  Ignoring all 11
           lines of content

perl v5.38.0                      2023-07-29                       examples(3)