view release on metacpan or  search on metacpan

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

   my ($h)  = @_;

   my $phpkt;
   if ($h->{type} eq 'IPv4') {
      $phpkt = $self->SUPER::pack('a4a4CCn',
         inetAton($h->{src}), inetAton($h->{dst}), 0, 17, $self->getLength,
      ) or return;
   }
   elsif ($h->{type} eq 'IPv6') {
      $phpkt = $self->SUPER::pack('a*a*NnCC',
         inet6Aton($h->{src}),
         inet6Aton($h->{dst}), $self->getLength, 0, 0, 17,
      ) or return
   }

   $phpkt .= $self->SUPER::pack('nnnn',
      $self->src, $self->dst, $self->getLength, 0,
   ) or return;

   if ($self->payload) {
      $phpkt .= $self->SUPER::pack('a*', $self->payload)
         or return;