File Coverage

blib/lib/HTTP/OAI/MemberMixin.pm

Criterion	Covered	Total	%
statement	9	10	90.0
branch	6	6	100.0
condition			n/a
subroutine	2	3	66.6
pod	0	2	0.0
total	17	21	80.9

package HTTP::OAI::MemberMixin;

@ISA = qw( LWP::MemberMixin );

our $VERSION = '4.13';

sub new
{
	my( $class, %self ) = @_;
	return bless \%self, $class;
}

sub harvester { shift->_elem("harvester",@_) }

sub _multi
{
	my( $self, $elem ) = splice(@_, 0, 2);
	if( ref($_[0]) eq "ARRAY" )
	{
		$self->{$elem} = $_[0];
	}
	elsif( @_ )
	{
		push @{$self->{$elem}}, @_;
	}
	return @{$self->{$elem} || []};
}

1;

__END__