/[suikacvs]/messaging/manakai/lib/Message/DOM/Document.pm

Diff of /messaging/manakai/lib/Message/DOM/Document.pm

Parent Directory | Revision Log | View Patch Patch

-revision 1.1 by wakaba,
Sun Apr  2 10:45:23 2006 UTC
+revision 1.14 by wakaba,
Sat Dec 30 04:42:51 2006 UTC
 Line 1
  #!/usr/bin/perl
  ## This file is automatically generated
- ##      at 2006-04-01T17:42:59+00:00,
+ ##      at 2006-12-30T04:24:35+00:00,
  ##      from file "Document.dis",
  ##      module <http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ManakaiDOM.Document>,
  ##      for <http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ManakaiDOMLatest>.
  ## Don't edit by hand!
  use strict;
  require Message::DOM::DOMCore;
- require Message::DOM::Element;
  require Message::DOM::TreeCore;
  require Message::Util::Error::DOMException;
  package Message::DOM::Document;
- our $VERSION = 20060401.1743;
+ our $VERSION = 20061230.0424;
- package Message::DOM::IFLatest::Document;
+ package Message::DOM::Document::ManakaiDOMImplementationDocument;
- our $VERSION = 20060401.1743;
+ our $VERSION = 20061230.0424;
- package Message::DOM::Document::ManakaiDOMDocument;
+ push @Message::DOM::DOMCore::ManakaiDOMImplementation::ISA, q<Message::DOM::Document::ManakaiDOMImplementationDocument> unless Message::DOM::DOMCore::ManakaiDOMImplementation->isa (q<Message::DOM::Document::ManakaiDOMImplementationDocument>);
- our $VERSION = 20060401.1743;
+ sub create_document ($;$$$) {
- push our @ISA, 'Message::DOM::TreeCore::ManakaiDOMNode',
+ my ($self, $namespaceURI, $qualifiedName, $doctype) = @_;
- 'Message::DOM::IF::Document',
- 'Message::DOM::IF::Node',
- 'Message::DOM::IFLatest::Document',
- 'Message::DOM::IFLatest::Node',
- 'Message::DOM::IFLevel1::Document',
- 'Message::DOM::IFLevel1::Node',
- 'Message::DOM::IFLevel2::Document',
- 'Message::DOM::IFLevel2::Node',
- 'Message::DOM::IFLevel3::Document',
- 'Message::DOM::IFLevel3::Node';
- use Char::Class::XML 'InXMLNCNameChar10',
- 'InXMLNCNameChar11',
- 'InXMLNCNameStartChar11',
- 'InXMLNameChar10',
- 'InXMLNameChar11',
- 'InXMLNameStartChar11',
- 'InXML_NCNameStartChar10',
- 'InXML_NameStartChar10';
- sub ___create_node_stem ($$$$) {
- my ($self, $bag, $obj, $opt) = @_;
- my $r = {};
  {
+ if
+ (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {
+   require Message::DOM::DOMMain;
+ 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:1167450139:7187:cCkYT15288+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- $obj->{
+ ;
- 'child'
- } = [];
- $obj->{
- 'do'
- } = {};
- $obj->{
- 'http://www.w3.org/2001/04/infoset#version'
- } = '1.0';
  {
- $obj->{'impl'} = $opt->{'impl'}->{
+ $namespaceURI = undef;
- 'id'
- };
- $bag->{${$opt->{'impl'}->{
- 'id'
- }}}
-     ->{'lpmi'}->{${$obj->{
- 'id'
- }}}
-   = $obj->{
- 'id'
- };
- ;}
+ }
  ;
- $r = $obj;
+ }
- ;}
+ }
- $r}
- sub ___create_node_ref ($$$) {
- my ($self, $obj, $opt) = @_;
  my $r;
  {
- my
+ require
- $class;
+ Scalar::Util;
- CLS: {
+ $r = bless \{
-   if (defined $opt->{
- 'nrcls'
+ 'child'
- }) {
+  => [],
-     $class = $opt->{
- 'nrcls'
+ 'impl'
- };
+  => $self,
-     IFCHK: {
-       for (@{$opt->{
+ 'http://www.w3.org/2001/04/infoset#version'
- 'nrifs'
+  => '1.0',
- } or []}) {
-         last IFCHK unless $$class->isa ($_);
+ 'chk'
-       }
+  => 1,
-       last CLS;
+ },
-     } # IFCHK
+ 'Message::DOM::Document::ManakaiDOMDocument'
-   }
+ ;
+ if (defined $doctype) {
  {
+ local $Error::Depth = $Error::Depth + 1;
- $class = $obj->{
+ {
- 'b'
- }->{${$obj->{
- 'id'
- }}}
-          ->{'dnrcls'};
- ;}
- ;
-   if (defined $class) {
-     IFCHK: {
-       for (@{$opt->{
- 'nrifs'
- } or []}) {
-         last IFCHK unless $$class->isa ($_);
-       }
-       last CLS;
-     } # IFCHK
-   }
-   my $cns;
+     $r->
+ append_child
+  ($doctype);
- {
- $cns = $obj->{
+ }
- 'b'
- }->{${$obj->{
- 'id'
- }}}
-          ->{'child'};
  ;}
  ;
-   my $bag =
- $obj->{'b'}
- ;
-   my $deh;
-   DC: for my $cnid (@$cns) {
-     my $cnh =
- {
-   'id' => $cnid,
-   'b' => $bag,
  }
- ;
-     my $cncls;
- {
+ if (defined $qualifiedName) {
- $cncls = $cnh->{
- 'b'
- }->{${$cnh->{
- 'id'
- }}}
-          ->{'cls'};
- ;}
- ;
-     if ($$cncls eq
- 'Message::DOM::Element::ManakaiDOMElement'
- ) {
-       $deh = $cnh;
-       last DC;
-     }
-   } # DC
-   my $dens;
-   my $deln;
-   if (defined $deh) {
  {
+ local $Error::Depth = $Error::Depth + 1;
- $dens = $deh->{
- 'b'
- }->{${$deh->{
- 'id'
- }}}
-          ->{'ns'};
- ;}
- ;
-     $dens = \'' unless defined $dens;
  {
- $deln = $deh->{
+     my
- 'b'
+ $el = $r->
- }->{${$deh->{
+ create_element_ns
- 'id'
- }}}
-          ->{'ln'};
- ;}
+                    ($namespaceURI, $qualifiedName);
+     $r->
+ append_child
+  ($el);
+     $r = $el->
+ owner_document
  ;
-   } else {
+            ## Choose the class based on document element type
-     $dens = \'*';
-     $deln = \'*';
-   }
-   A: {
-     ## Use cases:
-     ##   - Document element is |html5:html|
-     ##   - Document element is |NULL:rfc|
-     for my $nm (
-       [$dens, $deln],
-       [$dens, \'*'],
-     ) {
-       for my $__class (sort {
-         $Message::DOM::ClassPoint{$b} <=> $Message::DOM::ClassPoint{$a}
-       } grep {
-         $Message::DOM::DOMFeature::ClassInfo
-             ->{
- 'Message::DOM::Document::ManakaiDOMDocument'
- }
-             ->{compat_class_by_type}
-             ->{${$nm->[0]}}->{${$nm->[1]}}->{$_}
-       } keys %{$Message::DOM::DOMFeature::ClassInfo
-                    ->{
- 'Message::DOM::Document::ManakaiDOMDocument'
- }
-                    ->{compat_class_by_type}
-                    ->{${$nm->[0]}}->{${$nm->[1]}} or {}}) {
-         if ($Message::DOM::DOMFeature::ClassInfo->{$__class}
-                 ->{has_feature}->{xml}->{'3.0'}) {
-           $class = \$__class;
-           IFCHK: {
-             for (@{$opt->{
- 'nrifs'
- } or []}) {
-               last IFCHK unless $$class->isa ($_);
-             }
-             last A;
-           } # IFCHK
-         }
-       }
-     }
-     ## Generic
-     CLASS: for my $__class (sort {
-       $Message::DOM::ClassPoint{$b} <=> $Message::DOM::ClassPoint{$a}
-     } grep {
-       $Message::DOM::DOMFeature::ClassInfo
-           ->{
- 'Message::DOM::Document::ManakaiDOMDocument'
  }
-           ->{compat_class}->{$_}
-     } keys %{$Message::DOM::DOMFeature::ClassInfo
-                  ->{
- 'Message::DOM::Document::ManakaiDOMDocument'
- }
-                  ->{compat_class} or {}}) {
-       if ($Message::DOM::DOMFeature::ClassInfo->{$__class}
-               ->{has_feature}->{xml}->{'3.0'}) {
-         $class = \$__class;
-         IFCHK: {
-           for (@{$opt->{
- 'nrifs'
- } or []}) {
-             last IFCHK unless $$class->isa ($_);
-           }
-           last A;
-         } # IFCHK
-       }
-     }
-     ## Default
-     $class = \$self;
-   } # A
-   if (defined $deh) {
- {
- $obj->{
- 'b'
- }->{${$obj->{
- 'id'
- }}}
-     ->{'dnrcls'} = $class;
  ;}
  ;
-   }
+ } elsif (defined $namespaceURI) {
- } # CLS
- $r = bless $obj, $$class;
+ report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'create_document', 'http://www.w3.org/2001/04/infoset#namespaceURI' => $namespaceURI, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_NULL_QNAME_WITH_NON_NULL_URI', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMImplementationDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'namespaceURI';
+ ;
+ }
- ;}
+ }
  $r}
+ $Message::DOM::DOMFeature::ClassInfo->{q<Message::DOM::Document::ManakaiDOMImplementationDocument>}->{has_feature} = {};
+ $Message::DOM::ClassPoint{q<Message::DOM::Document::ManakaiDOMImplementationDocument>} = 0;
+ package Message::DOM::IFLatest::Document;
+ our $VERSION = 20061230.0424;
+ package Message::DOM::Document::ManakaiDOMDocument;
+ our $VERSION = 20061230.0424;
+ push our @ISA, 'Message::DOM::TreeCore::ManakaiDOMNode',
+ 'Message::DOM::IFLatest::Document',
+ 'Message::DOM::IFLatest::Node';
  sub node_type ($;$) {
  if (@_ == 1) {my ($self) = @_;
  my $r;
-Line 400 
 local $Error::Depth = $Error::Depth - 1;
+Line 223 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'append_child', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_SECOND_DOC_ELEMENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- ;}
+ }
  ;}
-Line 436 
 local $Error::Depth = $Error::Depth - 1;
+Line 259 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'append_child', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_SECOND_DOC_ELEMENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- ;}
+ }
  ;}
-Line 470 
 local $Error::Depth = $Error::Depth - 1;
+Line 293 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'append_child', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#HIERARCHY_WRONG_DOCTYPE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- ;}
+ }
  ;}
-Line 490 
 local $Error::Depth = $Error::Depth - 1;
+Line 313 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'append_child', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_SECOND_DOCTYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- ;}
+ }
  ;}
-Line 505 
 previous_sibling
+Line 328 
 previous_sibling
- ;}
+ }
  ;}
-Line 569 
 local $Error::Depth = $Error::Depth - 1;
+Line 392 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- ;}
+ }
  ;}
-Line 590 
 local $Error::Depth = $Error::Depth - 1;
+Line 413 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- ;}
+ }
  ;}
-Line 618 
 local $Error::Depth = $Error::Depth - 1;
+Line 441 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'WRONG_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#DIFFERENT_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- ;}
+ }
  ;}
-Line 641 
 local $Error::Depth = $Error::Depth - 1;
+Line 464 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;}
+ }
  ;}
-Line 664 
 local $Error::Depth = $Error::Depth - 1;
+Line 487 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_SRC_PARENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;}
+ }
  ;}
-Line 685 
 report Message::DOM::DOMCore::ManakaiDOM
