File Coverage

blib/lib/Finnigan/OLE2Property.pm

Criterion	Covered	Total	%
statement	31	33	93.9
branch	1	2	50.0
condition			n/a
subroutine	13	13	100.0
pod	8	8	100.0
total	53	56	94.6

package Finnigan::OLE2Property;

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

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

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

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

  # do a null read to initialize internal variables
  my $self = Finnigan::Decoder->read($stream, []);
  bless $self, $class;

  my $fields = [
                "name"        => ['string',       'UTF-16-LE:64'],
                "namelen"     => ['v',            'UInt16'],
                "type"        => ['c',            'UInt8'],
                "decorator"   => ['c',            'UInt8'],
                "left"        => ['V',            'UInt32'],
                "right"       => ['V',            'UInt32'],
                "child"       => ['V',            'UInt32'],   # child node (valid for storage and root types)
                "clsid"       => ['a16',          'RawBytes'], # CLSID of this storage (valid for storage and root types)
                "flags"       => ['a4',           'RawBytes'], # user flags
                "create time" => ['windows_time', 'TimestampWin64'],
                "mod time"    => ['windows_time', 'TimestampWin64'],
                "start"       => ['V',            'UInt32'],   # starting index of the stream (valid for stream and root types)
               ];

  if ( $bb_log == 9 ) {
    push @$fields, (
                    "data size" => ['V',  'UInt32'],   # size in bytes (valid for stream and root types)
                    "padding"   => ['a4', 'RawBytes'],
                   );
  }
  else {
    die "small block streams and Uint64 stream size are not implemented";
    push @$fields, (
                    "data size" => ['*',  'UInt64'],   # size in bytes (valid for stream and root types)
                   );
  }

  $self->SUPER::decode($stream, $fields);

  return $self;
}

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

sub data_size {
  shift->{data}->{"data size"}->{value};
}

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

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

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

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

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

1;
__END__