File Coverage

blib/lib/WARC/Record/Stub.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch	2	2	100.0
condition			n/a
subroutine	9	9	100.0
pod	1	1	100.0
total	43	43	100.0

package WARC::Record::Stub;					# -*- CPerl -*-

use strict;
use warnings;

our @ISA = qw(WARC::Record::FromVolume);

use WARC; *WARC::Record::Stub::VERSION = \$WARC::VERSION;

use Carp;

require WARC::Record::FromVolume;

# This implementation uses a hash as the underlying structure.

# Instances of this class carry only two keys:  volume and offset.

# Other method calls result in loading the full object.

sub new {
  my $class = shift;
  my $volume = shift;
  my $offset = shift;

  croak "unbalanced key/value pairs" if scalar @_ % 2;

  my $ob = {volume => $volume, offset => $offset, @_};

  bless $ob, $class;
}

sub _load_and_forward {
  my $self = shift;
  my $method = shift;

  my $new = _read WARC::Record::FromVolume ($self->volume, $self->offset);

  $self->{$_} = $new->{$_} for keys %$new;
  bless $self, ref $new;

  $self->$method(@_)
}

BEGIN {
  no strict 'refs';
  foreach my $sub (qw/ fields protocol next open_block replay open_payload /)
    { *{$sub} = sub { (shift)->_load_and_forward($sub => @_)} }
}

1;
__END__