File Coverage

blib/lib/Finnigan/Peaks.pm

Criterion	Covered	Total	%
statement	16	27	59.2
branch	0	2	0.0
condition			n/a
subroutine	7	10	70.0
pod	6	6	100.0
total	29	45	64.4

package Finnigan::Peaks;

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

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


sub decode {
  my $self = bless Finnigan::Decoder->read($_[1], ["count" => ['V', 'UInt32']]), $_[0];
  return $self->iterate_object(
                               $_[1],
                               $self->{data}->{count}->{value},
                               peaks => 'Finnigan::Peak'
                              );
}

sub count {
  shift->{data}->{count}->{value};
}

sub peaks {
  shift->{data}->{peaks}->{value};
}

sub peak {
  shift->{data}->{peaks}->{value};
}

sub all {
  my $d;
  return [
          map {$d = $_->{data}; [$d->{mz}->{value}, $d->{abundance}->{value}]}
          @{$_[0]->{data}->{peaks}->{value}}
         ];
}

sub list {
  my $self = shift;
  if ($self->peaks) {
    foreach my $peak ( @{$self->peaks} ) {
      print "$peak\n";
    }
  }
}

1;
__END__