File Coverage

blib/lib/Gzip/RandomAccess.pm

Criterion	Covered	Total	%
statement	35	36	97.2
branch	16	18	88.8
condition	5	8	62.5
subroutine	7	7	100.0
pod	1	1	100.0
total	64	70	91.4

package Gzip::RandomAccess;

use strict;
use warnings;
use Carp;
use XSLoader;

our $VERSION = '0.91';
XSLoader::load 'Gzip::RandomAccess', $VERSION;

my $DEFAULT_INDEX_SPAN = 1024 * 1024;

sub new {
    my $class = shift;
    my $args = $class->_parse_arguments(@_);

    my $self = _new(
        $args->{file},
        $args->{index_file},
        $args->{index_span} || $DEFAULT_INDEX_SPAN,
        $args->{cleanup} || 0,
    );
    bless $self, $class;

    if (!$self->index_available) {
        $self->build_index;
    }

    return $self;
}

sub _parse_arguments {
    my $class = shift;
    my $args = (@_ == 1 && ref $_[0] eq 'HASH') ? $_[0]              # Hashref
             : (@_ == 1)                        ? { file => $_[0] }  # Filename
             : (@_ % 2 == 0)                    ? { @_ }             # Hash
             : croak "Pass either a filename or a hash of arguments";

    exists $args->{file} or croak "Missing filename";
    defined $args->{file} or croak "Undefined filename";
    !ref $args->{file} or croak "Filename must be a scalar";

    my %valid = map { $_ => 1 } qw(file index_file index_span cleanup);

    for my $key (keys %$args) {
        croak "Invalid argument '$key'" if !$valid{$key};
    }

    return $args;
}

sub DESTROY {
    my $self = shift;
    my $index = $self->index_file;
    my $cleanup = $self->cleanup;
    $self->_free;
    if ($cleanup) {
        unlink($index);
    }
    return;
}

1;

__END__