view release on metacpan or  search on metacpan

lib/Net/Frame/Layer/DNS/RR/AAAA.pm  view on Meta::CPAN

      @_,
   );
}

sub getLength { 16 }

sub pack {
   my $self = shift;

   $self->raw($self->SUPER::pack('a*',
      inet6Aton($self->address)
   )) or return;

   return $self->raw;
}

sub unpack {
   my $self = shift;

   $self->address(inet6Ntoa(substr $self->raw, 0, 16));

   $self->payload(substr $self->raw, 16);

   return $self;
}

sub encapsulate {
   my $self = shift;

   return $self->nextLayer if $self->nextLayer;