File Coverage

blib/lib/HTTP/OAI/MetadataFormat.pm

Criterion	Covered	Total	%
statement	16	23	69.5
branch	7	10	70.0
condition			n/a
subroutine	5	6	83.3
pod	4	5	80.0
total	32	44	72.7

package HTTP::OAI::MetadataFormat;

@ISA = qw( HTTP::OAI::MemberMixin XML::SAX::Base );

use strict;

our $VERSION = '4.13';

sub metadataPrefix { shift->_elem('metadataPrefix',@_) }
sub schema { shift->_elem('schema',@_) }
sub metadataNamespace { shift->_elem('metadataNamespace',@_) }

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

	$driver->start_element('metadataFormat');
	$driver->data_element('metadataPrefix',$self->metadataPrefix);
	$driver->data_element('schema',$self->schema);
	if( defined($self->metadataNamespace) )
	{
		$driver->data_element('metadataNamespace',$self->metadataNamespace);
	}
	$driver->end_element('metadataFormat');
}

sub end_element {
	my ($self,$hash) = @_;
	$self->SUPER::end_element($hash);
	my $elem = lc($hash->{LocalName});
	if( defined $hash->{Text} )
	{
		$hash->{Text} =~ s/^\s+//;
		$hash->{Text} =~ s/\s+$//;
	}
	if( $elem eq 'metadataprefix' ) {
		$self->metadataPrefix($hash->{Text});
	} elsif( $elem eq 'schema' ) {
		$self->schema($hash->{Text});
	} elsif( $elem eq 'metadatanamespace' ) {
		$self->metadataNamespace($hash->{Text});
	}
}

1;

__END__