| package Net::DNS::RR::NIMLOC; |
| # |
| # $Id: NIMLOC.pm 388 2005-06-22 10:06:05Z olaf $ |
| # |
| use strict; |
| BEGIN { |
| eval { require bytes; } |
| } |
| use vars qw(@ISA $VERSION); |
| |
| @ISA = qw(Net::DNS::RR); |
| $VERSION = (qw$LastChangedRevision: 388 $)[1]; |
| |
| sub new { |
| my ($class, $self, $data, $offset) = @_; |
| return bless $self, $class; |
| } |
| |
| 1; |
| __END__ |
| |
| =head1 NAME |
| |
| Net::DNS::RR::NIMLOC - DNS NIMLOC resource record |
| |
| =head1 SYNOPSIS |
| |
| C<use Net::DNS::RR>; |
| |
| =head1 DESCRIPTION |
| |
| Class for DNS Nimrod Locator (NIMLOC) resource records. |
| |
| =head1 METHODS |
| |
| =head2 rdlength |
| |
| print "rdlength = ", $rr->rdlength, "\n"; |
| |
| Returns the length of the record's data section. |
| |
| =head2 rdata |
| |
| $rdata = $rr->rdata; |
| |
| Returns the record's data section as binary data. |
| |
| =head1 COPYRIGHT |
| |
| Copyright (c) 1997-2002 Michael Fuhr. |
| |
| Portions Copyright (c) 2002-2004 Chris Reinhardt. |
| |
| All rights reserved. This program is free software; you may redistribute |
| it and/or modify it under the same terms as Perl itself. |
| |
| =head1 SEE ALSO |
| |
| L<perl(1)>, L<Net::DNS>, L<Net::DNS::Resolver>, L<Net::DNS::Packet>, |
| L<Net::DNS::Header>, L<Net::DNS::Question>, L<Net::DNS::RR>, |
| draft-ietf-nimrod-dns-I<xx>.txt |
| |
| =cut |