+Line 508 
 report Message::DOM::DOMCore::ManakaiDOM
      if ($child_nt ==
  ) {
+       $$newChild->{
+ 'child'
- {
+ } = [];
- $newChild->{
- 'b'
- }->{${$newChild->{
- 'id'
- }}}
-     ->{'child'} = [];
- ;}
- ;
      } else {
-       my $v;
+       my $v = $$nc_parent->{
+ 'child'
+ };
- {
- $v = $nc_parent->{
- 'b'
- }->{${$nc_parent->{
- 'id'
- }}}
-          ->{'child'};
- ;}
- ;
        RP: for my $i (0..$#$v) {
-         my $nodeid = $v->[$i];
+         if ($v->[$i] eq $new_child[0]) {
-         if (
- (${$new_child[0]->{'id'}} eq ${$nodeid})
- ) {
            splice @$v, $i, 1, ();
            last RP;
          }
-Line 733 
 $v = $nc_parent->{
+Line 526 
 $v = $nc_parent->{
    ## -- Rewrite the |parentNode| properties
    for my $nc (@new_child) {
+     $$nc->{
+ 'parent'
- {
+ } = $self;
+     Scalar::Util::weaken ($$nc->{
+ 'parent'
- $nc->{
+ });
- 'b'
- }->{${$nc->{
- 'id'
- }}}
-     ->{'parent'} = $self->{
- 'id'
- };
- ;}
- ;
    }
-   my $children;
+   my $children = $$self->{
+ 'child'
+ };
- {
- $children = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'child'};
- ;}
- ;
-Line 777 
 $children = $self->{
+Line 544 
 $children = $self->{
  ## -- Adds to children list
-     push @$children, map {
+     push @$children, @new_child;
- $_->{'id'}
-     } @new_child;
      $r = $newChild;
- ;}
+ }
  ;
-Line 800 
 $_->{'id'}
+Line 563 
 $_->{'id'}
- ;}
+ }
  ;}
-Line 808 
 $_->{'id'}
+Line 571 
 $_->{'id'}
  ;
- ;}
+ }
  ;
  if ($child_nt ==
-Line 817 
 if ($child_nt ==
+Line 580 
 if ($child_nt ==
  not defined $newChild->
  owner_document
  ) {
-   my $bag =
+   CORE::delete $$newChild->{
- $self->{'b'}
+ 'impl'
- ;
- {
- CORE::delete
- $bag->{${$bag->{${$newChild->{
- 'id'
- }}}
-                           ->{'impl'} or \''}}
-                  ->{'lpmi'};
- push @{$bag->{
- 'm'
- }},
-      $bag->{${$newChild->{
- 'id'
- }}}->{'impl'};
- CORE::delete $bag->{${$newChild->{
- 'id'
- }}}
-                  ->{'impl'};
- ;}
- ;
- {
- $bag->{${$newChild->{
- 'id'
- }}}->{'od'}
-   = $self->{
- 'id'
- };
- $bag->{${$self->{
- 'id'
- }}}
-     ->{'do'}->{${$newChild->{
- 'id'
- }}}
-   = $newChild->{
- 'id'
  };
+   $$newChild->{
+ 'od'
- ;}
+ } = $self;
+   Scalar::Util::weaken ($$newChild->{
- ;
+ 'od'
+ });
  }
- ;}
+ }
  $r}
  sub insert_before ($$;$) {
  my ($self, $newChild, $refChild) = @_;
-Line 948 
 local $Error::Depth = $Error::Depth - 1;
+Line 667 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'insert_before', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_SECOND_DOC_ELEMENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- ;}
+ }
  ;}
-Line 987 
 local $Error::Depth = $Error::Depth - 1;
+Line 706 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'insert_before', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_SECOND_DOC_ELEMENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- ;}
+ }
  ;}
-Line 1017 
 local $Error::Depth = $Error::Depth - 1;
+Line 736 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'insert_before', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_SECOND_DOC_ELEMENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- ;}
+ }
  ;}
-Line 1037 
 local $Error::Depth = $Error::Depth - 1;
+Line 756 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'insert_before', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#HIERARCHY_WRONG_DOCTYPE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- ;}
+ }
  ;}
-Line 1074 
 local $Error::Depth = $Error::Depth - 1;
+Line 793 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'insert_before', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#HIERARCHY_WRONG_DOCTYPE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- ;}
+ }
  ;}
-Line 1094 
 local $Error::Depth = $Error::Depth - 1;
+Line 813 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'insert_before', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_SECOND_DOCTYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- ;}
+ }
  ;}
-Line 1124 
 local $Error::Depth = $Error::Depth - 1;
+Line 843 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'insert_before', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_SECOND_DOCTYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- ;}
+ }
  ;}
-Line 1139 
 next_sibling
+Line 858 
 next_sibling
- ;}
+ }
  ;}
-Line 1203 
 local $Error::Depth = $Error::Depth - 1;
+Line 922 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- ;}
+ }
  ;}
-Line 1224 
 local $Error::Depth = $Error::Depth - 1;
+Line 943 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- ;}
+ }
  ;}
-Line 1252 
 local $Error::Depth = $Error::Depth - 1;
+Line 971 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'WRONG_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#DIFFERENT_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- ;}
+ }
  ;}
-Line 1275 
 local $Error::Depth = $Error::Depth - 1;
+Line 994 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;}
+ }
  ;}
-Line 1298 
 local $Error::Depth = $Error::Depth - 1;
+Line 1017 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_SRC_PARENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;}
+ }
  ;}
-Line 1332 
 local $Error::Depth = $Error::Depth - 1;
+Line 1051 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/tree#insert-before-itself', 'rdata' => $refChild, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;}
+ }
  ;}
-Line 1341 
 report Message::DOM::DOMCore::ManakaiDOM
+Line 1060 
 report Message::DOM::DOMCore::ManakaiDOM
- ;}
+ }
  ;
-Line 1378 
 local $Error::Depth = $Error::Depth - 1;
+Line 1097 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NOT_FOUND_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#NOT_CHILD_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'refChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $refChild;
- ;}
+ }
  ;}
-Line 1387 
 report Message::DOM::DOMCore::ManakaiDOM
+Line 1106 
 report Message::DOM::DOMCore::ManakaiDOM
- ;}
+ }
  ;
-Line 1402 
 report Message::DOM::DOMCore::ManakaiDOM
+Line 1121 
 report Message::DOM::DOMCore::ManakaiDOM
- ;}
+ }
  ; # FOR !tc:ForAppendChild
-Line 1411 
 report Message::DOM::DOMCore::ManakaiDOM
+Line 1130 
 report Message::DOM::DOMCore::ManakaiDOM
      if ($child_nt ==
  ) {
+       $$newChild->{
+ 'child'
- {
+ } = [];
- $newChild->{
- 'b'
- }->{${$newChild->{
- 'id'
- }}}
-     ->{'child'} = [];
- ;}
- ;
      } else {
-       my $v;
+       my $v = $$nc_parent->{
+ 'child'
+ };
- {
- $v = $nc_parent->{
- 'b'
- }->{${$nc_parent->{
- 'id'
- }}}
-          ->{'child'};
- ;}
- ;
        RP: for my $i (0..$#$v) {
-         my $nodeid = $v->[$i];
+         if ($v->[$i] eq $new_child[0]) {
-         if (
- (${$new_child[0]->{'id'}} eq ${$nodeid})
- ) {
            splice @$v, $i, 1, ();
            last RP;
          }
-Line 1459 
 $v = $nc_parent->{
+Line 1148 
 $v = $nc_parent->{
    ## -- Rewrite the |parentNode| properties
    for my $nc (@new_child) {
+     $$nc->{
+ 'parent'
- {
+ } = $self;
+     Scalar::Util::weaken ($$nc->{
+ 'parent'
- $nc->{
+ });
- 'b'
- }->{${$nc->{
- 'id'
- }}}
-     ->{'parent'} = $self->{
- 'id'
- };
- ;}
- ;
    }
-   my $children;
+   my $children = $$self->{
+ 'child'
+ };
- {
- $children = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'child'};
- ;}
- ;
-Line 1508 
 $children = $self->{
+Line 1171 
 $children = $self->{
  ## -- Adds to children list
      if ($index == -1) {
-       push @$children, map {
+       push @$children, @new_child;
- $_->{'id'}
-       } @new_child;
      } else {
-       splice @$children, $index, 0, map {
+       splice @$children, $index, 0, @new_child;
- $_->{'id'}
-       } @new_child;
      }
      $r = $newChild;
- ;}
+ }
  ;
-Line 1534 
 $_->{'id'}
+Line 1189 
 $_->{'id'}
- ;}
+ }
  ;}
-Line 1542 
 $_->{'id'}
+Line 1197 
 $_->{'id'}
  ;
- ;}
+ }
  ;
  if ($child_nt ==
-Line 1551 
 if ($child_nt ==
+Line 1206 
 if ($child_nt ==
  not defined $newChild->
  owner_document
  ) {
-   my $bag =
+   CORE::delete $$newChild->{
- $self->{'b'}
+ 'impl'
- ;
- {
- CORE::delete
- $bag->{${$bag->{${$newChild->{
- 'id'
- }}}
-                           ->{'impl'} or \''}}
-                  ->{'lpmi'};
- push @{$bag->{
- 'm'
- }},
-      $bag->{${$newChild->{
- 'id'
- }}}->{'impl'};
- CORE::delete $bag->{${$newChild->{
- 'id'
- }}}
-                  ->{'impl'};
- ;}
- ;
- {
- $bag->{${$newChild->{
- 'id'
- }}}->{'od'}
-   = $self->{
- 'id'
- };
- $bag->{${$self->{
- 'id'
- }}}
-     ->{'do'}->{${$newChild->{
- 'id'
- }}}
-   = $newChild->{
- 'id'
  };
+   $$newChild->{
+ 'od'
- ;}
+ } = $self;
+   Scalar::Util::weaken ($$newChild->{
- ;
+ 'od'
+ });
  }
- ;}
+ }
  $r}
  sub replace_child ($$$) {
  my ($self, $newChild, $oldChild) = @_;
-Line 1682 
 local $Error::Depth = $Error::Depth - 1;
+Line 1293 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'replace_child', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_SECOND_DOC_ELEMENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- ;}
+ }
  ;}
-Line 1718 
 local $Error::Depth = $Error::Depth - 1;
+Line 1329 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'replace_child', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_SECOND_DOC_ELEMENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- ;}
+ }
  ;}
-Line 1750 
 local $Error::Depth = $Error::Depth - 1;
+Line 1361 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'replace_child', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_SECOND_DOC_ELEMENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- ;}
+ }
  ;}
-Line 1770 
 local $Error::Depth = $Error::Depth - 1;
+Line 1381 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'replace_child', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#HIERARCHY_WRONG_DOCTYPE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- ;}
+ }
  ;}
-Line 1804 
 local $Error::Depth = $Error::Depth - 1;
+Line 1415 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'replace_child', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#HIERARCHY_WRONG_DOCTYPE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- ;}
+ }
  ;}
-Line 1824 
 local $Error::Depth = $Error::Depth - 1;
+Line 1435 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'replace_child', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_SECOND_DOCTYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- ;}
+ }
  ;}
-Line 1856 
 local $Error::Depth = $Error::Depth - 1;
+Line 1467 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'replace_child', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_SECOND_DOCTYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- ;}
+ }
  ;}
-Line 1871 
 next_sibling
+Line 1482 
 next_sibling
- ;}
+ }
  ;}
-Line 1935 
 local $Error::Depth = $Error::Depth - 1;
+Line 1546 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- ;}
+ }
  ;}
-Line 1956 
 local $Error::Depth = $Error::Depth - 1;
+Line 1567 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- ;}
+ }
  ;}
-Line 1984 
 local $Error::Depth = $Error::Depth - 1;
+Line 1595 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'WRONG_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#DIFFERENT_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- ;}
+ }
  ;}
-Line 2007 
 local $Error::Depth = $Error::Depth - 1;
+Line 1618 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;}
+ }
  ;}
-Line 2030 
 local $Error::Depth = $Error::Depth - 1;
+Line 1641 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_SRC_PARENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;}
+ }
  ;}
-Line 2067 
 local $Error::Depth = $Error::Depth - 1;
+Line 1678 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/tree#replace-by-itself', 'rdata' => $oldChild, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;}
+ }
  ;}
-Line 2076 
 report Message::DOM::DOMCore::ManakaiDOM
+Line 1687 
 report Message::DOM::DOMCore::ManakaiDOM
- ;}
+ }
  ;
        }
-Line 2113 
 local $Error::Depth = $Error::Depth - 1;
+Line 1724 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NOT_FOUND_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#NOT_CHILD_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'oldChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $oldChild;
- ;}
+ }
  ;}
-Line 2122 
 report Message::DOM::DOMCore::ManakaiDOM
+Line 1733 
 report Message::DOM::DOMCore::ManakaiDOM
- ;}
+ }
  ;
        } # C
-Line 2141 
 local $Error::Depth = $Error::Depth - 1;
+Line 1752 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NOT_FOUND_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#NOT_CHILD_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'oldChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $oldChild;
- ;}
+ }
  ;}
-Line 2150 
 report Message::DOM::DOMCore::ManakaiDOM
+Line 1761 
 report Message::DOM::DOMCore::ManakaiDOM
- ;}
+ }
  ;
      }
- ;}
+ }
  ; # FOR !tc:ForAppendChild
-Line 2166 
 report Message::DOM::DOMCore::ManakaiDOM
