File Coverage

blib/lib/Finnigan/FractionCollector.pm

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

package Finnigan::FractionCollector;

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

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

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


my @fields = (
              "low mz"  => ['d<', 'Float64'],
              "high mz" => ['d<', 'Float64'],
             );

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

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

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

sub stringify {
  my $self = shift;
  my $low = sprintf("%.2f", $self->{data}->{"low mz"}->{value});
  my $high = sprintf("%.2f", $self->{data}->{"high mz"}->{value});
  return "[$low-$high]";
}

1;
__END__