File Coverage

blib/lib/Finnigan/ScanIndexEntry.pm

Criterion	Covered	Total	%
statement	27	28	96.4
branch	1	2	50.0
condition			n/a
subroutine	18	18	100.0
pod	14	14	100.0
total	60	62	96.7

package Finnigan::ScanIndexEntry;

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

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

my $fields = [
              "offset"           => ['V',  'UInt32'],
              "index"            => ['V',  'UInt32'],
              "scan event"       => ['v',  'UInt16'],
              "scan segment"     => ['v',  'UInt16'],
              "next"             => ['V',  'UInt32'],
              "unknown long"     => ['V',  'UInt32'],
              "data size"        => ['V',  'UInt32'],
              "start time"       => ['d<', 'Float64'],
              "total current"    => ['d<', 'Float64'],
              "base intensity"   => ['d<', 'Float64'],
              "base mz"          => ['d<', 'Float64'],
              "low mz"           => ['d<', 'Float64'],
              "high mz"          => ['d<', 'Float64'],
             ];

my $fields64 = [
              "32-bit offset (defunct)" => ['V',  'UInt32'],
              "index"                   => ['V',  'UInt32'],
              "scan event"              => ['v',  'UInt16'],
              "scan segment"            => ['v',  'UInt16'],
              "next"                    => ['V',  'UInt32'],
              "unknown long"            => ['V',  'UInt32'],
              "data size"               => ['V',  'UInt32'],
              "start time"              => ['d<', 'Float64'],
              "total current"           => ['d<', 'Float64'],
              "base intensity"          => ['d<', 'Float64'],
              "base mz"                 => ['d<', 'Float64'],
              "low mz"                  => ['d<', 'Float64'],
              "high mz"                 => ['d<', 'Float64'],
              "offset"                  => ['Q<', 'Uint64'],
             ];

sub decode {
  if ($_[2] == 64) {
    return bless Finnigan::Decoder->read($_[1], $fields64), $_[0];
  }
  else {
    return bless Finnigan::Decoder->read($_[1], $fields), $_[0];
  }
}

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

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

sub scan_event {
  shift->{data}->{"scan event"}->{value};
}

sub scan_segment {
  shift->{data}->{"scan segment"}->{value};
}

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

sub unknown {
  shift->{data}->{"unknown long"}->{value};
}

sub data_size {
  shift->{data}->{"data size"}->{value};
}

sub start_time {
  shift->{data}->{"start time"}->{value};
}

sub total_current {
  shift->{data}->{"total current"}->{value};
}

sub base_intensity {
  shift->{data}->{"base intensity"}->{value};
}

sub base_mz {
  shift->{data}->{"base mz"}->{value};
}

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

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


1;
__END__