+Line 1777 
 report Message::DOM::DOMCore::ManakaiDOM
      if ($child_nt ==
  ) {
+       $$newChild->{
+ 'child'
- {
+ } = [];
- $newChild->{
- 'b'
- }->{${$newChild->{
- 'id'
- }}}
-     ->{'child'} = [];
- ;}
- ;
      } else {
-       my $v;
+       my $v = $$nc_parent->{
+ 'child'
+ };
- {
- $v = $nc_parent->{
- 'b'
- }->{${$nc_parent->{
- 'id'
- }}}
-          ->{'child'};
- ;}
- ;
        RP: for my $i (0..$#$v) {
-         my $nodeid = $v->[$i];
+         if ($v->[$i] eq $new_child[0]) {
-         if (
- (${$new_child[0]->{'id'}} eq ${$nodeid})
- ) {
            splice @$v, $i, 1, ();
            last RP;
          }
-Line 2214 
 $v = $nc_parent->{
+Line 1795 
 $v = $nc_parent->{
    ## -- Rewrite the |parentNode| properties
    for my $nc (@new_child) {
+     $$nc->{
+ 'parent'
- {
+ } = $self;
+     Scalar::Util::weaken ($$nc->{
+ 'parent'
- $nc->{
+ });
- 'b'
- }->{${$nc->{
- 'id'
- }}}
-     ->{'parent'} = $self->{
- 'id'
- };
- ;}
- ;
    }
-   my $children;
+   my $children = $$self->{
+ 'child'
+ };
- {
- $children = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'child'};
- ;}
- ;
-Line 2266 
 $children = $self->{
+Line 1821 
 $children = $self->{
  ## -- Replaces the node
-     splice @$children, $index, 1, map {
+     splice @$children, $index, 1, @new_child;
+     CORE::delete $$oldChild->{
- $_->{'id'}
+ 'parent'
+ };
-     } @new_child;
- {
- CORE::delete
- $oldChild->{
- 'b'
- }->{${$oldChild->{
- 'id'
- }}}
-                  ->{'parent'};
- ;}
- ;
      $r = $oldChild;
- ;}
+ }
  ;
- ;}
+ }
  ;}
-Line 2305 
 $oldChild->{
+Line 1843 
 $oldChild->{
  ;
- ;}
+ }
  ;
  if ($child_nt ==
-Line 2314 
 if ($child_nt ==
+Line 1852 
 if ($child_nt ==
  not defined $newChild->
  owner_document
  ) {
-   my $bag =
+   CORE::delete $$newChild->{
- $self->{'b'}
+ 'impl'
- ;
- {
- CORE::delete
- $bag->{${$bag->{${$newChild->{
- 'id'
- }}}
-                           ->{'impl'} or \''}}
-                  ->{'lpmi'};
- push @{$bag->{
- 'm'
- }},
-      $bag->{${$newChild->{
- 'id'
- }}}->{'impl'};
- CORE::delete $bag->{${$newChild->{
- 'id'
- }}}
-                  ->{'impl'};
- ;}
- ;
- {
- $bag->{${$newChild->{
- 'id'
- }}}->{'od'}
-   = $self->{
- 'id'
  };
- $bag->{${$self->{
+   $$newChild->{
- 'id'
+ 'od'
- }}}
+ } = $self;
-     ->{'do'}->{${$newChild->{
+   Scalar::Util::weaken ($$newChild->{
- 'id'
+ 'od'
- }}}
+ });
-   = $newChild->{
- 'id'
- };
- ;}
- ;
  }
- ;}
+ }
  $r}
  sub manakai_append_text ($$) {
  my ($self, $string) = @_;
-Line 2423 
 append_child
+Line 1917 
 append_child
- ;}
+ }
  ;}
-Line 2431 
 append_child
+Line 1925 
 append_child
  ;
- ;}
+ }
  $r}
  sub remove_child ($$) {
  my ($self, $oldChild) = @_;
-Line 2458 
 report Message::DOM::DOMCore::ManakaiDOM
+Line 1952 
 report Message::DOM::DOMCore::ManakaiDOM
  F:
  {
    my $i = -1;
-   for my $cld (@{$self->
+   my $v = $$self->{
- child_nodes
+ 'child'
- }) {
+ };
+   for my $cld (@$v) {
      $i++;
      if ($cld eq $oldChild) {
-       my $v;
- {
- $v = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'child'};
- ;}
- ;
        splice @$v, $i, 1, ();
+       CORE::delete $$oldChild->{
+ 'parent'
- {
+ };
- CORE::delete
- $oldChild->{
- 'b'
- }->{${$oldChild->{
- 'id'
- }}}
-                  ->{'parent'};
- ;}
- ;
        $r = $oldChild;
        last F;
      }
-Line 2508 
 report Message::DOM::DOMCore::ManakaiDOM
+Line 1973 
 report Message::DOM::DOMCore::ManakaiDOM
  } # F
- ;}
+ }
  ;
- ;}
+ }
  $r}
  sub node_name ($;$) {
  if (@_ == 1) {my ($self) = @_;
-Line 2587 
 child_nodes
+Line 2052 
 child_nodes
- ;}
+ }
  ;}
-Line 2595 
 child_nodes
+Line 2060 
 child_nodes
  ;
- ;}
+ }
  $r;
  } else {my ($self, $given) = @_;
-Line 2634 
 report Message::DOM::DOMCore::ManakaiDOM
+Line 2099 
 report Message::DOM::DOMCore::ManakaiDOM
  }
- ;}
+ }
  ;
- my @__old_children = @{$self->
+ for my $__old_child (@{${$self}->{
- child_nodes
+ 'child'
+ }}) {
+   CORE::delete $$__old_child->{
+ 'parent'
  };
- for my $__old_child (@__old_children) {
- {
- CORE::delete
- $__old_child->{
- 'b'
- }->{${$__old_child->{
- 'id'
- }}}
-                  ->{'parent'};
- ;}
- ;
  }
  my @__new_children;
-Line 2665 
 if (defined $given and length $given) {
+Line 2116 
 if (defined $given and length $given) {
    my $__text = $self->
  create_text_node
   ($given);
-   push @__new_children,
+   push @__new_children, $__text;
- $__text->{'id'}
+   $$__text->{
- ;
+ 'parent'
+ } = $self;
+   Scalar::Util::weaken ($$__text->{
- {
+ 'parent'
+ });
- $__text->{
- 'b'
- }->{${$__text->{
- 'id'
- }}}
-     ->{'parent'} = $self->{
- 'id'
- };
- ;}
- ;
  }
+ ${$self}->{
+ 'child'
+ } = \@__new_children;
- {
+ }
- $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-     ->{'child'} = \@__new_children;
- ;}
- ;
- ;}
  ;
  }
- ;}
+ }
  }
  }
  sub get_feature ($$$) {
-Line 2724 
 my ($self, $feature, $version) = @_;
+Line 2148 
 my ($self, $feature, $version) = @_;
  $feature = lc $feature;
- ;}
+ }
  {
-Line 2732 
 $feature = lc $feature;
+Line 2156 
 $feature = lc $feature;
  $version = '' unless defined $version;
- ;}
+ }
  my $r;
  {
-Line 2740 
 my $r;
+Line 2164 
 my $r;
  $feature =~ s/^\+//;
- ## TODO: Remove this code and implement autoload
- if ($feature eq
- 'http://suika.fam.cx/www/2006/feature/xdoctype'
- ) {
-   require Message::DOM::XDoctype;
- }
  {
  if
- ($Message::DOM::DOMFeature::ClassInfo->{ref $self}
+ ($Message::Util::AutoLoad::Registry::Feature->{$feature}->{$version}) {
-       ->{has_feature}->{$feature}->{$version}) {
    $r = $self;
- } else {
-   CLASS: for my $__class (sort {
-     $Message::DOM::ClassPoint{$b} <=> $Message::DOM::ClassPoint{$a}
-   } grep {
-     $Message::DOM::DOMFeature::ClassInfo->{'Message::DOM::Document::ManakaiDOMDocument'}
-         ->{compat_class}->{$_}
-   } keys %{$Message::DOM::DOMFeature::ClassInfo->{'Message::DOM::Document::ManakaiDOMDocument'}
-                ->{compat_class} or {}}) {
-     if ($Message::DOM::DOMFeature::ClassInfo->{$__class}
-             ->{has_feature}->{$feature}->{$version}) {
- {
- $r = ${($self->{'b'})->{${($self->{'id'})}}->{
- 'cls'
- }}->___create_node_ref ({
- 'id'
-  => ($self->{'id'}),
- 'b'
-  => ($self->{'b'}),
- }, {
-           'nrcls' => \$__class,
-         });
- ($self->{'b'})->{${($self->{'id'})}}->{
- 'rc'
- }++;
- ;}
- ;
-       last CLASS;
-     }
-   } # CLASS
  }
- ;}
+ }
  ;
  unless (defined $r) {
-Line 2814 
 local $Error::Depth = $Error::Depth + 1;
+Line 2191 
 local $Error::Depth = $Error::Depth + 1;
- ;}
+ }
  ;}
-Line 2823 
 local $Error::Depth = $Error::Depth + 1;
+Line 2200 
 local $Error::Depth = $Error::Depth + 1;
  }
- ;}
+ }
  $r}
  sub base_uri ($;$) {
  if (@_ == 1) {my ($self) = @_;
-Line 2832 
 my $r = '';
+Line 2209 
 my $r = '';
  {
- {
+ $r = $$self->{
+ 'buri'
+ };
- $r = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'buri'};
- ;}
- ;
  unless (defined $r) {
+   $r = $$self->{
+ 'duri'
- {
+ };
- $r = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'duri'};
- ;}
- ;
  }
- ;}
+ }
  $r;
  } else {my ($self) = @_;
  report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'base_uri';
  }
  }
