File Coverage

blib/lib/HTTP/OAI/ListMetadataFormats.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	7	8	87.5
condition			n/a
subroutine	4	4	100.0
pod	3	3	100.0
total	32	33	96.9

package HTTP::OAI::ListMetadataFormats;

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

use strict;

our $VERSION = '4.13';

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

sub start_element {
	my ($self,$hash,$r) = @_;
	if( !$self->{'in_mdf'} ) {
		if( lc($hash->{LocalName}) eq 'metadataformat' ) {
			$self->set_handler(my $mdf = HTTP::OAI::MetadataFormat->new);
			$self->metadataFormat($mdf);
			$self->{'in_mdf'} = $hash->{Depth};
		}
	}
	$self->SUPER::start_element($hash,$r);
}

sub end_element {
	my ($self,$hash,$r) = @_;
	$self->SUPER::end_element($hash,$r);
	if( $self->{'in_mdf'} == $hash->{Depth} ) {
		if( lc($hash->{LocalName}) eq 'metadataformat' ) {
HTTP::OAI::Debug::trace( "metadataFormat: " . $self->get_handler->metadataPrefix );
			$self->set_handler( undef );
			$self->{'in_mdf'} = 0;
		}
	}
}

1;

__END__