File Coverage

blib/lib/Finnigan/Peak.pm

Criterion	Covered	Total	%
statement	18	22	81.8
branch			n/a
condition			n/a
subroutine	8	9	88.8
pod	4	4	100.0
total	30	35	85.7

package Finnigan::Peak;

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

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

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

my $fields = [
              "mz"        => ['f<', 'Float32'],
              "abundance" => ['f<', 'Float32'],
             ];

sub decode {
  return bless Finnigan::Decoder->read($_[1], $fields), $_[0];
}

sub mz {
  $_[0]->{data}->{"mz"}->{value};
}

sub abundance {
  $_[0]->{data}->{"abundance"}->{value};
}

sub stringify {
  my $self = shift;
  my $mz = $self->{data}->{mz}->{value};
  my $abundance = $self->{data}->{abundance}->{value};
  return "$mz\t$abundance";
}

1;
__END__