- sub create_element ($$) {
- my ($self, $tagName) = @_;
- my $r;
- {
- my
- $strict = $self->
- strict_error_checking
- ;
- if ($strict) {
-   my $version = $self->
- xml_version
- ;
- {
- if
- (defined $tagName) {
- {
- if
- (((not defined $version or $version eq '1.0') and
-          not
- ($tagName =~ /\A\p{InXML_NameStartChar10}\p{InXMLNameChar10}*\z/)
- ) or
-         (defined $version and $version eq '1.1' and
-          not
- ($tagName =~ /\A\p{InXMLNameStartChar11}\p{InXMLNameChar11}*\z/)
- )) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'INVALID_CHARACTER_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_BAD_NAME', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#name' => $tagName, 'http://www.w3.org/2001/04/infoset#version' => $version, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23ensureXMLName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => '$INPUT_PARAM_NAME';
- ;
-     }
- ;}
- ;
- ;
- }
- ;}
- ;
- }
- {
- local $Error::Depth = $Error::Depth + 1;
- {
-   $self->
- strict_error_checking
-  (
- );
-   $r = $self->
- create_element_ns
-  (
- undef
- , [
- undef
- , $tagName]);
-   $self->
- strict_error_checking
-  ($strict);
- ;}
- ;}
- ;
- ;}
- $r}
- sub create_element_ns ($$$) {
- my ($self, $namespaceURI, $qualifiedName) = @_;
- {
- if
- (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {
- 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:1143811080:18264:zbjED29418+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;
- {
- $namespaceURI = undef;
- ;}
- ;
- }
- ;}
- my $r;
- {
- require
- Message::DOM::Element;
- my ($prefix, $lname) = ref $qualifiedName eq 'ARRAY'
-                          ? @$qualifiedName
-                          : split /:/, $qualifiedName, 2;
- ($prefix, $lname) = (
- undef
- , $prefix) unless defined $lname;
- $qualifiedName = defined $prefix ? $prefix.':'.$lname : $lname;
- if ($self->
- strict_error_checking
- ) {
-   my $version = $self->
- xml_version
- ;
- {
- if
- (defined $version and $version eq '1.1') {
-     unless (
- ($qualifiedName =~ /\A\p{InXMLNameStartChar11}\p{InXMLNameChar11}*\z/)
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'INVALID_CHARACTER_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_BAD_NAME', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#name' => $qualifiedName, 'http://www.w3.org/2001/04/infoset#version' => '1.1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23ensureXMLQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => '$INPUT_NAME';
- ;
-     }
-     unless (
- ($qualifiedName =~ /\A\p{InXMLNCNameStartChar11}\p{InXMLNCNameChar11}*(?::\p{InXMLNCNameStartChar11}\p{InXMLNCNameChar11}*)?\z/)
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_MALFORMED_QNAME', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#name' => $qualifiedName, 'http://www.w3.org/2001/04/infoset#version' => '1.1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23ensureXMLQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => '$INPUT_NAME';
- ;
-     }
-   } else {
-     unless (
- ($qualifiedName =~ /\A\p{InXML_NameStartChar10}\p{InXMLNameChar10}*\z/)
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'INVALID_CHARACTER_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_BAD_NAME', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#name' => $qualifiedName, 'http://www.w3.org/2001/04/infoset#version' => $version, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23ensureXMLQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => '$INPUT_NAME';
- ;
-     }
-     unless (
- ($qualifiedName =~ /\A\p{InXML_NCNameStartChar10}\p{InXMLNCNameChar10}*(?::\p{InXML_NCNameStartChar10}\p{InXMLNCNameChar10}*)?\z/)
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_MALFORMED_QNAME', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#name' => $qualifiedName, 'http://www.w3.org/2001/04/infoset#version' => $version, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23ensureXMLQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => '$INPUT_NAME';
- ;
-     }
-   }
- ;}
- ;
- {
- if
- (defined $prefix) {
-   if (not defined $namespaceURI) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://www.w3.org/2001/04/infoset#prefix' => $prefix, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_PREFIX_WITH_NULL_URI', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23checkXMLNamesQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;
-   } elsif ($prefix eq 'xml' and $namespaceURI ne
- 'http://www.w3.org/XML/1998/namespace'
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://www.w3.org/2001/04/infoset#namespaceName' => $namespaceURI, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_XML_WITH_OTHER_URI', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23checkXMLNamesQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;
-   } elsif ($prefix eq 'xmlns' and $namespaceURI ne
- 'http://www.w3.org/2000/xmlns/'
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://www.w3.org/2001/04/infoset#namespaceName' => $namespaceURI, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_XMLNS_WITH_OTHER_URI', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23checkXMLNamesQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;
-   } elsif ($namespaceURI eq
- 'http://www.w3.org/XML/1998/namespace' and
- $prefix ne 'xml') {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://www.w3.org/2001/04/infoset#prefix' => $prefix, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_OTHER_WITH_XML_URI', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23checkXMLNamesQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;
-   } elsif ($namespaceURI eq
- 'http://www.w3.org/2000/xmlns/' and
- $prefix ne 'xmlns') {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://www.w3.org/2001/04/infoset#prefix' => $prefix, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_OTHER_WITH_XMLNS_URI', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23checkXMLNamesQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;
-   }
- } else { ## No prefix
-   if (not defined $namespaceURI) {
-     #
-   } elsif ($namespaceURI eq
- 'http://www.w3.org/2000/xmlns/' and
- $lname ne 'xmlns') {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://www.w3.org/2001/04/infoset#prefix' => undef, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_OTHER_WITH_XMLNS_URI', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23checkXMLNamesQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;
-   }
- }
- ;}
- ;
-   if (defined $namespaceURI and $namespaceURI eq
- 'http://www.w3.org/2000/xmlns/' and
- ($qualifiedName eq 'xmlns' or
-        (defined $prefix and $prefix eq 'xmlns'))) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'create_element_ns', 'http://www.w3.org/2001/04/infoset#prefix' => $prefix, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'qualifiedName', 'http://www.w3.org/2001/04/infoset#localName' => $lname, 'http://www.w3.org/2001/04/infoset#namespaceName' => $namespaceURI, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_OTHER_WITH_XMLNS_URI';
- ;
-   }
- }
- my $bag =
- $self->{'b'}
- ;
- my $stem;
- {
- $stem = 'Message::DOM::Element::ManakaiDOMElement'->___create_node_stem ($bag, {
- 'rc'
-  => 0,
- 'id'
-  => \
- (
-   'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .
-   ($Message::Util::ManakaiNode::UniqueIDR ||=
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62]) .
-   (++$Message::Util::ManakaiNode::UniqueIDN)
- )
- ,
- }, {
-     'od' => $self,
-     'ns' => \$namespaceURI,
-     'pfx' => \$prefix,
-     'ln' => \$lname,
-   });
- {
- if
- (defined 'Message::DOM::Element::ManakaiDOMElement') {
-   if (ref 'Message::DOM::Element::ManakaiDOMElement' eq 'SCALAR') {
-     $stem->{'cls'} = 'Message::DOM::Element::ManakaiDOMElement';
-   } elsif (defined $Message::Util::ManakaiStringRef::Value{'Message::DOM::Element::ManakaiDOMElement'}) {
-     $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::Element::ManakaiDOMElement'};
-   } else {
-     require Scalar::Util;
-     $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::Element::ManakaiDOMElement'} = \('Message::DOM::Element::ManakaiDOMElement');
-     Scalar::Util::weaken ($Message::Util::ManakaiStringRef::Value{'Message::DOM::Element::ManakaiDOMElement'});
-   }
- } else {
-   CORE::delete $stem->{'cls'};
- }
- ;}
- ;
- $bag->{${$stem->{
- 'id'
- }}} = $stem;
- ;}
- ;
- {
- $r = ${$stem->{
- 'cls'
- }}->___create_node_ref ({
- 'id'
-  => $stem->{
- 'id'
- },
- 'b'
-  => $bag,
- }, {
-     'nrifs' => ['Message::DOM::IFLatest::Element'],
-   });
- $stem->{
- 'rc'
- }++;
- ;}
- ;
- ## Default attributes
- {
- {
- local $Error::Depth = $Error::Depth + 1;
- {
-   my
- $__doctype = $self->
- doctype
- ;
-   my $__cfg = $self->
- dom_config
- ;
-   undef $__doctype unless $__cfg->
- get_parameter
-                                     (
- 'http://suika.fam.cx/www/2006/dom-config/dtd-default-attributes'
- );
-   $__doctype = $__doctype->
- get_feature
-                              (
- 'http://suika.fam.cx/www/2006/feature/XDoctype'
-  => '3.0')
-     if $__doctype;
-   if ($__doctype) {
-     my $__et = $__doctype->
- get_element_type_definition_node
-                              ($qualifiedName);
-     if ($__et) {
-       my $__orig_strict = $self->
- strict_error_checking
- ;
-       $self->
- strict_error_checking
-  (
- );
-       my %__gattr;
-       my %__has_attr;
-       my %__pfx_to_uri;
-       my $__copy_asis = $__cfg->
- get_parameter
-                                (
- 'http://suika.fam.cx/www/2006/dom-config/clone-entity-reference-subtree'
- );
-       $__cfg->
- set_parameter
-                     (
- 'http://suika.fam.cx/www/2006/dom-config/clone-entity-reference-subtree'
-  =>
- );
-       for my $__at (@{$__et->
- attribute_definitions
- }) {
-         my $__at_default = $__at->
- default_type
- ;
-         if ($__at_default ==
-or
- $__at_default ==
- ) {
-           my ($__nn1, $__nn2) = split /:/, $__at->
- node_name
- ;
-           if (defined $__nn2) { # prefixed
-             if ($__nn1 eq 'xmlns') {
-               ## TODO: NCName check, prefix check and NSURI check
-               my $__attr = $self->
- create_attribute_ns
-                                         (
- 'http://www.w3.org/2000/xmlns/'
- , [$__nn1, $__nn2]);
-               for my $__at_child (@{$__at->
- child_nodes
- }) {
-                 $__attr->
- append_child
-                            ($__at_child->
- clone_node
-  (
- ));
-               }
-               $__attr->
- manakai_attribute_type
-                          ($__at->
- declared_type
- );
-               my $__nsuri = $__attr->
- value
- ;
-               ## TODO: Namespace well-formedness check (NSURI), v1.1 chk
-               $__pfx_to_uri{$__nn2} = $__nsuri;
-               $r->
- set_attribute_node_ns
-  ($__attr);
-                        ## This method changes |specified| flag
-               $__attr->
- specified
-  (
- );
-               $__has_attr{
- 'http://www.w3.org/2000/xmlns/'
- }->{$__nn2} =
- ;
-             } else {
-               ## TODO: NCName check
-               $__gattr{$__nn1}->{$__nn2} = $__at;
-             }
-           } else {            # no prefixed
-             my $__attr;
-             if ($__nn1 eq 'xmlns') {
-               $__attr = $self->
- create_attribute_ns
-                                         (
- 'http://www.w3.org/2000/xmlns/'
- , 'xmlns');
-               $__has_attr{
- 'http://www.w3.org/2000/xmlns/'
- }->{xmlns} =
- ;
-             } else {
-               $__attr = $self->
- create_attribute_ns
-                                         (
- undef
- , $__nn1);
-               ## TODO: NCName check
-             }
-             for my $__at_child (@{$__at->
- child_nodes
- }) {
-               $__attr->
- append_child
-                          ($__at_child->
- clone_node
-  (
- ));
-             }
-             $__attr->
- manakai_attribute_type
-                        ($__at->
- declared_type
- );
-             ## TODO: Namespace well-formedness check (NSURI)
-             $r->
- set_attribute_node_ns
-  ($__attr);
-                        ## This method changes |specified| flag
-             $__attr->
- specified
-  (
- );
-           }
-         }
-       } # attrdefs
-       for my $__pfx (keys %__gattr) {
-         my $__nsuri = $__pfx_to_uri{$__pfx};
-         unless (defined $__nsuri) {
-           ## TODO: Namespace well-formedness error
-         }
-         LN: for my $__ln (keys %{$__gattr{$__pfx}}) {
-           if ($__has_attr{defined $__nsuri ? $__nsuri : ''}->{$__ln}) {
-             ## TODO: Namespace well-formedness error
-             next LN;
-           }
-           ## TODO: NCName check, prefix check and NSURI check
-           my $__at = $__gattr{$__pfx}->{$__ln};
-           my $__attr = $self->
- create_attribute_ns
-                                     ($__nsuri, [$__pfx, $__ln]);
-           for my $__at_child (@{$__at->
- child_nodes
- }) {
-             $__attr->
- append_child
-                        ($__at_child->
- clone_node
-  (
- ));
-           }
-           $__attr->
- manakai_attribute_type
-                      ($__at->
- declared_type
- );
-           $r->
- set_attribute_node_ns
-  ($__attr);
-                        ## This method changes |specified| flag
-           $__attr->
- specified
-  (
- );
-           $__has_attr{defined $__nsuri ? $__nsuri : ''}->{$__ln} =
- ;
-         } # LN
-       } # pfx
-       $__cfg->
- set_parameter
-               (
- 'http://suika.fam.cx/www/2006/dom-config/clone-entity-reference-subtree'
-  => $__copy_asis);
-       $self->
- strict_error_checking
-  ($__orig_strict);
-     }
-   }
- ;}
- ;}
- ;
- ;}
- ;
- ;}
- $r}
- sub create_attribute ($$) {
- my ($self, $name) = @_;
- my $r;
- {
- my
- $strict = $self->
- strict_error_checking
- ;
- if ($strict) {
-   my $version = $self->
- xml_version
- ;
- {
- if
- (defined $name) {
- {
- if
- (((not defined $version or $version eq '1.0') and
-          not
- ($name =~ /\A\p{InXML_NameStartChar10}\p{InXMLNameChar10}*\z/)
- ) or
-         (defined $version and $version eq '1.1' and
-          not
- ($name =~ /\A\p{InXMLNameStartChar11}\p{InXMLNameChar11}*\z/)
- )) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'INVALID_CHARACTER_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_BAD_NAME', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#name' => $name, 'http://www.w3.org/2001/04/infoset#version' => $version, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23ensureXMLName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => '$INPUT_PARAM_NAME';
- ;
-     }
- ;}
- ;
- ;
- }
- ;}
- ;
- }
- {
- local $Error::Depth = $Error::Depth + 1;
- {
-   $self->
- strict_error_checking
-  (
- );
-   $r = $self->
- create_attribute_ns
-  (
- undef
- , [
- undef
- , $name]);
-   $self->
- strict_error_checking
-  ($strict);
- ;}
- ;}
- ;
- ;}
- $r}
- sub create_attribute_ns ($$$) {
- my ($self, $namespaceURI, $qualifiedName) = @_;
- {
- if
- (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {
- 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:1143811080:18264:zbjED29418+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;
- {
- $namespaceURI = undef;
- ;}
- ;
- }
- ;}
- my $r;
- {
- require
- Message::DOM::Element;
- my ($prefix, $lname) = ref $qualifiedName eq 'ARRAY'
-                          ? @$qualifiedName
-                          : split /:/, $qualifiedName, 2;
- ($prefix, $lname) = (
- undef
- , $prefix) unless defined $lname;
- ## TODO: autoload
- if ((defined $namespaceURI and $namespaceURI eq
- 'http://www.w3.org/XML/1998/namespace'
- ) or
-     ($lname =~ /^xml:/)) {
-   require Message::DOM::XML;
- }
- if ($self->
- strict_error_checking
- ) {
-   my $version = $self->
- xml_version
- ;
-   $qualifiedName = defined $prefix ? $prefix.':'.$lname
-                                    : $lname;
- {
- if
- (defined $version and $version eq '1.1') {
-     unless (
- ($qualifiedName =~ /\A\p{InXMLNameStartChar11}\p{InXMLNameChar11}*\z/)
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'INVALID_CHARACTER_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_BAD_NAME', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#name' => $qualifiedName, 'http://www.w3.org/2001/04/infoset#version' => '1.1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23ensureXMLQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => '$INPUT_NAME';
- ;
-     }
-     unless (
- ($qualifiedName =~ /\A\p{InXMLNCNameStartChar11}\p{InXMLNCNameChar11}*(?::\p{InXMLNCNameStartChar11}\p{InXMLNCNameChar11}*)?\z/)
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_MALFORMED_QNAME', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#name' => $qualifiedName, 'http://www.w3.org/2001/04/infoset#version' => '1.1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23ensureXMLQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => '$INPUT_NAME';
- ;
-     }
-   } else {
-     unless (
- ($qualifiedName =~ /\A\p{InXML_NameStartChar10}\p{InXMLNameChar10}*\z/)
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'INVALID_CHARACTER_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_BAD_NAME', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#name' => $qualifiedName, 'http://www.w3.org/2001/04/infoset#version' => $version, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23ensureXMLQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => '$INPUT_NAME';
- ;
-     }
-     unless (
- ($qualifiedName =~ /\A\p{InXML_NCNameStartChar10}\p{InXMLNCNameChar10}*(?::\p{InXML_NCNameStartChar10}\p{InXMLNCNameChar10}*)?\z/)
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_MALFORMED_QNAME', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#name' => $qualifiedName, 'http://www.w3.org/2001/04/infoset#version' => $version, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23ensureXMLQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => '$INPUT_NAME';
- ;
-     }
-   }
- ;}
- ;
- {
- if
- (defined $prefix) {
-   if (not defined $namespaceURI) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://www.w3.org/2001/04/infoset#prefix' => $prefix, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_PREFIX_WITH_NULL_URI', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23checkXMLNamesQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;
-   } elsif ($prefix eq 'xml' and $namespaceURI ne
- 'http://www.w3.org/XML/1998/namespace'
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://www.w3.org/2001/04/infoset#namespaceName' => $namespaceURI, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_XML_WITH_OTHER_URI', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23checkXMLNamesQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;
-   } elsif ($prefix eq 'xmlns' and $namespaceURI ne
- 'http://www.w3.org/2000/xmlns/'
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://www.w3.org/2001/04/infoset#namespaceName' => $namespaceURI, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_XMLNS_WITH_OTHER_URI', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23checkXMLNamesQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;
-   } elsif ($namespaceURI eq
- 'http://www.w3.org/XML/1998/namespace' and
- $prefix ne 'xml') {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://www.w3.org/2001/04/infoset#prefix' => $prefix, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_OTHER_WITH_XML_URI', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23checkXMLNamesQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;
-   } elsif ($namespaceURI eq
- 'http://www.w3.org/2000/xmlns/' and
- $prefix ne 'xmlns') {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://www.w3.org/2001/04/infoset#prefix' => $prefix, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_OTHER_WITH_XMLNS_URI', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23checkXMLNamesQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;
-   }
- } else { ## No prefix
-   if (not defined $namespaceURI) {
-     #
-   } elsif ($namespaceURI eq
- 'http://www.w3.org/2000/xmlns/' and
- $lname ne 'xmlns') {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://www.w3.org/2001/04/infoset#prefix' => undef, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_OTHER_WITH_XMLNS_URI', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23checkXMLNamesQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;
-   }
- }
- ;}
- ;
- }
- my $bag =
- $self->{'b'}
- ;
- my $stem;
- {
- $stem = 'Message::DOM::Element::ManakaiDOMAttr'->___create_node_stem ($bag, {
- 'rc'
-  => 0,
- 'id'
-  => \
- (
-   'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .
-   ($Message::Util::ManakaiNode::UniqueIDR ||=
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62]) .
-   (++$Message::Util::ManakaiNode::UniqueIDN)
- )
- ,
- }, {
-     'od' => $self,
-     'ns' => \$namespaceURI,
-     'pfx' => \$prefix,
-     'ln' => \$lname,
-     'specified' => 1,
-   });
- {
- if
- (defined 'Message::DOM::Element::ManakaiDOMAttr') {
-   if (ref 'Message::DOM::Element::ManakaiDOMAttr' eq 'SCALAR') {
-     $stem->{'cls'} = 'Message::DOM::Element::ManakaiDOMAttr';
-   } elsif (defined $Message::Util::ManakaiStringRef::Value{'Message::DOM::Element::ManakaiDOMAttr'}) {
-     $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::Element::ManakaiDOMAttr'};
-   } else {
-     require Scalar::Util;
-     $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::Element::ManakaiDOMAttr'} = \('Message::DOM::Element::ManakaiDOMAttr');
-     Scalar::Util::weaken ($Message::Util::ManakaiStringRef::Value{'Message::DOM::Element::ManakaiDOMAttr'});
-   }
- } else {
-   CORE::delete $stem->{'cls'};
- }
- ;}
- ;
- $bag->{${$stem->{
- 'id'
- }}} = $stem;
- ;}
- ;
- {
- $r = ${$stem->{
- 'cls'
- }}->___create_node_ref ({
- 'id'
-  => $stem->{
- 'id'
- },
- 'b'
-  => $bag,
- }, {
-     'nrifs' => ['Message::DOM::IFLatest::Attr'],
-   });
- $stem->{
- 'rc'
- }++;
- ;}
- ;
- ## Attribute type information
- if ((defined $namespaceURI and $namespaceURI eq
- 'http://www.w3.org/XML/1998/namespace' and
- $lname eq 'id') or
-     (not defined $namespaceURI and $lname eq 'xml:id')) {
- {
- local $Error::Depth = $Error::Depth + 1;
- {
-     if
- ($self->
- dom_config
-              ->
- get_parameter
-                  (
- 'http://suika.fam.cx/www/2006/dom-config/xml-id'
- )) {
-       $r->
- manakai_attribute_type
-  (
- );
-     }
- ;}
- ;}
- ;
- }
- ;}
- $r}
- sub create_text_node ($$) {
- my ($self, $data) = @_;
- my $r;
- {
- my
- $bag =
- $self->{'b'}
- ;
- my $stem;
- {
- $stem = 'Message::DOM::TreeCore::ManakaiDOMText'->___create_node_stem ($bag, {
- 'rc'
-  => 0,
- 'id'
-  => \
- (
-   'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .
-   ($Message::Util::ManakaiNode::UniqueIDR ||=
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62]) .
-   (++$Message::Util::ManakaiNode::UniqueIDN)
- )
- ,
- }, {
-     'od' => $self,
-     'con' => \$data,
-   });
- {
- if
- (defined 'Message::DOM::TreeCore::ManakaiDOMText') {
-   if (ref 'Message::DOM::TreeCore::ManakaiDOMText' eq 'SCALAR') {
-     $stem->{'cls'} = 'Message::DOM::TreeCore::ManakaiDOMText';
-   } elsif (defined $Message::Util::ManakaiStringRef::Value{'Message::DOM::TreeCore::ManakaiDOMText'}) {
-     $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::TreeCore::ManakaiDOMText'};
-   } else {
-     require Scalar::Util;
-     $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::TreeCore::ManakaiDOMText'} = \('Message::DOM::TreeCore::ManakaiDOMText');
-     Scalar::Util::weaken ($Message::Util::ManakaiStringRef::Value{'Message::DOM::TreeCore::ManakaiDOMText'});
-   }
- } else {
-   CORE::delete $stem->{'cls'};
- }
- ;}
- ;
- $bag->{${$stem->{
- 'id'
- }}} = $stem;
- ;}
- ;
- {
- $r = ${$stem->{
- 'cls'
- }}->___create_node_ref ({
- 'id'
-  => $stem->{
- 'id'
- },
- 'b'
-  => $bag,
- }, {
-     'nrifs' => ['Message::DOM::IFLatest::Text'],
-   });
- $stem->{
- 'rc'
- }++;
- ;}
- ;
- ;}
- $r}
- sub create_cdata_section ($$) {
- my ($self, $data) = @_;
- my $r;
- {
- require
- Message::DOM::XML;
- my $bag =
- $self->{'b'}
- ;
- my $stem;
- {
- $stem = 'Message::DOM::XML::ManakaiDOMCDATASection'->___create_node_stem ($bag, {
- 'rc'
-  => 0,
- 'id'
-  => \
- (
-   'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .
-   ($Message::Util::ManakaiNode::UniqueIDR ||=
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62]) .
-   (++$Message::Util::ManakaiNode::UniqueIDN)
- )
- ,
- }, {
-     'od' => $self,
-     'con' => \$data,
-   });
- {
- if
- (defined 'Message::DOM::XML::ManakaiDOMCDATASection') {
-   if (ref 'Message::DOM::XML::ManakaiDOMCDATASection' eq 'SCALAR') {
-     $stem->{'cls'} = 'Message::DOM::XML::ManakaiDOMCDATASection';
-   } elsif (defined $Message::Util::ManakaiStringRef::Value{'Message::DOM::XML::ManakaiDOMCDATASection'}) {
-     $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::XML::ManakaiDOMCDATASection'};
-   } else {
-     require Scalar::Util;
-     $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::XML::ManakaiDOMCDATASection'} = \('Message::DOM::XML::ManakaiDOMCDATASection');
-     Scalar::Util::weaken ($Message::Util::ManakaiStringRef::Value{'Message::DOM::XML::ManakaiDOMCDATASection'});
-   }
- } else {
-   CORE::delete $stem->{'cls'};
- }
- ;}
- ;
- $bag->{${$stem->{
- 'id'
- }}} = $stem;
- ;}
- ;
- {
- $r = ${$stem->{
- 'cls'
- }}->___create_node_ref ({
- 'id'
-  => $stem->{
- 'id'
- },
- 'b'
-  => $bag,
- }, {
-     'nrifs' => ['Message::DOM::IFLatest::CDATASection'],
-   });
- $stem->{
- 'rc'
- }++;
- ;}
- ;
- ;}
- $r}
- sub create_comment ($$) {
- my ($self, $data) = @_;
- my $r;
- {
- my
- $bag =
- $self->{'b'}
- ;
- my $stem;
- {
- $stem = 'Message::DOM::TreeCore::ManakaiDOMComment'->___create_node_stem ($bag, {
- 'rc'
-  => 0,
- 'id'
-  => \
- (
-   'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .
-   ($Message::Util::ManakaiNode::UniqueIDR ||=
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62]) .
-   (++$Message::Util::ManakaiNode::UniqueIDN)
- )
- ,
- }, {
-     'od' => $self,
-     'con' => \$data,
-   });
- {
- if
- (defined 'Message::DOM::TreeCore::ManakaiDOMComment') {
-   if (ref 'Message::DOM::TreeCore::ManakaiDOMComment' eq 'SCALAR') {
-     $stem->{'cls'} = 'Message::DOM::TreeCore::ManakaiDOMComment';
-   } elsif (defined $Message::Util::ManakaiStringRef::Value{'Message::DOM::TreeCore::ManakaiDOMComment'}) {
-     $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::TreeCore::ManakaiDOMComment'};
-   } else {
-     require Scalar::Util;
-     $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::TreeCore::ManakaiDOMComment'} = \('Message::DOM::TreeCore::ManakaiDOMComment');
-     Scalar::Util::weaken ($Message::Util::ManakaiStringRef::Value{'Message::DOM::TreeCore::ManakaiDOMComment'});
-   }
- } else {
-   CORE::delete $stem->{'cls'};
- }
- ;}
- ;
- $bag->{${$stem->{
- 'id'
- }}} = $stem;
- ;}
- ;
- {
- $r = ${$stem->{
- 'cls'
- }}->___create_node_ref ({
- 'id'
-  => $stem->{
- 'id'
- },
- 'b'
-  => $bag,
- }, {
-     'nrifs' => ['Message::DOM::IFLatest::Comment'],
-   });
- $stem->{
- 'rc'
- }++;
- ;}
- ;
- ;}
- $r}
  sub create_document_fragment ($) {
  my ($self) = @_;
  my $r;
  {
- my
- $bag =
- $self->{'b'}
- ;
- my $stem;
- {
- $stem = 'Message::DOM::Document::ManakaiDOMDocumentFragment'->___create_node_stem ($bag, {
- 'rc'
-  => 0,
- 'id'
-  => \
- (
-   'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .
-   ($Message::Util::ManakaiNode::UniqueIDR ||=
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62]) .
-   (++$Message::Util::ManakaiNode::UniqueIDN)
- )
- ,
- }, {
-     'od' => $self,
-   });
- {
- if
- (defined 'Message::DOM::Document::ManakaiDOMDocumentFragment') {
-   if (ref 'Message::DOM::Document::ManakaiDOMDocumentFragment' eq 'SCALAR') {
-     $stem->{'cls'} = 'Message::DOM::Document::ManakaiDOMDocumentFragment';
-   } elsif (defined $Message::Util::ManakaiStringRef::Value{'Message::DOM::Document::ManakaiDOMDocumentFragment'}) {
-     $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::Document::ManakaiDOMDocumentFragment'};
-   } else {
-     require Scalar::Util;
-     $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::Document::ManakaiDOMDocumentFragment'} = \('Message::DOM::Document::ManakaiDOMDocumentFragment');
-     Scalar::Util::weaken ($Message::Util::ManakaiStringRef::Value{'Message::DOM::Document::ManakaiDOMDocumentFragment'});
-   }
- } else {
-   CORE::delete $stem->{'cls'};
- }
- ;}
- ;
- $bag->{${$stem->{
- 'id'
- }}} = $stem;
- ;}
- ;
- {
- $r = ${$stem->{
- 'cls'
- }}->___create_node_ref ({
- 'id'
-  => $stem->{
- 'id'
- },
- 'b'
-  => $bag,
- }, {
-     'nrifs' => ['Message::DOM::IFLatest::DocumentFragment'],
-   });
- $stem->{
- 'rc'
- }++;
- ;}
- ;
- ;}
- $r}
- sub create_entity_reference ($$) {
- my ($self, $name) = @_;
- my $r;
- {
- require
- Message::DOM::XML;
- our $CreateEntityReference_OpenEntity;
-   ## NOTE: Multithread unsafe
- my $orig_strict = $self->
- strict_error_checking
- ;
- if ($orig_strict) {
-   my $version = $self->
- xml_version
- ;
- {
- if
- (defined $name) {
- {
- if
- (((not defined $version or $version eq '1.0') and
-          not
- ($name =~ /\A\p{InXML_NameStartChar10}\p{InXMLNameChar10}*\z/)
- ) or
-         (defined $version and $version eq '1.1' and
-          not
- ($name =~ /\A\p{InXMLNameStartChar11}\p{InXMLNameChar11}*\z/)
- )) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'INVALID_CHARACTER_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_BAD_NAME', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#name' => $name, 'http://www.w3.org/2001/04/infoset#version' => $version, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23ensureXMLName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => '$INPUT_PARAM_NAME';
- ;
-     }
- ;}
- ;
- ;
- }
- ;}
- ;
- }
- my $bag =
- $self->{'b'}
- ;
- my $stem;
- {
- $stem = 'Message::DOM::XML::ManakaiDOMEntityReference'->___create_node_stem ($bag, {
- 'rc'
-  => 0,
- 'id'
-  => \
- (
-   'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .
-   ($Message::Util::ManakaiNode::UniqueIDR ||=
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62]) .
-   (++$Message::Util::ManakaiNode::UniqueIDN)
- )
- ,
- }, {
-     'xname' => \$name,
-     'od' => $self,
-   });
- {
- if
- (defined 'Message::DOM::XML::ManakaiDOMEntityReference') {
-   if (ref 'Message::DOM::XML::ManakaiDOMEntityReference' eq 'SCALAR') {
-     $stem->{'cls'} = 'Message::DOM::XML::ManakaiDOMEntityReference';
-   } elsif (defined $Message::Util::ManakaiStringRef::Value{'Message::DOM::XML::ManakaiDOMEntityReference'}) {
-     $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::XML::ManakaiDOMEntityReference'};
-   } else {
-     require Scalar::Util;
-     $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::XML::ManakaiDOMEntityReference'} = \('Message::DOM::XML::ManakaiDOMEntityReference');
-     Scalar::Util::weaken ($Message::Util::ManakaiStringRef::Value{'Message::DOM::XML::ManakaiDOMEntityReference'});
-   }
- } else {
-   CORE::delete $stem->{'cls'};
- }
- ;}
- ;
- $bag->{${$stem->{
- 'id'
- }}} = $stem;
- ;}
- ;
- {
- $r = ${$stem->{
- 'cls'
- }}->___create_node_ref ({
- 'id'
-  => $stem->{
- 'id'
- },
- 'b'
-  => $bag,
- }, {
-     'nrifs' => ['Message::DOM::IFLatest::EntityReference'],
-   });
- $stem->{
- 'rc'
- }++;
- ;}
- ;
- ## Expansion
- {
- local $Error::Depth = $Error::Depth + 1;
- {
-   unless
- ($CreateEntityReference_OpenEntity->{$name}) {
-     local $CreateEntityReference_OpenEntity->{$name} =
- ;
-     my $__doctype = $self->
- doctype
- ;
-     $__doctype = $__doctype->
- get_feature
-                              (
- 'http://suika.fam.cx/www/2006/feature/XDoctype'
-  => '3.0')
-       if $__doctype;
-     if ($__doctype) {
-       my $__et = $__doctype->
- get_general_entity_node
-  ($name);
-       if ($__et) {
-         $self->
- strict_error_checking
-  (
- );
-         my @node;
-         for my $c (@{$__et->
- child_nodes
- }) {
-           my $clone = $c->
- clone_node
-  (
- );
-           $r->
- append_child
-  ($clone);
-           push @node, $clone;
-         }
-         $r->
- manakai_expanded
-               ($__et->
- has_replacement_tree
- );
-         $self->
- strict_error_checking
-  ($orig_strict);
-       } # entity
-     } # doctype
-   }
-   $r->
- manakai_set_read_only
-  (
- ,
- );
- ;}
- ;}
- ;
- ;}
- $r}
- sub create_processing_instruction ($$$) {
- my ($self, $target, $data) = @_;
- my $r;
- {
- require
- Message::DOM::XML;
- if ($self->
- strict_error_checking
- ) {
-   my $version = $self->
- xml_version
- ;
- {
- if
- (defined $target) {
- {
- if
- (((not defined $version or $version eq '1.0') and
-          not
- ($target =~ /\A\p{InXML_NameStartChar10}\p{InXMLNameChar10}*\z/)
- ) or
-         (defined $version and $version eq '1.1' and
-          not
- ($target =~ /\A\p{InXMLNameStartChar11}\p{InXMLNameChar11}*\z/)
- )) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'INVALID_CHARACTER_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_BAD_NAME', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#name' => $target, 'http://www.w3.org/2001/04/infoset#version' => $version, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23ensureXMLName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => '$INPUT_PARAM_NAME';
- ;
-     }
- ;}
- ;
- ;
- }
- ;}
- ;
- }
- my $bag =
- $self->{'b'}
- ;
- $data = '' unless defined $data;
- my $stem;
- {
- $stem = 'Message::DOM::XML::ManakaiDOMProcessingInstruction'->___create_node_stem ($bag, {
+ $r = bless \{
- 'rc'
+ 'od'
-  => 0,
+  => $self,
- 'id'
+ 'child'
-  => \
+  => [],
- (
+ },
-   'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .
+ 'Message::DOM::Document::ManakaiDOMDocumentFragment'
-   ($Message::Util::ManakaiNode::UniqueIDR ||=
+ ;
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
+ Scalar::Util::weaken ($$r->{
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
+ 'od'
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
+ });
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62]) .
-   (++$Message::Util::ManakaiNode::UniqueIDN)
- )
- ,
- }, {
-     'target' => \$target,
-     'con' => \$data,
-     'od' => $self,
-   });
- {
- if
- (defined 'Message::DOM::XML::ManakaiDOMProcessingInstruction') {
-   if (ref 'Message::DOM::XML::ManakaiDOMProcessingInstruction' eq 'SCALAR') {
-     $stem->{'cls'} = 'Message::DOM::XML::ManakaiDOMProcessingInstruction';
-   } elsif (defined $Message::Util::ManakaiStringRef::Value{'Message::DOM::XML::ManakaiDOMProcessingInstruction'}) {
-     $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::XML::ManakaiDOMProcessingInstruction'};
-   } else {
-     require Scalar::Util;
-     $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::XML::ManakaiDOMProcessingInstruction'} = \('Message::DOM::XML::ManakaiDOMProcessingInstruction');
-     Scalar::Util::weaken ($Message::Util::ManakaiStringRef::Value{'Message::DOM::XML::ManakaiDOMProcessingInstruction'});
-   }
- } else {
-   CORE::delete $stem->{'cls'};
  }
- ;}
- ;
- $bag->{${$stem->{
- 'id'
- }}} = $stem;
- ;}
- ;
- {
- $r = ${$stem->{
- 'cls'
- }}->___create_node_ref ({
- 'id'
-  => $stem->{
- 'id'
- },
- 'b'
-  => $bag,
- }, {
-     'nrifs' => ['Message::DOM::IFLatest::ProcessingInstruction'],
-   });
- $stem->{
- 'rc'
- }++;
- ;}
- ;
- ;}
  $r}
  sub strict_error_checking ($;$) {
  if (@_ == 1) {my ($self) = @_;
-Line 4739 
 my $r = 0;
+Line 2256 
 my $r = 0;
  {
- {
+ $r = $$self->{
+ 'chk'
+ };
- $r = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'chk'};
- ;}
- ;
- $r =
-unless
- defined $r;
- ;}
+ }
  $r;
  } else {my ($self, $given) = @_;
  {
- {
+ $$self->{
+ 'chk'
+ } = $given;
- $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-     ->{'chk'} = $given ? 1 : 0;
- ;}
+ }
- ;
- ;}
  }
  }
  sub dom_config ($;$) {
-Line 4794 
 my $r;
+Line 2286 
 my $r;
  {
- $r = bless [$self, ($self->{'b'}->{${$self->{'id'}}}), 'Message::DOM::IFLatest::Document'],
+ $r = bless [$self, $$self, 'Message::DOM::IFLatest::Document'],
  'Message::DOM::DOMCore::ManakaiDOMConfiguration'
  ;
- ;}
+ }
  ;
