File Coverage

blib/lib/Finnigan/FileHeader.pm

Criterion	Covered	Total	%
statement	25	33	75.7
branch	1	2	50.0
condition			n/a
subroutine	8	11	72.7
pod	6	6	100.0
total	40	52	76.9

package Finnigan::FileHeader;

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

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

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

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

  my $fields = [
                magic             => ['v',       'UInt16'],
                signature         => ['U0C18',   'UTF16LE'],
                "unknown_long[1]" => ['V',       'UInt32'],
                "unknown_long[2]" => ['V',       'UInt32'],
                "unknown_long[3]" => ['V',       'UInt32'],
                "unknown_long[4]" => ['V',       'UInt32'],
                version           => ['V',       'UInt32'],
                audit_start       => ['object',  'Finnigan::AuditTag'],
                audit_end         => ['object',  'Finnigan::AuditTag'],
                "unknown_long[5]" => ['V',       'UInt32'],
                unknown_area      => ['C60',     'RawBytes'],
                tag               => ['U0C1028', 'UTF16LE'],
               ];

  my $self = Finnigan::Decoder->read($stream, $fields);

  # make sure we're reading the right file
  my $magic = sprintf "%4x", $self->{data}->{magic}->{value};
  die "unrecognized magic number $magic" unless $self->{data}->{magic}->{value} == 0xa101;

  return bless $self, $class;
}

sub version {
  my ( $self ) = @_;
  $self->{data}->{version}->{value};
}

sub audit_start {
  my ( $self ) = @_;
  $self->{data}->{audit_start}->{value};
}

sub audit_end {
  my ( $self ) = @_;
  $self->{data}->{audit_end}->{value};
}

sub tag {
  my ( $self ) = @_;
  $self->{data}->{tag}->{value};
}

sub stringify {
  my $self = shift;

  my $version = $self->version;
  my $audit_tag = $self->audit_start;
  return "V.$version; $audit_tag";
}

1;

__END__