File Coverage

blib/lib/HTTP/OAI/Metadata.pm

Criterion	Covered	Total	%
statement	23	25	92.0
branch	2	4	50.0
condition			n/a
subroutine	7	8	87.5
pod	4	7	57.1
total	36	44	81.8

package HTTP::OAI::Metadata;

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

use strict;

our $VERSION = '4.12';

sub new
{
	my( $class, %self ) = @_;

    my $inst = bless \%self, $class;

    if ($self{dom}) {
        $inst->_elem("dom", $self{dom});
    }
    else {
        $inst->{doc} = XML::LibXML::Document->new( '1.0', 'UTF-8' );
        $inst->{dom} = $inst->{current} = $inst->{doc}->createDocumentFragment;
    }

	return $inst;
}

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

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

	$driver->generate( $self->dom );
}

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

	my $node = $self->{doc}->createElementNS(
		$hash->{NamespaceURI},
		$hash->{Name},
	);
	foreach my $attr (values %{$hash->{Attributes}})
	{
		Carp::confess "Can't setAttribute without attribute name" if !defined $attr->{Name};
		$node->setAttribute( $attr->{Name}, $attr->{Value} );
	}

	$self->{current} = $self->{current}->appendChild( $node );
}

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

	$self->{current} = $self->{current}->parentNode;
}

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

	$self->{current}->appendText( $hash->{Data} );
}

1;

__END__