- ;}
+ }
  $r;
  } else {my ($self) = @_;
  report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'dom_config';
-Line 4841 
 node_type
+Line 2333 
 node_type
- ;}
+ }
  ;}
-Line 4849 
 node_type
+Line 2341 
 node_type
  ;
- ;}
+ }
  $r;
  } else {my ($self) = @_;
  report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'document_element';
-Line 4862 
 my $r;
+Line 2354 
 my $r;
  {
- {
+ $r = $$self->{
+ 'impl'
- my
+ };
- $__v = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-               ->{'impl'};
- if (defined $__v) {
- {
- $r = ${$self->{'b'}->{${$__v}}->{
- 'cls'
- }}->___create_node_ref ({
- 'id'
-  => $__v,
- 'b'
-  => $self->{'b'},
- }, {
-     'nrifs' => ['Message::DOM::IFLatest::DOMImplementation'],
-   });
- $self->{'b'}->{${$__v}}->{
- 'rc'
- }++;
- ;}
- ;
  }
- ;}
- ;
- ;}
  $r;
  } else {my ($self) = @_;
  report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'implementation';
-Line 4918 
 my $r = '';
+Line 2372 
 my $r = '';
  {
- {
+ $r = $$self->{
+ 'http://www.w3.org/2001/04/infoset#version'
+ };
- $r = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'http://www.w3.org/2001/04/infoset#version'};
- ;}
- ;
- $r = '1.0' unless defined $r;
- ;}
+ }
  $r;
  } else {my ($self, $given) = @_;
-Line 4955 
 report Message::DOM::DOMCore::ManakaiDOM
+Line 2397 
 report Message::DOM::DOMCore::ManakaiDOM
  }
