File Coverage

blib/lib/Finnigan/PacketHeader.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch			n/a
condition			n/a
subroutine	13	13	100.0
pod	9	9	100.0
total	46	46	100.0

package Finnigan::PacketHeader;

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

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


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

  my $fields = [
                "unknown long[1]"         => ['V',      'UInt32'],
                "profile size"            => ['V',      'UInt32'],
                "peak list size"          => ['V',      'UInt32'],
                "layout"                  => ['V',      'UInt32'],
                "descriptor list size"    => ['V',      'UInt32'],
                "size of unknown stream"  => ['V',      'UInt32'],
                "size of triplet stream"  => ['V',      'UInt32'],
                "unknown long[2]"         => ['V',      'UInt32'],
                "low mz"                  => ['f<',      'Float32'],
                "high mz"                 => ['f<',      'Float32'],
               ];

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

  return bless $self, $class;
}

sub profile_size {
  shift->{data}->{"profile size"}->{value};
}

sub peak_list_size {
  shift->{data}->{"peak list size"}->{value};
}

sub layout {
  shift->{data}->{"layout"}->{value};
}

sub descriptor_list_size {
  shift->{data}->{"descriptor list size"}->{value};
}

sub size_of_unknown_stream {
  shift->{data}->{"size of unknown stream"}->{value};
}

sub size_of_triplet_stream {
  shift->{data}->{"size of triplet stream"}->{value};
}

sub low_mz {
  shift->{data}->{"low mz"}->{value};
}

sub high_mz {
  shift->{data}->{"high mz"}->{value};
}


1;
__END__