XML::DOM2::Element::DocumentType - XML DocumentType

XML-DOM2 documentation Contained in the XML-DOM2 distribution.

Index

Code Index:

NAME

Top

  XML::DOM2::Element::DocumentType - XML DocumentType

DESCRIPTION

Top

  Provides a DocumentType element for documents

METHODS

Top

new

Creates a new documentType object

Parameters:

  - name       qualified name of the document to be created.
  - publicid   The external subset public identifier.
  - systemid   The external subset system identifier.

ownerDocument

$document = $document->ownerDocument;

Returns the document that this type is within, undef if orphaned.

name

The name of DTD; i.e., the name immediately following the DOCTYPE keyword.

entities

A NamedNodeMap containing the general entities, both external and internal, declared in the DTD. Parameter entities are not contained. Duplicates are discarded.

notations

Returns a HASH containing the notations declared in the DTD. Duplicates are discarded. Every node in this map also implements the Notation interface.

The DOM Level 2 does not support editing notations, therefore notations cannot be altered in any way.

publicId

Returns the public identifier of the external subset.

systemId

Returns the system identifier of the external subset.

internalSubset

The internal subset as a string.

Note: The actual content returned depends on how much information is available to the implementation. This may vary depending on various parameters, including the XML processor used to build the document.

$documentType->dtd()

  Returns the document type definition information.

AUTHOR

Top

Martin Owens, doctormo@postmaster.co.uk

SEE ALSO

Top

perl(1), XML::DOM2, XML::DOM2::Element, XML::DOM2::DOM

http://www.w3.org/TR/1998/REC-DOM-Level-1-19981001/level-one-core.html DOM at the W3C

XML-DOM2 documentation Contained in the XML-DOM2 distribution. 
package XML::DOM2::Element::DocumentType;

use strict;
use warnings;


use Carp;


sub new
{
	my ($proto, %args) = @_;
#	croak "name required (qualifiedName) in documentType" if not $args{'name'};
#	croak "publicid required in documentType" if not $args{'publicid'};
	my $doctype = bless \%args, $proto;
	return $doctype;
}


sub ownerDocument
{
	my ($self, $set) = @_;
	$self->{'document'} = $set if defined($set);
	return $self->{'document'};
}


sub name
{
	my ($self, $set) = @_;
	$self->{'name'} = $set if defined($set);
	return $self->{'name'};
}


sub entities
{
	die "Not implimented yet";
}


sub notations
{
	die "Not implimented yet";
}


sub publicId
{
	my ($self, $set) = @_;
	$self->{'publicId'} = $set if defined($set);
	return $self->{'publicId'};
}


sub systemId
{
	my ($self, $set) = @_;
	$self->{'systemId'} = $set if defined($set);
	return $self->{'systemId'};
}


sub internalSubset
{
	die "Not implimented yet";
}


sub dtd
{
	my ($self) = @_;
	return $self->{'dtd'};
}


return 1;