File Coverage

blib/lib/Net/DNS/RR/TKEY.pm

Criterion	Covered	Total	%
statement	84	84	100.0
branch	6	6	100.0
condition	14	14	100.0
subroutine	21	21	100.0
pod	9	10	100.0
total	134	135	100.0

package Net::DNS::RR::TKEY;

use strict;
use warnings;
our $VERSION = (qw$Id: TKEY.pm 1908 2023-03-15 07:28:50Z willem $)[2];

use base qw(Net::DNS::RR);


=head1 NAME

Net::DNS::RR::TKEY - DNS TKEY resource record

=cut

use integer;

use Carp;

use Net::DNS::Parameters qw(:class :type);
use Net::DNS::DomainName;

use constant ANY  => classbyname qw(ANY);
use constant TKEY => typebyname	 qw(TKEY);


sub _decode_rdata {			## decode rdata from wire-format octet string
	my ( $self, $data, $offset ) = @_;

	my $limit = $offset + $self->{rdlength};

	( $self->{algorithm}, $offset ) = Net::DNS::DomainName->decode( $data, $offset );

	@{$self}{qw(inception expiration mode error)} = unpack "\@$offset N2n2", $$data;
	$offset += 12;

	my $key_size = unpack "\@$offset n", $$data;
	$self->{key} = substr $$data, $offset + 2, $key_size;
	$offset += $key_size + 2;

	my $other_size = unpack "\@$offset n", $$data;
	$self->{other} = substr $$data, $offset + 2, $other_size;
	$offset += $other_size + 2;

	croak('corrupt TKEY data') unless $offset == $limit;	# more or less FUBAR
	return;
}


sub _encode_rdata {			## encode rdata as wire-format octet string
	my $self = shift;

	return '' unless defined $self->{algorithm};
	my $rdata = $self->{algorithm}->encode;

	$rdata .= pack 'N2n2', $self->inception, $self->expiration, $self->mode, $self->error;

	my $key = $self->key;					# RFC2930(2.7)
	$rdata .= pack 'na*', length $key, $key;

	my $other = $self->other;				# RFC2930(2.8)
	$rdata .= pack 'na*', length $other, $other;
	return $rdata;
}


sub class {				## override RR method
	return 'ANY';
}

sub encode {				## override RR method
	my $self = shift;

	my $owner = $self->{owner}->encode();
	my $rdata = eval { $self->_encode_rdata() } || '';
	return pack 'a* n2 N n a*', $owner, TKEY, ANY, 0, length $rdata, $rdata;
}


sub algorithm {
	my ( $self, @value ) = @_;
	for (@value) { $self->{algorithm} = Net::DNS::DomainName->new($_) }
	return $self->{algorithm} ? $self->{algorithm}->name : undef;
}


sub inception {
	my ( $self, @value ) = @_;
	for (@value) { $self->{inception} = 0 + $_ }
	return $self->{inception} || 0;
}


sub expiration {
	my ( $self, @value ) = @_;
	for (@value) { $self->{expiration} = 0 + $_ }
	return $self->{expiration} || 0;
}


sub mode {
	my ( $self, @value ) = @_;
	for (@value) { $self->{mode} = 0 + $_ }
	return $self->{mode} || 0;
}


sub error {
	my ( $self, @value ) = @_;
	for (@value) { $self->{error} = 0 + $_ }
	return $self->{error} || 0;
}


sub key {
	my ( $self, @value ) = @_;
	for (@value) { $self->{key} = $_ }
	return $self->{key} || "";
}


sub other {
	my ( $self, @value ) = @_;
	for (@value) { $self->{other} = $_ }
	return $self->{other} || "";
}


sub other_data { return &other; }				# uncoverable pod


1;
__END__