File Coverage

blib/lib/Finnigan/InstID.pm

Criterion	Covered	Total	%
statement	20	24	83.3
branch			n/a
condition			n/a
subroutine	7	10	70.0
pod	5	5	100.0
total	32	39	82.0

package Finnigan::InstID;

use strict;
use warnings FATAL => qw( all );
our $VERSION = 0.0206;

use Finnigan;
use base 'Finnigan::Decoder';

use overload ('""' => 'stringify');

sub decode {
  my ($class, $stream) = @_;

  my $fields = [
                "unknown data"       => ['C8',     'RawBytes'],
                "unknown long[1]"    => ['V',      'UInt32'],
                "model[1]"           => ['varstr', 'PascalStringWin32'],
                "model[2]"           => ['varstr', 'PascalStringWin32'],
                "serial number"      => ['varstr', 'PascalStringWin32'],
                "software version"   => ['varstr', 'PascalStringWin32'],
                "tag[1]"             => ['varstr', 'PascalStringWin32'],
                "tag[2]"             => ['varstr', 'PascalStringWin32'],
                "tag[3]"             => ['varstr', 'PascalStringWin32'],
                "tag[4]"             => ['varstr', 'PascalStringWin32'],
         ];

  my $self = Finnigan::Decoder->read($stream, $fields);

  return bless $self, $class;
}

sub model {
  shift->{data}->{"model[1]"}->{value};
}

sub serial_number {
  shift->{data}->{"serial number"}->{value};
}

sub software_version {
  shift->{data}->{"software version"}->{value};
}

sub stringify {
  my $self = shift;
  return $self->model
    . ", S/N: " . $self->serial_number
      . "; software version " . $self->software_version;
}

1;
__END__