File Coverage

blib/lib/Finnigan/SampleInfo.pm

Criterion	Covered	Total	%
statement	27	31	87.1
branch			n/a
condition			n/a
subroutine	14	18	77.7
pod	13	13	100.0
total	54	62	87.1

package Finnigan::SampleInfo;

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

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


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

  my $fields = [
                "unknown long[1]"    => ['V',      'UInt32'],  #  0
                "unknown long[2]"    => ['V',      'UInt32'],  #  2
                "first scan number"  => ['V',      'UInt32'],  #  4
                "last scan number"   => ['V',      'UInt32'],  #  6
                "inst log length"    => ['V',      'UInt32'],  #  8
                "unknown long[3]"    => ['V',      'UInt32'],  # 10
                "unknown long[4]"    => ['V',      'UInt32'],  # 12
                "scan index addr"    => ['V',      'UInt32'],  # 14 * unused in 64-bit versions
                "data addr"          => ['V',      'UInt32'],  # 16 *
                "inst log addr"      => ['V',      'UInt32'],  # 18 *
                "error log addr"     => ['V',      'UInt32'],  # 20 *
                "unknown long[5]"    => ['V',      'UInt32'],
                "max ion current"    => ['d<',     'Float64'],
                "low mz"             => ['d<',     'Float64'],
                "high mz"            => ['d<',     'Float64'],
                "start time"         => ['d<',     'Float64'],
                "end time"           => ['d<',     'Float64'],
                "unknown area"       => ['C56',    'RawBytes'],
                "tag[1]"             => ['U0C88',  'UTF16LE'],
                "tag[2]"             => ['U0C40',  'UTF16LE'],
                "tag[3]"             => ['U0C320', 'UTF16LE'],
               ];

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

  return bless $self, $class;
}

sub first_scan {
  shift->{data}->{"first scan number"}->{value};
}

sub last_scan {
  shift->{data}->{"last scan number"}->{value};
}

sub inst_log_length {
  shift->{data}->{"inst log length"}->{value};
}

sub max_ion_current {
  shift->{data}->{"max ion current"}->{value};
}

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

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

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

sub end_time {
  shift->{data}->{"end time"}->{value};
}

sub scan_index_addr {
  croak "direct access to SampleInfo->scan_index_addr breaks version compatbility. Use RunHeader->scan_index_addr instead."
}

sub data_addr {
  croak "direct access to SampleInfo->data_addr breaks version compatbility. Use RunHeader->data_addr instead."
}

sub inst_log_addr {
  croak "direct access to SampleInfo->inst_log_addr breaks version compatbility. Use RunHeader->inst_log_addr instead."
}

sub error_log_addr {
  croak "direct access to SampleInfo->error_log_addr breaks version compatbility. Use RunHeader->error_log_addr instead."
}

1;
__END__