File Coverage

blib/lib/Finnigan/Reaction.pm

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

package Finnigan::Reaction;

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

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

use overload ('""' => 'stringify');

my $fields = [
              "precursor mz"      => ['d<', 'Float64'],
              "unknown double"    => ['d<', 'Float64'],
              "energy"            => ['d<', 'Float64'],
              "unknown long[1]"   => ['V',  'UInt32'],
              "unknown long[2]"   => ['V',  'UInt32'],
             ];

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

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

  return bless $self, $class;
}

sub precursor {
  shift->{data}->{"precursor mz"}->{value};
}

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

sub stringify {
  my $self = shift;
  my $precursor = sprintf("%.2f", $self->precursor);
  my $energy = sprintf("%.2f", $self->energy);
  return "$precursor\@$Finnigan::activationMethod$energy";
}

1;
__END__