golden hour

/usr/lib64/perl5/vendor_perl/Net/DNS/RR

File/Folder	Size	Actions
A.pm	2.22 KB
AAAA.pm	3.22 KB
AFSDB.pm	2.47 KB
APL.pm	6.05 KB
CERT.pm	4.4 KB
CNAME.pm	2.09 KB
DHCID.pm	4.37 KB
DNAME.pm	1.99 KB
EID.pm	1.15 KB
HINFO.pm	2.28 KB
HIP.pm	4.21 KB
IPSECKEY.pm	6.31 KB
ISDN.pm	2.32 KB
KX.pm	2.79 KB
L32.pm	3.06 KB
L64.pm	3.1 KB
LOC.pm	7.24 KB
LP.pm	3.13 KB
MB.pm	1.92 KB
MG.pm	1.9 KB
MINFO.pm	3.02 KB
MR.pm	1.9 KB
MX.pm	2.85 KB
NAPTR.pm	4.93 KB
NID.pm	3.18 KB
NIMLOC.pm	1.16 KB
NS.pm	2.04 KB
NSAP.pm	5.38 KB
NULL.pm	1.25 KB
OPT.pm	8.29 KB
PTR.pm	1.92 KB
PX.pm	3.36 KB
RP.pm	2.98 KB
RT.pm	2.93 KB
SOA.pm	6.71 KB
SPF.pm	1.38 KB
SRV.pm	3.32 KB
SSHFP.pm	3.92 KB
TKEY.pm	4.5 KB
TLSA.pm	3.64 KB
TSIG.pm	9.38 KB
TXT.pm	3.16 KB
X25.pm	1.96 KB

Edit: MR.pm

package Net::DNS::RR::MR;
#
# $Id: MR.pm 1096 2012-12-28 13:35:15Z willem $
#
use strict;
BEGIN {
    eval { require bytes; }
}
use vars qw(@ISA $VERSION);

@ISA     = qw(Net::DNS::RR);
$VERSION = (qw$LastChangedRevision: 1096 $)[1]; # Unchanged since 1037

sub new {
	my ($class, $self, $data, $offset) = @_;

if ($self->{"rdlength"} > 0) {
		($self->{"newname"}) = Net::DNS::Packet::dn_expand($data, $offset);
	}

return bless $self, $class;
}

sub new_from_string {
	my ($class, $self, $string) = @_;

if ($string) {

$self->{"newname"} = Net::DNS::stripdot($string);
	}

return bless $self, $class;
}

sub rdatastr {
	my $self = shift;

return $self->{"newname"} ? "$self->{newname}." : '';
}

sub rr_rdata {
	my ($self, $packet, $offset) = @_;
	my $rdata = "";

if (exists $self->{"newname"}) {
		$rdata .= $packet->dn_comp($self->{"newname"}, $offset);
	}

return $rdata;
}

sub _normalize_dnames {
	my $self=shift;
	$self->_normalize_ownername();
	$self->{'newname'}=Net::DNS::stripdot($self->{'newname'}) if defined $self->{'newname'};

}

sub _canonicalRdata {
    my $self=shift;
    my $rdata = "";
    if (exists $self->{"newname"}) {
		$rdata .= $self->_name2wire(lc($self->{"newname"}));
	}
	return $rdata;
}

1;
__END__

=head1 NAME

Net::DNS::RR::MR - DNS MR resource record

=head1 SYNOPSIS

C<use Net::DNS::RR>;

=head1 DESCRIPTION

Class for DNS Mail Rename (MR) resource records.

=head1 METHODS

=head2 newname

print "newname = ", $rr->newname, "\n";

Returns the RR's new name field.

=head1 COPYRIGHT

=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>,
RFC 1035 Section 3.3.8

=cut