Lines Matching refs:packet
45 my $packet;
48 $packet = new Net::DNS::Packet(\$buf, 0);
52 ($packet, $err) = new Net::DNS::Packet(\$buf, 0);
57 $packet->print;
59 $packet->header->qr(1);
61 my @questions = $packet->question;
66 $packet->push("answer", new Net::DNS::RR("cname1.example.com 300 CNAME cname1.example.com"));
67 $packet->push("answer", new Net::DNS::RR("cname1.example.com 300 A 1.2.3.4"));
70 $packet->push("answer", new Net::DNS::RR("cname2.example.com 300 A 1.2.3.4"));
71 $packet->push("answer", new Net::DNS::RR("cname2.example.com 300 CNAME cname2.example.com"));
73 $packet->header->aa(1);
75 $packet->header->aa(1);
76 $packet->header->rcode(NXDOMAIN);
79 $packet->push("authority", new Net::DNS::RR("below.www.example.com 300 NS ns.below.www.example.com"));
80 $packet->push("additional", new Net::DNS::RR("ns.below.www.example.com 300 A 10.53.0.3"));
83 $sock->send($packet->data);
86 $packet->print;