File Coverage

blib/lib/Net/Frame/Layer/SinFP3/Tlv.pm

Criterion	Covered	Total	%
statement	26	40	65.0
branch	3	12	25.0
condition	0	27	0.0
subroutine	7	10	70.0
pod	6	6	100.0
total	42	95	44.2

#
# $Id: Tlv.pm 9 2012-11-22 19:13:54Z gomor $
#
package Net::Frame::Layer::SinFP3::Tlv;
use strict;
use warnings;

use base qw(Net::Frame::Layer);

our @AS = qw(
   type
   length
   value
);
__PACKAGE__->cgBuildIndices;
__PACKAGE__->cgBuildAccessorsScalar(\@AS);

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

sub new {
   my $self = shift->SUPER::new(
      type   => 0,
      length => 0,
      value  => '',
      @_,
   );

   return $self;
}

sub getLength {
   my $self = shift;

   return 2 + $self->length;
}

sub computeLengths {
   my $self = shift;

   my $len = length($self->value);

   return $self->length($len);
}

sub pack {
   my $self = shift;

   my $raw = $self->SUPER::pack('CCa*',
   #my $raw = $self->SUPER::pack('CCC',
      $self->type,
      $self->length,
      #CORE::pack('C', $self->value),
      $self->value,
   ) or return;

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

sub unpack {
   my $self = shift;

   my ($type, $length, $tail) = $self->SUPER::unpack("CC a*", $self->raw)
      or return;

   my $bLen = $length;
   my ($value, $payload) = $self->SUPER::unpack("a$bLen a*", $tail)
      or return;

   $self->type($type);
   $self->length($length);
   $self->value($value);

   $self->payload($payload);

   return $self;
}

sub print {
   my $self = shift;

   my $l = $self->layer;
   my $buf = sprintf("$l: type:0x%02x  length:%d  value:%s",
      $self->type,
      $self->length,
      CORE::unpack("H*", $self->value),
   );

   my $type = $self->type;
   if ($type == &Net::Frame::Layer::SinFP3::NF_SINFP3_TLV_TYPE_SYSTEMCLASS
   ||  $type == &Net::Frame::Layer::SinFP3::NF_SINFP3_TLV_TYPE_VENDOR
   ||  $type == &Net::Frame::Layer::SinFP3::NF_SINFP3_TLV_TYPE_OS
   ||  $type == &Net::Frame::Layer::SinFP3::NF_SINFP3_TLV_TYPE_OSVERSION
   ||  $type == &Net::Frame::Layer::SinFP3::NF_SINFP3_TLV_TYPE_OSVERSIONFAMILY
   ||  $type == &Net::Frame::Layer::SinFP3::NF_SINFP3_TLV_TYPE_MATCHTYPE
   ||  $type == &Net::Frame::Layer::SinFP3::NF_SINFP3_TLV_TYPE_MATCHMASK
   ||  $type == &Net::Frame::Layer::SinFP3::NF_SINFP3_TLV_TYPE_P1SIG
   ||  $type == &Net::Frame::Layer::SinFP3::NF_SINFP3_TLV_TYPE_P2SIG
   ||  $type == &Net::Frame::Layer::SinFP3::NF_SINFP3_TLV_TYPE_P2SIG) {
      $buf .= " [".CORE::unpack("a*", $self->value)."]";
   }
   elsif ($type == &Net::Frame::Layer::SinFP3::NF_SINFP3_TLV_TYPE_TRUSTED) {
      $buf .= " [trusted]";
   }
   elsif ($type == &Net::Frame::Layer::SinFP3::NF_SINFP3_TLV_TYPE_MATCHSCORE) {
      $buf .= " [".CORE::unpack("C", $self->value).'%]';
   }

   return $buf;
}

1;

__END__