File Coverage

blib/lib/HTTP/OAI/Metadata/OAI_DC.pm

Criterion	Covered	Total	%
statement	19	26	73.0
branch	4	4	100.0
condition	0	2	0.0
subroutine	5	6	83.3
pod	1	4	25.0
total	29	42	69.0

package HTTP::OAI::Metadata::OAI_DC;

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

use strict;

our $VERSION = '4.11';

our $OAI_DC_SCHEMA = 'http://www.openarchives.org/OAI/2.0/oai_dc/';
our $DC_SCHEMA = 'http://purl.org/dc/elements/1.1/';
our @DC_TERMS = qw( contributor coverage creator date description format identifier language publisher relation rights source subject title type );
our %VALID_TERM = map { $_ => 1 } @DC_TERMS;

sub metadata { shift->dom(@_) }

sub dc { shift->_elem('dc',@_) }

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

	$driver->start_element( 'metadata' );
	$driver->start_element( 'oai_dc:dc',
		'xmlns:oai_dc' => 'http://www.openarchives.org/OAI/2.0/oai_dc/',
		'xmlns:dc' => 'http://purl.org/dc/elements/1.1/',
		'xmlns:xsi' => 'http://www.w3.org/2001/XMLSchema-instance',
		'xsi:schemaLocation' => 'http://www.openarchives.org/OAI/2.0/oai_dc/ http://www.openarchives.org/OAI/2.0/oai_dc.xsd',
	);
	foreach my $term (@DC_TERMS)
	{
		foreach my $value (@{$self->{dc}{$term} || []})
		{
			$driver->data_element( "dc:$term", $value );
		}
	}
	$driver->end_element( 'oai_dc:dc' );
	$driver->end_element( 'metadata' );
}

sub _toString {
	my $self = shift;
	my $str = "Open Archives Initiative Dublin Core (".ref($self).")\n";
	foreach my $term ( @DC_TERMS )
	{
		for(@{$self->{dc}->{$term}})
		{
			$str .= sprintf("%s:\t%s\n", $term, $_||'');
		}
	}
	$str;
}

sub end_element {
	my ($self,$hash) = @_;
	my $elem = lc($hash->{LocalName});
	if( $VALID_TERM{$elem} )
	{
		push @{$self->{dc}->{$elem}}, $hash->{Text};
	}
}

1;

__END__