File Coverage

blib/lib/Finnigan/GenericDataHeader.pm

Criterion	Covered	Total	%
statement	31	32	96.8
branch	1	2	50.0
condition			n/a
subroutine	9	10	90.0
pod	6	6	100.0
total	47	50	94.0

package Finnigan::GenericDataHeader;

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

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

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

  my $self = Finnigan::Decoder->read($stream, [n => ['V', 'UInt32']]);
  bless $self, $class;

  if ( $self->n ) {
    $self->iterate_object($stream, $self->n, field => 'Finnigan::GenericDataDescriptor');
  }

  # prepare the field templates
  my $ord = 1;
  foreach my $f ( @{$self->{data}->{"field"}->{value}} ) {
    push @{$self->{templates}}, $f->definition;
    push @{$self->{ordered_templates}}, $f->definition($ord++);
    push @{$self->{labels}}, $f->label;
  }

  return $self;
}

sub n {
  # the number of data descriptors
  shift->{data}->{"n"}->{value};
}

sub fields {
  shift->{data}->{"field"}->{value};
}

sub labels {
  shift->{labels};
}

sub field_templates {
  shift->{templates};
}

sub ordered_field_templates {
  shift->{ordered_templates};
}

1;
__END__