view release on metacpan or  search on metacpan

lib/SVG/DOM2/Element/MetaData.pm  view on Meta::CPAN

}

sub _format_rdf
{
	my ($self, $child) = @_;
	# Resource
	my $rdfns = $self->document->getNamespace('rdf');
	my $resource = $child->getAttributeNS($rdfns, 'resource');
	return $resource->value if defined $resource;
	# Value
	return $child->cdata->text if $child->hasCDATA;
	# Structure
	my $result;
	my ($achild) = $child->getChildren;
	return '' if not $achild;
	if($achild->localName =~ /Bag|Alt|Seq/) {
		# Array
		$result = [ map { $self->_format_rdf($_) } $achild->getChildrenByName('rdf:li') ];
	} elsif($achild->localName eq 'Agent') {
		# Hash
		$result = $self->_format_rdf_hash($achild);