- ;}
+ }
  ;
  if (defined $given and
-Line 4963 
 if (defined $given and
+Line 2405 
 if (defined $given and
       not $self->
  strict_error_checking
  )) {
+   $$self->{
+ 'http://www.w3.org/2001/04/infoset#version'
- {
+ } = $given;
- $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-     ->{'http://www.w3.org/2001/04/infoset#version'} = $given;
- ;}
- ;
  } else {
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NOT_SUPPORTED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'set', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_IMPL_NOSUPPORT_XMLVER', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'xml_version', 'http://www.w3.org/2001/04/infoset#version' => $given;
-Line 4987 
 report Message::DOM::DOMCore::ManakaiDOM
+Line 2416 
 report Message::DOM::DOMCore::ManakaiDOM
  }
- ;}
+ }
  }
  }
  sub doctype ($;$) {
-Line 5025 
 node_type
+Line 2454 
 node_type
- ;}
+ }
  ;}
-Line 5033 
 node_type
+Line 2462 
 node_type
  ;
- ;}
+ }
  $r;
  } else {my ($self) = @_;
  report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'doctype';
-Line 5046 
 my $r = '';
+Line 2475 
 my $r = '';
  {
- {
+ $r = $$self->{
+ 'duri'
+ };
- $r = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'duri'};
- ;}
- ;
- ;}
+ }
  $r;
  } else {my ($self, $given) = @_;
-Line 5082 
 report Message::DOM::DOMCore::ManakaiDOM
+Line 2500 
 report Message::DOM::DOMCore::ManakaiDOM
  }
- ;}
+ }
- ;
- {
- $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-     ->{'duri'} = $given;
- ;}
  ;
+ $$self->{
+ 'duri'
+ } = $given;
- ;}
+ }
  }
  }
  sub input_encoding ($;$) {
-Line 5113 
 my $r = '';
+Line 2518 
 my $r = '';
  {
- {
+ $r = $$self->{
+ 'ces'
+ };
- $r = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'ces'};
- ;}
- ;
- ;}
+ }
  $r;
  } else {my ($self, $given) = @_;
-Line 5149 
 report Message::DOM::DOMCore::ManakaiDOM
+Line 2543 
 report Message::DOM::DOMCore::ManakaiDOM
  }
- ;}
+ }
- ;
- {
- $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-     ->{'ces'} = $given;
- ;}
  ;
+ $$self->{
+ 'ces'
+ } = $given;
- ;}
+ }
  }
  }
  sub xml_encoding ($;$) {
-Line 5180 
 my $r = '';
+Line 2561 
 my $r = '';
  {
- {
+ $r = $$self->{
+ 'xcs'
+ };
- $r = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'xcs'};
- ;}
- ;
- ;}
+ }
  $r;
  } else {my ($self, $given) = @_;
-Line 5216 
 report Message::DOM::DOMCore::ManakaiDOM
+Line 2586 
 report Message::DOM::DOMCore::ManakaiDOM
  }
- ;}
+ }
- ;
- {
- $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-     ->{'xcs'} = $given;
- ;}
  ;
+ $$self->{
+ 'xcs'
+ } = $given;
- ;}
+ }
  }
  }
  sub xml_standalone ($;$) {
-Line 5247 
 my $r = 0;
+Line 2604 
 my $r = 0;
  {
- {
+ $r = $$self->{
+ 'http://www.w3.org/2001/04/infoset#standalone'
+ };
- $r = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'http://www.w3.org/2001/04/infoset#standalone'};
- ;}
- ;
- ;}
+ }
  $r;
  } else {my ($self, $given) = @_;
-Line 5283 
 report Message::DOM::DOMCore::ManakaiDOM
+Line 2629 
 report Message::DOM::DOMCore::ManakaiDOM
  }
