File Coverage

blib/lib/Finnigan/InstrumentLogRecord.pm

Criterion	Covered	Total	%
statement	16	22	72.7
branch			n/a
condition			n/a
subroutine	6	7	85.7
pod	3	3	100.0
total	25	32	78.1

package Finnigan::InstrumentLogRecord;

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

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

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

  # This is a sleazy way of decoding this structure. The result will
  # be a hash whose keys start with the ordinal numbers of elements;
  # this answers the need to preserve order and to introduce gaps and
  # section titles commanded by the GenericDataHeader but not present
  # in the actual record. The field_templates() method of
  # GenericDataHeader modifies all keys by adding ordinals to them.
  my $self = Finnigan::Decoder->read($stream,
                                     [
                                      '0|time' => ['f<',  'Float32'],
                                      @$field_templates    # ordered templates from GenericDataHeader
                                     ]
                                    );
  return bless $self, $class;
}

sub time {
  shift->{data}->{'0|time'}->{value};
}

sub fields {
  my $self = shift;
  map{$self->{data}->{$_}}
    sort {(split /\|/, $a)[0] <=> (split /\|/, $b)[0]}
      grep {!/0\|time/}
        keys %{$self->{data}};
}

1;
__END__