File Coverage

blib/lib/Finnigan/AuditTag.pm

Criterion	Covered	Total	%
statement	21	27	77.7
branch			n/a
condition			n/a
subroutine	7	9	77.7
pod	4	4	100.0
total	32	40	80.0

package Finnigan::AuditTag;

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 = [
                time =>         ['windows_time', 'TimestampWin64'],
                "tag[1]" =>     ['U0C50',        'UTF16LE'],
                "tag[2]" =>     ['U0C50',        'UTF16LE'],
                unknown_long => ['V',            'UInt32'],
               ];

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

  return bless $self, $class;
}

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

sub tag1 {
  my ( $self ) = @_;
  $self->{data}->{"tag[1]"}->{value};
}

sub stringify {
  my $self = shift;

  my $time = $self->time;
  my $tag1 = $self->tag1;
  return "$time; $tag1";
}

1;
__END__