File Coverage

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

Criterion	Covered	Total	%
statement	52	52	100.0
branch	4	4	100.0
path			n/a
condition	4	4	100.0
subroutine	14	14	100.0
pod	4	4	100.0
total	78	78	100.0

package Net::DNS::RR::DSYNC;

use strict;
use warnings;
our $VERSION = (qw$Id: DSYNC.pm 2003 2025-01-21 12:06:06Z willem $)[2];

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


=head1 NAME

Net::DNS::RR::DSYNC - DNS DSYNC resource record

=cut

use integer;

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


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

	@{$self}{qw(rrtype scheme port)} = unpack "\@$offset nCn", $$data;
	$self->{target} = Net::DNS::DomainName->decode( $data, $offset + 5, @opaque );
	return;
}


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

	my $target = $self->{target};
	return pack 'nCn a*', @{$self}{qw(rrtype scheme port)}, $target->encode;
}


sub _format_rdata {			## format rdata portion of RR string.
	my $self = shift;

	my @params = map { $self->$_ } qw(rrtype scheme port);
	my $target = $self->{target};
	return ( @params, $target->string );
}


sub _parse_rdata {			## populate RR from rdata in argument list
	my ( $self, @argument ) = @_;

	$self->$_( shift @argument ) foreach qw(rrtype scheme port target);
	return;
}


sub rrtype {
	my ( $self, @value ) = @_;
	for (@value) { $self->{rrtype} = typebyname($_) }
	my $typecode = $self->{rrtype};
	return defined $typecode ? typebyval($typecode) : undef;
}


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


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


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


1;
__END__