File Coverage

blib/lib/Net/Frame/Layer/OSPF/Lsa/Router/Link.pm

Criterion	Covered	Total	%
statement	12	29	41.3
branch	0	4	0.0
condition			n/a
subroutine	4	9	44.4
pod	5	5	100.0
total	21	47	44.6

#
# $Id: Link.pm,v 1.1 2007/03/08 16:32:02 gomor Exp $
#
package Net::Frame::Layer::OSPF::Lsa::Router::Link;
use strict;
use warnings;

use Net::Frame::Layer qw(:consts :subs);
our @ISA = qw(Net::Frame::Layer);

our @AS = qw(
   linkId
   linkData
   type
   nTos
   metric
);
__PACKAGE__->cgBuildIndices;
__PACKAGE__->cgBuildAccessorsScalar(\@AS);

use Net::Frame::Layer::OSPF qw(:consts);

sub new {
   shift->SUPER::new(
      linkId   => '0.0.0.0',
      linkData => '0.0.0.0',
      type     => 0,
      nTos     => 0,
      metric   => 0,
      @_,
   );
}

sub getLength { 12 }

sub pack {
   my $self = shift;

   $self->raw($self->SUPER::pack('a4a4CCn',
      inetAton($self->linkId), inetAton($self->linkData), $self->type,
      $self->nTos, $self->metric,
   )) or return undef;

   $self->raw;
}

sub unpack {
   my $self = shift;

   my ($linkId, $linkData, $type, $nTos, $metric, $payload)
      = $self->SUPER::unpack('a4a4CCn a*', $self->raw)
          or return undef;

   $self->linkId(inetNtoa($linkId));
   $self->linkData(inetNtoa($linkData));
   $self->type($type);
   $self->nTos($nTos);
   $self->metric($metric);

   $self->payload($payload);

   $self;
}

sub print {
   my $self = shift;

   my $l = $self->layer;
   sprintf
      "$l: linkId:%s  linkData:%s  type:0x%02x  nTos:%d  metric:%d",
         $self->linkId,
         $self->linkData,
         $self->type,
         $self->nTos,
         $self->metric,
   ;
}

1;

__END__