File Coverage

blib/lib/Finnigan/ScanEventTemplate.pm

Criterion	Covered	Total	%
statement	24	28	85.7
branch			n/a
condition			n/a
subroutine	10	11	90.9
pod	6	6	100.0
total	40	45	88.8

package Finnigan::ScanEventTemplate;

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, $version) = @_;

  my @fields = (
                "preamble"                      => ['object',  'Finnigan::ScanEventPreamble'],
                "presumed controller type"      => ['V',       'UInt32'],
                "presumed controller number"    => ['V',       'UInt32'],
                "fraction collector"            => ['object', 'Finnigan::FractionCollector'],
                "unknown long[3]"               => ['V',       'UInt32'],
                "unknown long[4]"               => ['V',       'UInt32'],
                "unknown long[5]"               => ['V',       'UInt32'],
               );

  my $self = Finnigan::Decoder->read($stream, \@fields, $version);
  bless $self, $class;
  return $self;
}

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

sub controllerType {
  shift->{data}->{"presumed controller type"}->{value};
}

sub controllerNumber {
  shift->{data}->{"presumed controller number"}->{value};
}

sub fraction_collector {
  shift->{data}->{"fraction collector"}->{value};
}


sub stringify {
  my $self = shift;

  my $p = $self->preamble;
  my $f = $self->fraction_collector;
  return "$p $f";
}


1;
__END__