view release on metacpan or  search on metacpan

lib/Net/Frame/Layer/RIPng/v1.pm  view on Meta::CPAN

      @_,
   );
}

sub getLength { 20 }

sub pack {
   my $self = shift;

   $self->raw($self->SUPER::pack('a16nCC',
      inet6Aton($self->prefix),
      $self->routeTag,
      $self->prefixLength,
      $self->metric
   )) or return;

   return $self->raw;
}

sub unpack {
   my $self = shift;

   my ($prefix, $routeTag, $prefixLength, $metric, $payload) =
      $self->SUPER::unpack('a16nCC a*', $self->raw)
         or return;

   $self->prefix(inet6Ntoa($prefix));
   $self->routeTag($routeTag);
   $self->prefixLength($prefixLength);
   $self->metric($metric);

   $self->payload($payload);

   return $self;
}

sub encapsulate {