File Coverage

blib/lib/HTTP/OAI/GetRecord.pm

Criterion	Covered	Total	%
statement	9	9	100.0
branch	2	2	100.0
condition			n/a
subroutine	3	3	100.0
pod	1	2	50.0
total	15	16	93.7

package HTTP::OAI::GetRecord;

require HTTP::OAI::ListRecords;
@ISA = qw( HTTP::OAI::ListRecords );

use strict;

our $VERSION = '4.12';

sub record
{
	my $self = shift;
	$self->{item} = [@_] if @_;
	return $self->{item}->[0];
}

sub generate_body {
	my ($self, $driver) = @_;

	for( $self->record ) {
		$_->generate( $driver );
	}
}

1;

__END__