"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "lib/Net/DNS/RR/OPT.pm" between
Net-DNS-1.23.tar.gz and Net-DNS-1.23_01.tar.gz

About: Net::DNS is a DNS resolver implemented in Perl. Development version.

OPT.pm  (Net-DNS-1.23):OPT.pm  (Net-DNS-1.23_01)
package Net::DNS::RR::OPT; package Net::DNS::RR::OPT;
# #
# $Id: OPT.pm 1773 2020-03-17 08:40:55Z willem $ # $Id: OPT.pm 1779 2020-05-11 09:11:17Z willem $
# #
our $VERSION = (qw$LastChangedRevision: 1773 $)[1]; our $VERSION = (qw$LastChangedRevision: 1779 $)[1];
use strict; use strict;
use warnings; use warnings;
use base qw(Net::DNS::RR); use base qw(Net::DNS::RR);
=head1 NAME =head1 NAME
Net::DNS::RR::OPT - DNS OPT resource record Net::DNS::RR::OPT - DNS OPT resource record
=cut =cut
skipping to change at line 337 skipping to change at line 337
my ( $class, @argument ) = @_; my ( $class, @argument ) = @_;
pack 'n*', @argument; pack 'n*', @argument;
} }
sub _decompose { sub _decompose {
my @payload = unpack 'n*', $_[1]; my @payload = unpack 'n*', $_[1];
} }
sub _image { &_decompose; } sub _image { &_decompose; }
package Net::DNS::RR::OPT::EXTENDED_ERROR; # draft-ietf-dnso
p-extended-error
use Net::DNS::Text;
my @field15 = qw(INFO-CODE EXTRA-TEXT);
sub _compose {
my ( $class, %argument ) = @_;
my ( $ic, $et ) = map $_ || '', @argument{@field15};
pack 'na*', $ic, Net::DNS::Text->new($et)->raw;
}
sub _decompose {
my ( $ic, $et ) = unpack 'na*', $_[1];
my @payload = ( 'INFO-CODE' => $ic, 'EXTRA-TEXT' => Net::DNS::Text->decod
e( \$et, 0, length $et )->value );
}
sub _image {
my %hash = &_decompose;
my @image = map join( ' => ', $_, $hash{$_} ), @field15;
}
1; 1;
__END__ __END__
=head1 SYNOPSIS =head1 SYNOPSIS
use Net::DNS; use Net::DNS;
$packet = new Net::DNS::Packet( ... ); $packet = new Net::DNS::Packet( ... );
$packet->header->do(1); # extended flag $packet->header->do(1); # extended flag
 End of changes. 3 change blocks. 
2 lines changed or deleted 25 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)