File Coverage

blib/lib/XML/DOM2/Element/Document.pm

Criterion	Covered	Total	%
statement	10	15	66.6
branch	1	4	25.0
condition	0	6	0.0
subroutine	3	4	75.0
pod	1	1	100.0
total	15	30	50.0

package XML::DOM2::Element::Document;

=head1 NAME

XML::DOM2::Element::Document

=head1 DESCRIPTION

Provides the document element objec with the required DOM
interface for document wide element requests.

=head1 METHODS

=cut

use base "XML::DOM2::Element";
use Carp;

=head2 $class->new( %arguments )

  Create a new document object.

=cut
sub new
{
	my ($proto, %args) = @_;
	confess "Unable to create a new document element with no document!" if not $args{'document'};
	my $doc = $proto->SUPER::new($args{'documentTag'}, %args);
	return $doc;
}

=head2 $element->_attribute_handle( $name, %arguments )

  Handle document attributes

=cut
sub _attribute_handle
{
	my ($self, $name, %opts) = @_;
	my $ns = $opts{'namespace'};
	if($name eq 'xmlns' or ($ns and $ns->ns_prefix eq 'xmlns')) {
		return XML::DOM2::Attribute::Namespace->new( %opts );
	}
	return $self->SUPER::_attribute_handle($name, %opts);
}

=head1 AUTHOR

Martin Owens, [e-mail]

=head1 SEE ALSO

perl(1), L, L, L

L DOM at the W3C

=cut

return 1;