1 |
#!/usr/bin/perl |
#!/usr/bin/perl |
2 |
## This file is automatically generated |
## This file is automatically generated |
3 |
## at 2006-12-02T09:40:02+00:00, |
## at 2006-12-03T04:27:27+00:00, |
4 |
## from file "../lib/Message/DOM/Document.dis", |
## from file "Document.dis", |
5 |
## module <http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ManakaiDOM.Document>, |
## module <http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ManakaiDOM.Document>, |
6 |
## for <http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ManakaiDOMLatest>. |
## for <http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ManakaiDOMLatest>. |
7 |
## Don't edit by hand! |
## Don't edit by hand! |
10 |
require Message::DOM::TreeCore; |
require Message::DOM::TreeCore; |
11 |
require Message::Util::Error::DOMException; |
require Message::Util::Error::DOMException; |
12 |
package Message::DOM::Document; |
package Message::DOM::Document; |
13 |
our $VERSION = 20061202.0940; |
our $VERSION = 20061203.0427; |
14 |
package Message::DOM::Document::ManakaiDOMImplementationDocument; |
package Message::DOM::Document::ManakaiDOMImplementationDocument; |
15 |
our $VERSION = 20061202.0940; |
our $VERSION = 20061203.0427; |
16 |
push @Message::DOM::DOMCore::ManakaiDOMImplementation::ISA, q<Message::DOM::Document::ManakaiDOMImplementationDocument> unless Message::DOM::DOMCore::ManakaiDOMImplementation->isa (q<Message::DOM::Document::ManakaiDOMImplementationDocument>); |
push @Message::DOM::DOMCore::ManakaiDOMImplementation::ISA, q<Message::DOM::Document::ManakaiDOMImplementationDocument> unless Message::DOM::DOMCore::ManakaiDOMImplementation->isa (q<Message::DOM::Document::ManakaiDOMImplementationDocument>); |
17 |
sub create_document ($;$$$) { |
sub create_document ($;$$$) { |
18 |
my ($self, $namespaceURI, $qualifiedName, $doctype) = @_; |
my ($self, $namespaceURI, $qualifiedName, $doctype) = @_; |
23 |
(CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) { |
(CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) { |
24 |
require Message::DOM::DOMMain; |
require Message::DOM::DOMMain; |
25 |
|
|
26 |
report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#empty-namespace-uri', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:tag:suika.fam.cx,2005-09:1165044229:30838:aqhmc7623+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest'; |
report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#empty-namespace-uri', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:tag:suika.fam.cx,2005-09:1165118814:1861:wAUT122229+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest'; |
27 |
|
|
28 |
; |
; |
29 |
|
|
199 |
$Message::DOM::DOMFeature::ClassInfo->{q<Message::DOM::Document::ManakaiDOMImplementationDocument>}->{has_feature} = {}; |
$Message::DOM::DOMFeature::ClassInfo->{q<Message::DOM::Document::ManakaiDOMImplementationDocument>}->{has_feature} = {}; |
200 |
$Message::DOM::ClassPoint{q<Message::DOM::Document::ManakaiDOMImplementationDocument>} = 0; |
$Message::DOM::ClassPoint{q<Message::DOM::Document::ManakaiDOMImplementationDocument>} = 0; |
201 |
package Message::DOM::IFLatest::Document; |
package Message::DOM::IFLatest::Document; |
202 |
our $VERSION = 20061202.0940; |
our $VERSION = 20061203.0427; |
203 |
package Message::DOM::Document::ManakaiDOMDocument; |
package Message::DOM::Document::ManakaiDOMDocument; |
204 |
our $VERSION = 20061202.0940; |
our $VERSION = 20061203.0427; |
205 |
push our @ISA, 'Message::DOM::TreeCore::ManakaiDOMNode', |
push our @ISA, 'Message::DOM::TreeCore::ManakaiDOMNode', |
206 |
'Message::DOM::IF::Document', |
'Message::DOM::IF::Document', |
207 |
'Message::DOM::IF::Node', |
'Message::DOM::IF::Node', |
2446 |
$r} |
$r} |
2447 |
sub node_name ($;$) { |
sub node_name ($;$) { |
2448 |
if (@_ == 1) {my ($self) = @_; |
if (@_ == 1) {my ($self) = @_; |
2449 |
my $r; |
my $r = ''; |
2450 |
$r = '#document'; |
$r = '#document'; |
2451 |
$r; |
$r; |
2452 |
} else {my ($self) = @_; |
} else {my ($self) = @_; |
2455 |
} |
} |
2456 |
sub text_content ($;$) { |
sub text_content ($;$) { |
2457 |
if (@_ == 1) {my ($self) = @_; |
if (@_ == 1) {my ($self) = @_; |
2458 |
my $r; |
my $r = ''; |
2459 |
|
|
2460 |
{ |
{ |
2461 |
|
|
2717 |
$r} |
$r} |
2718 |
sub base_uri ($;$) { |
sub base_uri ($;$) { |
2719 |
if (@_ == 1) {my ($self) = @_; |
if (@_ == 1) {my ($self) = @_; |
2720 |
my $r; |
my $r = ''; |
2721 |
|
|
2722 |
{ |
{ |
2723 |
|
|
3033 |
} |
} |
3034 |
sub xml_version ($;$) { |
sub xml_version ($;$) { |
3035 |
if (@_ == 1) {my ($self) = @_; |
if (@_ == 1) {my ($self) = @_; |
3036 |
my $r; |
my $r = ''; |
3037 |
|
|
3038 |
{ |
{ |
3039 |
|
|
3228 |
} |
} |
3229 |
sub input_encoding ($;$) { |
sub input_encoding ($;$) { |
3230 |
if (@_ == 1) {my ($self) = @_; |
if (@_ == 1) {my ($self) = @_; |
3231 |
my $r; |
my $r = ''; |
3232 |
|
|
3233 |
{ |
{ |
3234 |
|
|
3295 |
} |
} |
3296 |
sub xml_encoding ($;$) { |
sub xml_encoding ($;$) { |
3297 |
if (@_ == 1) {my ($self) = @_; |
if (@_ == 1) {my ($self) = @_; |
3298 |
my $r; |
my $r = ''; |
3299 |
|
|
3300 |
{ |
{ |
3301 |
|
|
3812 |
(CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) { |
(CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) { |
3813 |
require Message::DOM::DOMMain; |
require Message::DOM::DOMMain; |
3814 |
|
|
3815 |
report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#empty-namespace-uri', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:tag:suika.fam.cx,2005-09:1165044229:30838:aqhmc7623+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest'; |
report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#empty-namespace-uri', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:tag:suika.fam.cx,2005-09:1165118814:1861:wAUT122229+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest'; |
3816 |
|
|
3817 |
; |
; |
3818 |
|
|
3929 |
(CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) { |
(CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) { |
3930 |
require Message::DOM::DOMMain; |
require Message::DOM::DOMMain; |
3931 |
|
|
3932 |
report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#empty-namespace-uri', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:tag:suika.fam.cx,2005-09:1165044229:30838:aqhmc7623+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest'; |
report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#empty-namespace-uri', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:tag:suika.fam.cx,2005-09:1165118814:1861:wAUT122229+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest'; |
3933 |
|
|
3934 |
; |
; |
3935 |
|
|
3954 |
$r} |
$r} |
3955 |
sub manakai_entity_base_uri ($;$) { |
sub manakai_entity_base_uri ($;$) { |
3956 |
if (@_ == 1) {my ($self) = @_; |
if (@_ == 1) {my ($self) = @_; |
3957 |
my $r; |
my $r = ''; |
3958 |
|
|
3959 |
{ |
{ |
3960 |
|
|
4130 |
'1.1', |
'1.1', |
4131 |
'1'}}; |
'1'}}; |
4132 |
$Message::DOM::ClassPoint{q<Message::DOM::Document::ManakaiDOMDocument>} = 14.1; |
$Message::DOM::ClassPoint{q<Message::DOM::Document::ManakaiDOMDocument>} = 14.1; |
|
$Message::DOM::DOMFeature::ClassInfo->{q<Message::DOM::Document::ManakaiDOMDocument>}->{compat_class}->{q<Message::DOM::Document::ManakaiDOMDocument>} = 1; |
|
4133 |
$Message::Util::Grove::ClassProp{q<Message::DOM::Document::ManakaiDOMDocument>} = {'s1a', |
$Message::Util::Grove::ClassProp{q<Message::DOM::Document::ManakaiDOMDocument>} = {'s1a', |
4134 |
['child'], |
['child'], |
4135 |
'v1h', |
'v1h', |
4137 |
'w0', |
'w0', |
4138 |
['impl']}; |
['impl']}; |
4139 |
package Message::DOM::IFLatest::DocumentFragment; |
package Message::DOM::IFLatest::DocumentFragment; |
4140 |
our $VERSION = 20061202.0940; |
our $VERSION = 20061203.0427; |
4141 |
package Message::DOM::Document::ManakaiDOMDocumentFragment; |
package Message::DOM::Document::ManakaiDOMDocumentFragment; |
4142 |
our $VERSION = 20061202.0940; |
our $VERSION = 20061203.0427; |
4143 |
push our @ISA, 'Message::DOM::TreeCore::ManakaiDOMNode', |
push our @ISA, 'Message::DOM::TreeCore::ManakaiDOMNode', |
4144 |
'Message::DOM::IF::DocumentFragment', |
'Message::DOM::IF::DocumentFragment', |
4145 |
'Message::DOM::IF::Node', |
'Message::DOM::IF::Node', |
5399 |
$r} |
$r} |
5400 |
sub node_name ($;$) { |
sub node_name ($;$) { |
5401 |
if (@_ == 1) {my ($self) = @_; |
if (@_ == 1) {my ($self) = @_; |
5402 |
my $r; |
my $r = ''; |
5403 |
$r = '#document-fragment'; |
$r = '#document-fragment'; |
5404 |
$r; |
$r; |
5405 |
} else {my ($self) = @_; |
} else {my ($self) = @_; |
5525 |
$r} |
$r} |
5526 |
sub base_uri ($;$) { |
sub base_uri ($;$) { |
5527 |
if (@_ == 1) {my ($self) = @_; |
if (@_ == 1) {my ($self) = @_; |
5528 |
my $r; |
my $r = ''; |
5529 |
|
|
5530 |
{ |
{ |
5531 |
|
|
5586 |
'1.1', |
'1.1', |
5587 |
'1'}}; |
'1'}}; |
5588 |
$Message::DOM::ClassPoint{q<Message::DOM::Document::ManakaiDOMDocumentFragment>} = 14.1; |
$Message::DOM::ClassPoint{q<Message::DOM::Document::ManakaiDOMDocumentFragment>} = 14.1; |
|
$Message::DOM::DOMFeature::ClassInfo->{q<Message::DOM::Document::ManakaiDOMDocumentFragment>}->{compat_class}->{q<Message::DOM::Document::ManakaiDOMDocumentFragment>} = 1; |
|
5589 |
$Message::Util::Grove::ClassProp{q<Message::DOM::Document::ManakaiDOMDocumentFragment>} = {'s1a', |
$Message::Util::Grove::ClassProp{q<Message::DOM::Document::ManakaiDOMDocumentFragment>} = {'s1a', |
5590 |
['child'], |
['child'], |
5591 |
'w0', |
'w0', |