File Coverage

blib/lib/Finnigan/Error.pm

Criterion	Covered	Total	%
statement	12	18	66.6
branch			n/a
condition			n/a
subroutine	4	7	57.1
pod	3	3	100.0
total	19	28	67.8

package Finnigan::Error;

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

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


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

  my $fields = [
                "time"     =>  ['f<',     'Float32'],
                "message"  =>  ['varstr', 'PascalStringWin32'],
               ];

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

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

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

1;
__END__