File Coverage

blib/lib/ESPPlus/Storage/Record.pm

Criterion	Covered	Total	%
statement	63	72	87.5
branch	14	24	58.3
condition			n/a
subroutine	12	12	100.0
pod	6	6	100.0
total	95	114	83.3

package ESPPlus::Storage::Record;
use 5.006;
use strict;
use warnings;
use Carp 'confess';
use ESPPlus::Storage::Util;

BEGIN {
    for (qw(compressed
	    uncompressed
	    header_text)) {
	attribute_builder( $_, 'read only' );
    }

    attribute_builder( 'uncompress_function' );

    for ([qw[expected_length L]],
	 [qw[timestamp       U]],
	 [qw[application     A]]) {
	my $method_name = $_->[0];
	my $header_tag  = $_->[1];

	eval qq[
		sub $method_name {
		    my \$self = shift;
		    if ( exists \$self->{'$method_name'} ) {
			return \$self->{'$method_name'};
		    }

		    my \$ht = \${\$self->{'header_text'}};
		    if ( \$ht =~ /$header_tag=(?>[^;]+);/ ) {
			return \$self->{'$method_name'} =
			    substr( \$ht,
				    \$-[0] + 2,
				    \$+[0] - \$-[0] - 3 );
		    }

		    return;
		}
		];
	confess( $@ ) if $@;
    }
}

sub new {
    my $class = shift;
    my $p     = shift;
    my $self  = bless { %$p }, $class;

    return $self;
}

sub body {
    my $self = shift;

    if ( exists $self->{'uncompressed'} ) {
	return $self->{'uncompressed'};
    }

    unless ( exists $self->{'compressed'} ) {
	confess "Record missing body!";
    }

    my $expt_len;
    # Inlined the ->expected_length method call here.
    if ( exists $self->{'expected_length'} ) {
	$expt_len = $self->{'expected_length'};
    } else {
	if( ${$self->{'header_text'}} =~ /L=(?>[^;]+);/ ) {
	    $expt_len = substr
		( ${$self->{'header_text'}},
		  $-[0] + 2,
		  $+[0] - $-[0] - 3 );
	} else {
	    $expt_len = undef;
	}
    }

    $self->{'uncompressed'} =
	$self->{'uncompress_function'}( $self->{'compressed'},
					$expt_len );

    my $retr_len = length ${$self->{'uncompressed'}};
    unless ( $expt_len == $retr_len ) {
	confess "Uncompressed record length $retr_len did not match expected "
	    . "length $expt_len for record $self->{record_number}.";
    }

    return $self->{'uncompressed'};
}

sub header_length   { length ${$_[0]->{'header_text'}} }

1;

__END__