FILE: C:\Program Files (x86)\Plesk\perl\lib\Net\DNS\RR\NS.pm

--
package Net::DNS::RR::NS; # # $Id: NS.pm 1188 2014-04-03 18:54:34Z willem $ # use vars qw($VERSION); $VERSION = (qw$LastChangedRevision: 1188 $)[1]; use strict; use base qw(Net::DNS::RR); =head1 NAME Net::DNS::RR::NS - DNS NS resource record =cut use integer; use Net::DNS::DomainName; sub decode_rdata { ## decode rdata from wire-format octet string my $self = shift; $self->{nsdname} = decode Net::DNS::DomainName1035(@_); } sub encode_rdata { ## encode rdata as wire-format octet string my $self = shift; return '' unless $self->{nsdname}; $self->{nsdname}->encode(@_); } sub format_rdata { ## format rdata portion of RR string. my $self = shift; return '' unless $self->{nsdname}; $self->{nsdname}->string; } sub parse_rdata { ## populate RR from rdata in argument list my $self = shift; $self->nsdname(shift); } sub nsdname { my $self = shift; $self->{nsdname} = new Net::DNS::DomainName1035(shift) if scalar @_; $self->{nsdname}->name if defined wantarray; } 1; __END__ =head1 SYNOPSIS use Net::DNS; $rr = new Net::DNS::RR('name NS nsdname'); $rr = new Net::DNS::RR( name => 'example.com', type => 'NS', nsdname => 'ns.example.com', ); =head1 DESCRIPTION Class for DNS Name Server (NS) resource records. =head1 METHODS The available methods are those inherited from the base class augmented by the type-specific methods defined in this package. Use of undocumented package features or direct access to internal data structures is discouraged and could result in program termination or other unpredictable behaviour. =head2 nsdname $nsdname = $rr->nsdname; $rr->nsdname( $nsdname ); A domain name which specifies a host which should be authoritative for the specified class and domain. =head1 COPYRIGHT Copyright (c)1997-2002 Michael Fuhr. All rights reserved. This program is free software; you may redistribute it and/or modify it under the same terms as Perl itself. Package template (c)2009,2012 O.M.Kolkman and R.W.Franks. =head1 SEE ALSO L, L, L, RFC1035 Section 3.3.11 =cut
--