Lines Matching refs:packet
45 my ($packet, $err) = new Net::DNS::Packet(\$buf, 0);
49 $packet->print;
51 $packet->header->qr(1);
52 $packet->header->aa(1);
54 my @questions = $packet->question;
58 $packet->push("answer",
62 $packet->push("answer",
66 $packet->push("answer",
70 $packet->push("answer",
74 $packet->push("answer",
78 $packet->push("answer",
81 $packet->push("answer",
85 $packet->push("answer",
88 $packet->push("answer", new Net::DNS::RR("www.example.com 300 A 1.2.3.4"));
91 $sock->send($packet->data);
94 $packet->print;