- ;}
+ }
- ;
- {
- $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-     ->{'http://www.w3.org/2001/04/infoset#standalone'} = $given;
- ;}
  ;
+ $$self->{
+ 'http://www.w3.org/2001/04/infoset#standalone'
+ } = $given;
- ;}
+ }
  }
  }
  sub adopt_node ($$) {
-Line 5313 
 my $r;
+Line 2646 
 my $r;
  {
- if
+ ADOPT:
- ($source->isa (
+ {
+   last ADOPT
+     unless $source->isa (
  'Message::DOM::TreeCore::ManakaiDOMNode'
- ) and
+ );
- $self->{'b'}
-         eq
- $source->{'b'}
+   my $strict = $self->
- ) {
+ strict_error_checking
-   if ($self->
+ ;
+   if ($strict and $self->
  manakai_read_only
  ) {
-Line 5334 
 report Message::DOM::DOMCore::ManakaiDOM
+Line 2667 
 report Message::DOM::DOMCore::ManakaiDOM
    my $parent = $source->
  parent_node
  ;
-   if ($parent and $parent->
+   if ($strict and defined $parent and
+       $parent->
  manakai_read_only
  ) {
-Line 5352 
 node_type
+Line 2686 
 node_type
      $oe = $source->
  owner_element
  ;
-     if ($oe and $oe->
+     if ($strict and defined $oe and $oe->
  manakai_read_only
  ) {
-Line 5385 
 report Message::DOM::DOMCore::ManakaiDOM
+Line 2719 
 report Message::DOM::DOMCore::ManakaiDOM
      my $nt = $node->
  node_type
  ;
-     if ($node->
+     if ($strict and $node->
  manakai_read_only
  ) {
-Line 5442 
 $nt ==
+Line 2776 
 $nt ==
      }
    } # nodes
-   if ($parent) {
  {
-Line 5452 
 local $Error::Depth = $Error::Depth + 1;
+Line 2785 
 local $Error::Depth = $Error::Depth + 1;
  {
+     if
+ (defined $parent) {
        $parent->
  remove_child
   ($source);
+     } elsif (defined $oe) {
- ;}
- ;}
- ;
-   } elsif ($oe) {
- {
- local $Error::Depth = $Error::Depth + 1;
- {
        $oe->
  remove_attribute_node
   ($source);
+     }
- ;}
+ }
  ;}
  ;
-   }
+   $r = $source;
    my $old_od = $change_od[0]->
  owner_document
  ;
-Line 5497 
 owner_document
+Line 2813 
 owner_document
                   ##       nodes by definition.  In addition,
                   ##       it cannot contain document or document
                   ##       type nodes in current implementation.
-   my $old_od_list;
- {
- $old_od_list = $old_od->{
- 'b'
- }->{${$old_od->{
- 'id'
- }}}
-          ->{'do'};
- ;}
- ;
-   my $new_od_list;
- {
+   if ($old_od eq $self) {
+     last ADOPT;
+   }
- $new_od_list = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'do'};
- ;}
- ;
    for my $n (@change_od) {
+     $$n->{
+ 'od'
- {
+ } = $self;
+     Scalar::Util::weaken ($$n->{
+ 'od'
- $n->{
+ });
- 'b'
- }->{${$n->{
- 'id'
- }}}
-     ->{'od'} = $self->{
- 'id'
- };
- ;}
- ;
-     my $nid =
- $n->{'id'}
- ;
-     CORE::delete $old_od_list->{$$nid};
-     $new_od_list->{$$nid} = $nid;
    }
    for my $src (@change_od) {
-     my $src_ud;
+     my $src_ud = $$src->{
+ 'ud'
+ };
- {
- $src_ud = $src->{
- 'b'
- }->{${$src->{
- 'id'
- }}}
-          ->{'ud'};
- ;}
- ;
      for my $key (keys %{$src_ud or {}}) {
        my $dh = $src_ud->{$key}->[1];
        if ($dh) {
-Line 5590 
 undef
+Line 2846 
 undef
        }
      }
    }
-   $r = $source;
+ } # ADOPT
- } # compatible class
- ;}
+ }
  $r}
  sub get_element_by_id ($$) {
  my ($self, $elementId) = @_;
-Line 5641 
 child_nodes
+Line 2896 
 child_nodes
- ;}
+ }
  ;}
-Line 5649 
 child_nodes
+Line 2904 
 child_nodes
  ;
- ;}
+ }
  $r}
  sub get_elements_by_tag_name ($$) {
  my ($self, $name) = @_;
-Line 5683 
 $r = bless \[$self, $chk],
+Line 2938 
 $r = bless \[$self, $chk],
  ;
- ;}
+ }
  ;
- ;}
+ }
  $r}
  sub get_elements_by_tag_name_ns ($$$) {
  my ($self, $namespaceURI, $localName) = @_;
-Line 5697 
 my ($self, $namespaceURI, $localName) =
+Line 2952 
 my ($self, $namespaceURI, $localName) =
  if
  (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {
+   require Message::DOM::DOMMain;
- 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:1143811080:18264:zbjED29418+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:1167450139:7187:cCkYT15288+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
  ;
-Line 5711 
 $namespaceURI = undef;
+Line 2967 
 $namespaceURI = undef;
- ;}
+ }
  ;
  }
- ;}
+ }
  my $r;
  {
-Line 5790 
 $r = bless \[$self, $chk],
+Line 3046 
 $r = bless \[$self, $chk],
  ;
- ;}
+ }
  ;
- ;}
+ }
  $r}
  sub import_node ($$;$) {
  my ($self, $importedNode, $deep) = @_;
-Line 5813 
 my ($self, $n, $namespaceURI, $qualified
+Line 3069 
 my ($self, $n, $namespaceURI, $qualified
  if
  (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {
+   require Message::DOM::DOMMain;
- 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:1143811080:18264:zbjED29418+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:1167450139:7187:cCkYT15288+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
  ;
-Line 5827 
 $namespaceURI = undef;
+Line 3084 
 $namespaceURI = undef;
- ;}
+ }
  ;
  }
- ;}
+ }
  my $r;
  report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NOT_SUPPORTED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'rename_node', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_IMPL_METHOD_NOT_IMPLEMENTED', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument';
  $r}
-Line 5844 
 my $r = '';
+Line 3101 
 my $r = '';
  {
- {
+ $r = $$self->{
+ 'buri'
+ };
- $r = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'buri'};
- ;}
- ;
  unless (defined $r) {
+   $r = $$self->{
+ 'duri'
- {
+ };
- $r = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'duri'};
- ;}
- ;
  }
- ;}
+ }
  $r;
  } else {my ($self, $given) = @_;
-Line 5898 
 report Message::DOM::DOMCore::ManakaiDOM
+Line 3131 
 report Message::DOM::DOMCore::ManakaiDOM
  }
- ;}
+ }
- ;
- {
- $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-     ->{'buri'} = $given;
- ;}
  ;
+ $$self->{
+ 'buri'
+ } = $given;
- ;}
+ }
  }
  }
  sub all_declarations_processed ($;$) {
-Line 5929 
 my $r = 0;
+Line 3149 
 my $r = 0;
  {
- {
+ $r = $$self->{
+ 'http://www.w3.org/2001/04/infoset#allDeclarationsProcessed'
+ };
- $r = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'http://www.w3.org/2001/04/infoset#allDeclarationsProcessed'};
- ;}
- ;
- ;}
+ }
  $r;
  } else {my ($self, $given) = @_;
-Line 5965 
 report Message::DOM::DOMCore::ManakaiDOM
+Line 3174 
 report Message::DOM::DOMCore::ManakaiDOM
  }
- ;}
+ }
- ;
- {
- $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-     ->{'http://www.w3.org/2001/04/infoset#allDeclarationsProcessed'} = $given;
- ;}
  ;
+ $$self->{
+ 'http://www.w3.org/2001/04/infoset#allDeclarationsProcessed'
+ } = $given;
- ;}
+ }
  }
  }
  $Message::DOM::DOMFeature::ClassInfo->{q<Message::DOM::Document::ManakaiDOMDocument>}->{has_feature} = {'core',
-Line 6015 
 $Message::DOM::DOMFeature::ClassInfo->{q
+Line 3211 
 $Message::DOM::DOMFeature::ClassInfo->{q
  '1.1',
  '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;
- $Message::Util::Grove::ClassProp{q<Message::DOM::Document::ManakaiDOMDocument>} = {'s1a',
- ['child'],
- 'v1h',
- ['do'],
- 'w0',
- ['impl']};
  package Message::DOM::IFLatest::DocumentFragment;
- our $VERSION = 20060401.1743;
+ our $VERSION = 20061230.0424;
  package Message::DOM::Document::ManakaiDOMDocumentFragment;
- our $VERSION = 20060401.1743;
+ our $VERSION = 20061230.0424;
  push our @ISA, 'Message::DOM::TreeCore::ManakaiDOMNode',
- 'Message::DOM::IF::DocumentFragment',
- 'Message::DOM::IF::Node',
  'Message::DOM::IFLatest::DocumentFragment',
- 'Message::DOM::IFLatest::Node',
+ 'Message::DOM::IFLatest::Node';
- 'Message::DOM::IFLevel1::DocumentFragment',
- 'Message::DOM::IFLevel1::Node',
- 'Message::DOM::IFLevel2::DocumentFragment',
- 'Message::DOM::IFLevel2::Node',
- 'Message::DOM::IFLevel3::DocumentFragment',
- 'Message::DOM::IFLevel3::Node';
- sub ___create_node_stem ($$$$) {
- my ($self, $bag, $obj, $opt) = @_;
- my $r = {};
- {
- $obj->{
- 'child'
- } = [];
- {
- $obj->{'od'} = $opt->{'od'}->{
- 'id'
- };
- $bag->{${$opt->{'od'}->{
- 'id'
- }}}
-     ->{'do'}->{${$obj->{
- 'id'
- }}}
-   = $obj->{
- 'id'
- };
- ;}
- ;
- $r = $obj;
- ;}
- $r}
  sub node_type ($;$) {
  if (@_ == 1) {my ($self) = @_;
  my $r;
-Line 6160 
 local $Error::Depth = $Error::Depth - 1;
+Line 3304 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- ;}
+ }
  ;}
-Line 6181 
 local $Error::Depth = $Error::Depth - 1;
+Line 3325 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- ;}
+ }
  ;}
-Line 6209 
 local $Error::Depth = $Error::Depth - 1;
+Line 3353 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'WRONG_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#DIFFERENT_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- ;}
+ }
  ;}
-Line 6232 
 local $Error::Depth = $Error::Depth - 1;
+Line 3376 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;}
+ }
  ;}
-Line 6255 
 local $Error::Depth = $Error::Depth - 1;
+Line 3399 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_SRC_PARENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;}
+ }
  ;}
-Line 6276 
 report Message::DOM::DOMCore::ManakaiDOM
+Line 3420 
 report Message::DOM::DOMCore::ManakaiDOM
      if ($child_nt ==
  ) {
+       $$newChild->{
+ 'child'
- {
+ } = [];
- $newChild->{
- 'b'
- }->{${$newChild->{
- 'id'
- }}}
-     ->{'child'} = [];
- ;}
- ;
      } else {
-       my $v;
+       my $v = $$nc_parent->{
+ 'child'
+ };
- {
- $v = $nc_parent->{
- 'b'
- }->{${$nc_parent->{
- 'id'
- }}}
-          ->{'child'};
- ;}
- ;
        RP: for my $i (0..$#$v) {
-         my $nodeid = $v->[$i];
+         if ($v->[$i] eq $new_child[0]) {
-         if (
- (${$new_child[0]->{'id'}} eq ${$nodeid})
- ) {
            splice @$v, $i, 1, ();
            last RP;
          }
-Line 6324 
 $v = $nc_parent->{
+Line 3438 
 $v = $nc_parent->{
    ## -- Rewrite the |parentNode| properties
    for my $nc (@new_child) {
+     $$nc->{
+ 'parent'
- {
+ } = $self;
+     Scalar::Util::weaken ($$nc->{
+ 'parent'
- $nc->{
+ });
- 'b'
- }->{${$nc->{
- 'id'
- }}}
-     ->{'parent'} = $self->{
- 'id'
- };
- ;}
- ;
    }
-   my $children;
+   my $children = $$self->{
+ 'child'
+ };
- {
- $children = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'child'};
- ;}
- ;
-Line 6368 
 $children = $self->{
+Line 3456 
 $children = $self->{
  ## -- Adds to children list
-     push @$children, map {
+     push @$children, @new_child;
- $_->{'id'}
-     } @new_child;
      $r = $newChild;
- ;}
+ }
  ;
-Line 6391 
 $_->{'id'}
+Line 3475 
 $_->{'id'}
- ;}
+ }
  ;}
-Line 6399 
 $_->{'id'}
+Line 3483 
 $_->{'id'}
  ;
- ;}
+ }
  ;
