view release on metacpan or  search on metacpan

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

      $self->addressLength
   ) or return;

   my $addressLength = $self->addressLength;
   if ($self->protocol eq NF_CDP_ADDRESS_PROTOCOL_IP) {
      $raw .= $self->SUPER::pack('a4',
         inetAton($self->address)
      ) or return;
   } elsif ($self->protocol eq NF_CDP_ADDRESS_PROTOCOL_IPv6) {
      $raw .= $self->SUPER::pack('a16',
         inet6Aton($self->address)
      ) or return;
   } else { 
      $raw .= $self->SUPER::pack("a$addressLength",
         $self->address
      ) or return;
   }

   return $self->raw($raw);
}

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

   my ($address, $payload);
   if ($self->protocol eq NF_CDP_ADDRESS_PROTOCOL_IP) {
      ($address, $payload) = 
         $self->SUPER::unpack('a4 a*', $tail)
            or return;
      $self->address(inetNtoa($address));
   } elsif ($self->protocol eq NF_CDP_ADDRESS_PROTOCOL_IPv6) {
      ($address, $payload) = 
         $self->SUPER::unpack('a16 a*', $tail)
            or return;
      $self->address(inet6Ntoa($address));
   } else { 
      ($address, $payload) = 
         $self->SUPER::unpack("a$addressLength a*", $tail)
            or return;
      $self->address($address);
   }

   $self->payload($payload);

   return $self;