File Coverage

blib/lib/Finnigan/MethodFile.pm

Criterion	Covered	Total	%
statement	31	32	96.8
branch	3	6	50.0
condition			n/a
subroutine	10	11	90.9
pod	7	7	100.0
total	51	56	91.0

package Finnigan::MethodFile;

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

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


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

  my @fields = (
                "header"      => ['object', 'Finnigan::FileHeader'],
                "file size"        => ['V',      'UInt32'],
                "orig file name"   => ['varstr', 'PascalStringWin32'],
                "n"                => ['V',      'UInt32'],
               );

  my $self = Finnigan::Decoder->read($stream, \@fields, $version);
  bless $self, $class;

  if ( $self->n ) { # this is a hack, because I don't have an iterate_hash() method
    # the tags come in pairs, so retreive them later with a method
    $self->iterate_scalar($stream, 2*$self->n, "name trans" => ['varstr', 'PascalStringWin32']);
  }

  $self->SUPER::decode($stream, ["container" => ['object', 'Finnigan::OLE2File']]);

  return $self;
}

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

sub file_size {
  shift->{data}->{"file size"}->{value};
}

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

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

sub translation_table {
  shift->{data}->{"name trans"}->{value};
}

sub instrument_name {
  my ($self, $i) = @_;
  my $n = $self->n;
  die "instrument index cannot be 0" if $i == 0;
  die "instrument index cannot be greater than $n" if $i > $n;
  $i--;
  return @{$self->translation_table}[2*$i .. 2*$i + 1];
}

1;
__END__