- ;}
+ }
  $r}
  sub insert_before ($$;$) {
  my ($self, $newChild, $refChild) = @_;
-Line 6483 
 local $Error::Depth = $Error::Depth - 1;
+Line 3567 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- ;}
+ }
  ;}
-Line 6504 
 local $Error::Depth = $Error::Depth - 1;
+Line 3588 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- ;}
+ }
  ;}
-Line 6532 
 local $Error::Depth = $Error::Depth - 1;
+Line 3616 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'WRONG_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#DIFFERENT_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- ;}
+ }
  ;}
-Line 6555 
 local $Error::Depth = $Error::Depth - 1;
+Line 3639 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;}
+ }
  ;}
-Line 6578 
 local $Error::Depth = $Error::Depth - 1;
+Line 3662 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_SRC_PARENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;}
+ }
  ;}
-Line 6612 
 local $Error::Depth = $Error::Depth - 1;
+Line 3696 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/tree#insert-before-itself', 'rdata' => $refChild, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;}
+ }
  ;}
-Line 6621 
 report Message::DOM::DOMCore::ManakaiDOM
+Line 3705 
 report Message::DOM::DOMCore::ManakaiDOM
- ;}
+ }
  ;
-Line 6658 
 local $Error::Depth = $Error::Depth - 1;
+Line 3742 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NOT_FOUND_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#NOT_CHILD_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'refChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $refChild;
- ;}
+ }
  ;}
-Line 6667 
 report Message::DOM::DOMCore::ManakaiDOM
+Line 3751 
 report Message::DOM::DOMCore::ManakaiDOM
- ;}
+ }
  ;
-Line 6682 
 report Message::DOM::DOMCore::ManakaiDOM
+Line 3766 
 report Message::DOM::DOMCore::ManakaiDOM
- ;}
+ }
  ; # FOR !tc:ForAppendChild
-Line 6691 
 report Message::DOM::DOMCore::ManakaiDOM
+Line 3775 
 report Message::DOM::DOMCore::ManakaiDOM
      if ($child_nt ==
  ) {
+       $$newChild->{
+ 'child'
- {
+ } = [];
- $newChild->{
- 'b'
- }->{${$newChild->{
- 'id'
- }}}
-     ->{'child'} = [];
- ;}
- ;
      } else {
-       my $v;
+       my $v = $$nc_parent->{
+ 'child'
+ };
- {
- $v = $nc_parent->{
- 'b'
- }->{${$nc_parent->{
- 'id'
- }}}
-          ->{'child'};
- ;}
- ;
        RP: for my $i (0..$#$v) {
-         my $nodeid = $v->[$i];
+         if ($v->[$i] eq $new_child[0]) {
-         if (
- (${$new_child[0]->{'id'}} eq ${$nodeid})
- ) {
            splice @$v, $i, 1, ();
            last RP;
          }
-Line 6739 
 $v = $nc_parent->{
+Line 3793 
 $v = $nc_parent->{
    ## -- Rewrite the |parentNode| properties
    for my $nc (@new_child) {
+     $$nc->{
+ 'parent'
- {
+ } = $self;
+     Scalar::Util::weaken ($$nc->{
+ 'parent'
- $nc->{
+ });
- 'b'
- }->{${$nc->{
- 'id'
- }}}
-     ->{'parent'} = $self->{
- 'id'
- };
- ;}
- ;
    }
-   my $children;
+   my $children = $$self->{
+ 'child'
+ };
- {
- $children = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'child'};
- ;}
- ;
-Line 6788 
 $children = $self->{
+Line 3816 
 $children = $self->{
  ## -- Adds to children list
      if ($index == -1) {
-       push @$children, map {
+       push @$children, @new_child;
- $_->{'id'}
-       } @new_child;
      } else {
-       splice @$children, $index, 0, map {
+       splice @$children, $index, 0, @new_child;
- $_->{'id'}
-       } @new_child;
      }
      $r = $newChild;
- ;}
+ }
  ;
-Line 6814 
 $_->{'id'}
+Line 3834 
 $_->{'id'}
- ;}
+ }
  ;}
-Line 6822 
 $_->{'id'}
+Line 3842 
 $_->{'id'}
  ;
- ;}
+ }
  ;
- ;}
+ }
  $r}
  sub replace_child ($$$) {
  my ($self, $newChild, $oldChild) = @_;
-Line 6906 
 local $Error::Depth = $Error::Depth - 1;
+Line 3926 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- ;}
+ }
  ;}
-Line 6927 
 local $Error::Depth = $Error::Depth - 1;
+Line 3947 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- ;}
+ }
  ;}
-Line 6955 
 local $Error::Depth = $Error::Depth - 1;
+Line 3975 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'WRONG_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#DIFFERENT_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- ;}
+ }
  ;}
-Line 6978 
 local $Error::Depth = $Error::Depth - 1;
+Line 3998 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;}
+ }
  ;}
-Line 7001 
 local $Error::Depth = $Error::Depth - 1;
+Line 4021 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_SRC_PARENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;}
+ }
  ;}
-Line 7038 
 local $Error::Depth = $Error::Depth - 1;
+Line 4058 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/tree#replace-by-itself', 'rdata' => $oldChild, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;}
+ }
  ;}
-Line 7047 
 report Message::DOM::DOMCore::ManakaiDOM
+Line 4067 
 report Message::DOM::DOMCore::ManakaiDOM
- ;}
+ }
  ;
        }
-Line 7084 
 local $Error::Depth = $Error::Depth - 1;
+Line 4104 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NOT_FOUND_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#NOT_CHILD_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'oldChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $oldChild;
- ;}
+ }
  ;}
-Line 7093 
 report Message::DOM::DOMCore::ManakaiDOM
+Line 4113 
 report Message::DOM::DOMCore::ManakaiDOM
- ;}
+ }
  ;
        } # C
-Line 7112 
 local $Error::Depth = $Error::Depth - 1;
+Line 4132 
 local $Error::Depth = $Error::Depth - 1;
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NOT_FOUND_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#NOT_CHILD_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'oldChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $oldChild;
- ;}
+ }
  ;}
-Line 7121 
 report Message::DOM::DOMCore::ManakaiDOM
+Line 4141 
 report Message::DOM::DOMCore::ManakaiDOM
- ;}
+ }
  ;
      }
- ;}
+ }
  ; # FOR !tc:ForAppendChild
-Line 7137 
 report Message::DOM::DOMCore::ManakaiDOM
+Line 4157 
 report Message::DOM::DOMCore::ManakaiDOM
      if ($child_nt ==
  ) {
+       $$newChild->{
+ 'child'
- {
+ } = [];
- $newChild->{
- 'b'
- }->{${$newChild->{
- 'id'
- }}}
-     ->{'child'} = [];
- ;}
- ;
      } else {
-       my $v;
+       my $v = $$nc_parent->{
+ 'child'
+ };
- {
- $v = $nc_parent->{
- 'b'
- }->{${$nc_parent->{
- 'id'
- }}}
-          ->{'child'};
- ;}
- ;
        RP: for my $i (0..$#$v) {
-         my $nodeid = $v->[$i];
+         if ($v->[$i] eq $new_child[0]) {
-         if (
- (${$new_child[0]->{'id'}} eq ${$nodeid})
- ) {
            splice @$v, $i, 1, ();
            last RP;
          }
-Line 7185 
 $v = $nc_parent->{
+Line 4175 
 $v = $nc_parent->{
    ## -- Rewrite the |parentNode| properties
    for my $nc (@new_child) {
+     $$nc->{
+ 'parent'
- {
+ } = $self;
+     Scalar::Util::weaken ($$nc->{
+ 'parent'
- $nc->{
+ });
- 'b'
- }->{${$nc->{
- 'id'
- }}}
-     ->{'parent'} = $self->{
- 'id'
- };
- ;}
- ;
    }
-   my $children;
+   my $children = $$self->{
+ 'child'
+ };
- {
- $children = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'child'};
- ;}
- ;
-Line 7237 
 $children = $self->{
+Line 4201 
 $children = $self->{
  ## -- Replaces the node
-     splice @$children, $index, 1, map {
+     splice @$children, $index, 1, @new_child;
+     CORE::delete $$oldChild->{
- $_->{'id'}
+ 'parent'
+ };
-     } @new_child;
- {
- CORE::delete
- $oldChild->{
- 'b'
- }->{${$oldChild->{
- 'id'
- }}}
-                  ->{'parent'};
- ;}
- ;
      $r = $oldChild;
- ;}
+ }
  ;
- ;}
+ }
  ;}
-Line 7276 
 $oldChild->{
+Line 4223 
 $oldChild->{
  ;
- ;}
+ }
  ;
- ;}
+ }
  $r}
  sub node_name ($;$) {
  if (@_ == 1) {my ($self) = @_;
-Line 7336 
 append_child
+Line 4283 
 append_child
- ;}
+ }
  ;}
-Line 7344 
 append_child
+Line 4291 
 append_child
  ;
- ;}
+ }
  $r}
  sub get_feature ($$$) {
  my ($self, $feature, $version) = @_;
-Line 7355 
 my ($self, $feature, $version) = @_;
+Line 4302 
 my ($self, $feature, $version) = @_;
  $feature = lc $feature;
- ;}
+ }
  {
-Line 7363 
 $feature = lc $feature;
+Line 4310 
 $feature = lc $feature;
  $version = '' unless defined $version;
- ;}
+ }
  my $r;
  {
-Line 7375 
 $feature =~ s/^\+//;
+Line 4322 
 $feature =~ s/^\+//;
  {
  if
- ($Message::DOM::DOMFeature::ClassInfo->{ref $self}
+ ($Message::Util::AutoLoad::Registry::Feature->{$feature}->{$version}) {
-       ->{has_feature}->{$feature}->{$version}) {
    $r = $self;
- } else {
-   CLASS: for my $__class (sort {
-     $Message::DOM::ClassPoint{$b} <=> $Message::DOM::ClassPoint{$a}
-   } grep {
-     $Message::DOM::DOMFeature::ClassInfo->{'Message::DOM::Document::ManakaiDOMDocumentFragment'}
-         ->{compat_class}->{$_}
-   } keys %{$Message::DOM::DOMFeature::ClassInfo->{'Message::DOM::Document::ManakaiDOMDocumentFragment'}
-                ->{compat_class} or {}}) {
-     if ($Message::DOM::DOMFeature::ClassInfo->{$__class}
-             ->{has_feature}->{$feature}->{$version}) {
- {
- $r = ${($self->{'b'})->{${($self->{'id'})}}->{
- 'cls'
- }}->___create_node_ref ({
- 'id'
-  => ($self->{'id'}),
- 'b'
-  => ($self->{'b'}),
- }, {
-           'nrcls' => \$__class,
-         });
- ($self->{'b'})->{${($self->{'id'})}}->{
- 'rc'
- }++;
- ;}
- ;
-       last CLASS;
-     }
-   } # CLASS
  }
- ;}
+ }
  ;
  unless (defined $r) {
-Line 7437 
 local $Error::Depth = $Error::Depth + 1;
+Line 4345 
 local $Error::Depth = $Error::Depth + 1;
- ;}
+ }
  ;}
-Line 7446 
 local $Error::Depth = $Error::Depth + 1;
+Line 4354 
 local $Error::Depth = $Error::Depth + 1;
  }
- ;}
+ }
  $r}
  sub base_uri ($;$) {
  if (@_ == 1) {my ($self) = @_;
-Line 7471 
 base_uri
+Line 4379 
 base_uri
- ;}
+ }
  ;}
-Line 7479 
 base_uri
+Line 4387 
 base_uri
  ;
- ;}
+ }
  $r;
  } else {my ($self) = @_;
  report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocumentFragment', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'base_uri';
-Line 7511 
 $Message::DOM::DOMFeature::ClassInfo->{q
+Line 4419 
 $Message::DOM::DOMFeature::ClassInfo->{q
  '1.1',
  '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;
+ for ($Message::DOM::IFLatest::Node::){}
- $Message::Util::Grove::ClassProp{q<Message::DOM::Document::ManakaiDOMDocumentFragment>} = {'s1a',
- ['child'],
- 'w0',
- ['od']};
- for ($Message::DOM::IF::Document::, $Message::DOM::IF::DocumentFragment::, $Message::DOM::IF::Node::, $Message::DOM::IFLatest::Node::, $Message::DOM::IFLevel1::Document::, $Message::DOM::IFLevel1::DocumentFragment::, $Message::DOM::IFLevel1::Node::, $Message::DOM::IFLevel2::Document::, $Message::DOM::IFLevel2::DocumentFragment::, $Message::DOM::IFLevel2::Node::, $Message::DOM::IFLevel3::Document::, $Message::DOM::IFLevel3::DocumentFragment::, $Message::DOM::IFLevel3::Node::){}
  ## License: <http://suika.fam.cx/~wakaba/archive/2004/8/18/license#Perl+MPL>
 ;

 Legend:



Removed from v.1.1
 


changed lines


 
Added in v.1.14
 Legend:



Removed from v.1.1
 


changed lines


 
Added in v.1.14
-Removed from v.1.1
+Added in v.1.14

admin@suikawiki.org	ViewVC Help
Powered by ViewVC 1.1.24