File Coverage

blib/lib/WARC/Index/File/CDX/Entry.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch	2	2	100.0
condition			n/a
subroutine	8	8	100.0
pod	6	6	100.0
total	32	32	100.0

package WARC::Index::File::CDX::Entry;				# -*- CPerl -*-

use strict;
use warnings;

require WARC::Index::Entry;
our @ISA = qw(WARC::Index::Entry);

require WARC; *WARC::Index::File::CDX::Entry::VERSION = \$WARC::VERSION;

# This implementation uses a hash as the underlying structure.

# Accessible search keys are stored directly in the hash, while internal
#  values are stored with names with a leading underscore.

sub index { (shift)->{_index} }
sub volume { (shift)->{_g__volume} }
sub entry_position { (shift)->{_entry_offset} }
sub record_offset { (shift)->{_Vv__record_offset} }

sub next {
  my $self = shift;

  return $self->{_index}->entry_at($self->{_entry_offset}
				   + $self->{_entry_length});
}

sub value {
  my $self = shift;
  my $key = shift;

  return undef if $key =~ m/^_/;
  return $self->{$key};
}

1;
__END__