File Coverage

blib/lib/ESPPlus/Storage.pm

Criterion	Covered	Total	%
statement	57	58	98.2
branch	9	10	90.0
condition	1	3	33.3
subroutine	15	15	100.0
pod	4	4	100.0
total	86	90	95.5

package ESPPlus::Storage;
use 5.006;
use strict;
use warnings;
use Carp 'confess';
use IO::File ();
use ESPPlus::Storage::Util;
use ESPPlus::Storage::Record;
use ESPPlus::Storage::Reader;
use ESPPlus::Storage::Writer;

use vars qw($VERSION);

$VERSION = '0.01';

BEGIN {
    for (qw(compress_function
	    uncompress_function
	    filename)) {
	attribute_builder( $_ );
    }
}

sub new {
    my $class = shift;
    my $p = shift;

    my $self = bless {}, $class;

    for my $param (qw(compress_function
		      uncompress_function
		      filename
		      handle)) {
	next unless exists $p->{$param};
	$self->{$param} = delete $p->{$param};
    }

    if (%$p) {
	confess "Invalid parameters " . join(', ', sort keys %$p)
	    . " to $class->new";
    }

    unless ($self->{'filename'} or $self->{'handle'}) {
	confess "You must provide either a filename or filehandle to "
	    . "$class->new";
    }

    # Be sure to kick off the file open if necessary
    $self->handle;

    return $self;
}

sub handle {
    my $self = shift;

    if (@_) {
	$self->{'handle'} = shift;
    }

    unless (exists $self->{'handle'}) {
	$self->{'handle'} = IO::File->new( $self->filename, 'r' );
    }

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

sub reader {
    my $self = shift;

    my $class = "${\ref $self}::Reader";

    return $class->new( { uncompress_function => $self->{'uncompress_function'},
			  handle => $self->handle } );
}

sub writer {
    my $self = shift;
    my $class = "${\ref $self}::Writer";

    return $class->new( { compress_function => $self->{'compress_function'},
			  handle => $self->handle } );
}


1;

__END__