File Coverage

blib/lib/HTTP/OAI/ListSets.pm

Criterion	Covered	Total	%
statement	3	13	23.0
branch	0	4	0.0
condition	0	6	0.0
subroutine	1	4	25.0
pod	3	3	100.0
total	7	30	23.3

package HTTP::OAI::ListSets;

@ISA = qw( HTTP::OAI::PartialList );

use strict;

our $VERSION = '4.13';

sub set { shift->item(@_) }

sub start_element
{
	my ($self,$hash, $r) = @_;

	if( $hash->{Depth} == 3 && $hash->{LocalName} eq "set" )
	{
		$self->set_handler(HTTP::OAI::Set->new);
	}

	$self->SUPER::start_element($hash, $r);
}

sub end_element
{
	my ($self,$hash, $r) = @_;

	$self->SUPER::end_element($hash, $r);

	if( $hash->{Depth} == 3 && $hash->{LocalName} eq "set" )
	{
		$r->callback( $self->get_handler, $self );
		$self->set_handler( undef );
	}
}

1;

__END__