/[suikacvs]/messaging/manakai/lib/Message/DOM/Element.pm
Suika

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9 by wakaba, Sun Nov 5 09:16:30 2006 UTC revision 1.10 by wakaba, Sun Nov 5 12:31:50 2006 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl  #!/usr/bin/perl
2  ## This file is automatically generated  ## This file is automatically generated
3  ##      at 2006-11-05T08:23:49+00:00,  ##      at 2006-11-05T12:21:12+00:00,
4  ##      from file "Element.dis",  ##      from file "Element.dis",
5  ##      module <http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ManakaiDOM.Element>,  ##      module <http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ManakaiDOM.Element>,
6  ##      for <http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ManakaiDOMLatest>.  ##      for <http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ManakaiDOMLatest>.
# Line 11  require Message::DOM::Document; Line 11  require Message::DOM::Document;
11  require Message::DOM::TreeCore;  require Message::DOM::TreeCore;
12  require Message::Util::Error::DOMException;  require Message::Util::Error::DOMException;
13  package Message::DOM::Element;  package Message::DOM::Element;
14  our $VERSION = 20061105.0823;  our $VERSION = 20061105.1221;
15    sub DERIVATION_EXTENSION ();
16    sub DERIVATION_LIST ();
17    sub DERIVATION_RESTRICTION ();
18    sub DERIVATION_UNION ();
19    sub AUTOLOAD {
20    
21    
22            my $al = our $AUTOLOAD;
23            $al =~ s/.+:://;
24            if ({'DERIVATION_EXTENSION',
25    'Message::DOM::IFLatest::TypeInfo::DERIVATION_EXTENSION',
26    'DERIVATION_LIST',
27    'Message::DOM::IFLatest::TypeInfo::DERIVATION_LIST',
28    'DERIVATION_RESTRICTION',
29    'Message::DOM::IFLatest::TypeInfo::DERIVATION_RESTRICTION',
30    'DERIVATION_UNION',
31    'Message::DOM::IFLatest::TypeInfo::DERIVATION_UNION'}->{$al}) {
32              no strict 'refs';
33              *{$AUTOLOAD} = \&{{'DERIVATION_EXTENSION',
34    'Message::DOM::IFLatest::TypeInfo::DERIVATION_EXTENSION',
35    'DERIVATION_LIST',
36    'Message::DOM::IFLatest::TypeInfo::DERIVATION_LIST',
37    'DERIVATION_RESTRICTION',
38    'Message::DOM::IFLatest::TypeInfo::DERIVATION_RESTRICTION',
39    'DERIVATION_UNION',
40    'Message::DOM::IFLatest::TypeInfo::DERIVATION_UNION'}->{$al}};
41              goto &{$AUTOLOAD};
42            } else {
43              require Carp;
44              Carp::croak (qq<Can't locate method "$AUTOLOAD">);
45            }
46          
47    }
48    sub import {
49    
50    
51            my $self = shift;
52            if (@_) {
53              local $Exporter::ExportLevel = $Exporter::ExportLevel + 1;
54              $self->SUPER::import (@_);
55              for (grep {not /\W/} @_) {
56                eval qq{$_};
57              }
58            }
59          
60    }
61    our %EXPORT_TAG = ('DerivationMethods',
62    ['DERIVATION_EXTENSION',
63    'DERIVATION_LIST',
64    'DERIVATION_RESTRICTION',
65    'DERIVATION_UNION']);
66    our @EXPORT_OK = ('DERIVATION_EXTENSION',
67    'DERIVATION_LIST',
68    'DERIVATION_RESTRICTION',
69    'DERIVATION_UNION');
70    use Exporter; push our @ISA, 'Exporter';
71  package Message::DOM::Element::ManakaiDOMDocumentElement;  package Message::DOM::Element::ManakaiDOMDocumentElement;
72  our $VERSION = 20061105.0823;  our $VERSION = 20061105.1221;
73  push @Message::DOM::Document::ManakaiDOMDocument::ISA, q<Message::DOM::Element::ManakaiDOMDocumentElement> unless Message::DOM::Document::ManakaiDOMDocument->isa (q<Message::DOM::Element::ManakaiDOMDocumentElement>);  push @Message::DOM::Document::ManakaiDOMDocument::ISA, q<Message::DOM::Element::ManakaiDOMDocumentElement> unless Message::DOM::Document::ManakaiDOMDocument->isa (q<Message::DOM::Element::ManakaiDOMDocumentElement>);
74  use Char::Class::XML 'InXMLNCNameChar10',  use Char::Class::XML 'InXMLNCNameChar10',
75  'InXMLNCNameChar11',  'InXMLNCNameChar11',
# Line 124  if Line 180  if
180  (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {  (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {
181    require Message::DOM::DOMMain;    require Message::DOM::DOMMain;
182        
183  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:1162711890:16031:uDMne5008+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:1162724345:21638:je07X25867+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
184    
185  ;  ;
186    
# Line 724  if Line 780  if
780  (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {  (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {
781    require Message::DOM::DOMMain;    require Message::DOM::DOMMain;
782        
783  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:1162711890:16031:uDMne5008+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:1162724345:21638:je07X25867+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
784    
785  ;  ;
786    
# Line 1010  $r} Line 1066  $r}
1066  $Message::DOM::DOMFeature::ClassInfo->{q<Message::DOM::Element::ManakaiDOMDocumentElement>}->{has_feature} = {};  $Message::DOM::DOMFeature::ClassInfo->{q<Message::DOM::Element::ManakaiDOMDocumentElement>}->{has_feature} = {};
1067  $Message::DOM::ClassPoint{q<Message::DOM::Element::ManakaiDOMDocumentElement>} = 0;  $Message::DOM::ClassPoint{q<Message::DOM::Element::ManakaiDOMDocumentElement>} = 0;
1068  package Message::DOM::IFLatest::Element;  package Message::DOM::IFLatest::Element;
1069  our $VERSION = 20061105.0823;  our $VERSION = 20061105.1221;
1070  package Message::DOM::Element::ManakaiDOMElement;  package Message::DOM::Element::ManakaiDOMElement;
1071  our $VERSION = 20061105.0823;  our $VERSION = 20061105.1221;
1072  push our @ISA, 'Message::DOM::TreeCore::ManakaiDOMNode',  push our @ISA, 'Message::DOM::TreeCore::ManakaiDOMNode',
1073  'Message::DOM::IF::Element',  'Message::DOM::IF::Element',
1074  'Message::DOM::IF::Node',  'Message::DOM::IF::Node',
# Line 3182  if Line 3238  if
3238  (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {  (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {
3239    require Message::DOM::DOMMain;    require Message::DOM::DOMMain;
3240        
3241  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:1162711890:16031:uDMne5008+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:1162724345:21638:je07X25867+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
3242    
3243  ;  ;
3244    
# Line 3389  if Line 3445  if
3445  (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {  (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {
3446    require Message::DOM::DOMMain;    require Message::DOM::DOMMain;
3447        
3448  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:1162711890:16031:uDMne5008+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:1162724345:21638:je07X25867+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
3449    
3450  ;  ;
3451    
# Line 3588  if Line 3644  if
3644  (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {  (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {
3645    require Message::DOM::DOMMain;    require Message::DOM::DOMMain;
3646        
3647  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:1162711890:16031:uDMne5008+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:1162724345:21638:je07X25867+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
3648    
3649  ;  ;
3650    
# Line 4020  if Line 4076  if
4076  (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {  (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {
4077    require Message::DOM::DOMMain;    require Message::DOM::DOMMain;
4078        
4079  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:1162711890:16031:uDMne5008+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:1162724345:21638:je07X25867+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
4080    
4081  ;  ;
4082    
# Line 5057  if Line 5113  if
5113  (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {  (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {
5114    require Message::DOM::DOMMain;    require Message::DOM::DOMMain;
5115        
5116  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:1162711890:16031:uDMne5008+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:1162724345:21638:je07X25867+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
5117    
5118  ;  ;
5119    
# Line 5642  my $r; Line 5698  my $r;
5698  my  my
5699  $v = 0 || 0;  $v = 0 || 0;
5700  $r = bless \$v,  $r = bless \$v,
5701  'Message::DOM::DOMCore::ManakaiDOMDTDTypeInfo'  'Message::DOM::Element::ManakaiDOMDTDTypeInfo'
5702  ;  ;
5703    
5704    
# Line 5705  if Line 5761  if
5761  (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {  (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {
5762    require Message::DOM::DOMMain;    require Message::DOM::DOMMain;
5763        
5764  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:1162711890:16031:uDMne5008+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:1162724345:21638:je07X25867+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
5765    
5766  ;  ;
5767    
# Line 5926  if Line 5982  if
5982  (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {  (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {
5983    require Message::DOM::DOMMain;    require Message::DOM::DOMMain;
5984        
5985  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:1162711890:16031:uDMne5008+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:1162724345:21638:je07X25867+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
5986    
5987  ;  ;
5988    
# Line 6074  $Message::Util::Grove::ClassProp{q<Messa Line 6130  $Message::Util::Grove::ClassProp{q<Messa
6130  'w0',  'w0',
6131  ['od']};  ['od']};
6132  package Message::DOM::IFLatest::Attr;  package Message::DOM::IFLatest::Attr;
6133  our $VERSION = 20061105.0823;  our $VERSION = 20061105.1221;
6134  package Message::DOM::Element::ManakaiDOMAttr;  package Message::DOM::Element::ManakaiDOMAttr;
6135  our $VERSION = 20061105.0823;  our $VERSION = 20061105.1221;
6136  push our @ISA, 'Message::DOM::TreeCore::ManakaiDOMNode',  push our @ISA, 'Message::DOM::TreeCore::ManakaiDOMNode',
6137  'Message::DOM::IF::Attr',  'Message::DOM::IF::Attr',
6138  'Message::DOM::IF::Node',  'Message::DOM::IF::Node',
# Line 8422  $type = $self->{ Line 8478  $type = $self->{
8478  my  my
8479  $v = $type || 0;  $v = $type || 0;
8480  $r = bless \$v,  $r = bless \$v,
8481  'Message::DOM::DOMCore::ManakaiDOMDTDTypeInfo'  'Message::DOM::Element::ManakaiDOMDTDTypeInfo'
8482  ;  ;
8483    
8484    
# Line 8668  $Message::Util::Grove::ClassProp{q<Messa Line 8724  $Message::Util::Grove::ClassProp{q<Messa
8724  ['child'],  ['child'],
8725  'w0',  'w0',
8726  ['od']};  ['od']};
8727  for ($Message::DOM::IF::Attr::, $Message::DOM::IF::Element::, $Message::DOM::IF::Node::, $Message::DOM::IFLatest::Node::, $Message::DOM::IFLevel1::Attr::, $Message::DOM::IFLevel1::Element::, $Message::DOM::IFLevel1::Node::, $Message::DOM::IFLevel2::Attr::, $Message::DOM::IFLevel2::Element::, $Message::DOM::IFLevel2::Node::, $Message::DOM::IFLevel3::Attr::, $Message::DOM::IFLevel3::Element::, $Message::DOM::IFLevel3::Node::){}  package Message::DOM::IFLatest::TypeInfo;
8728    our $VERSION = 20061105.1221;
8729    sub DERIVATION_RESTRICTION () {
8730    1}
8731    sub DERIVATION_EXTENSION () {
8732    2}
8733    sub DERIVATION_UNION () {
8734    4}
8735    sub DERIVATION_LIST () {
8736    8}
8737    package Message::DOM::Element::ManakaiDOMDTDTypeInfo;
8738    our $VERSION = 20061105.1221;
8739    push our @ISA, 'Message::DOM::IF::TypeInfo',
8740    'Message::DOM::IFLatest::TypeInfo',
8741    'Message::DOM::IFLevel3::TypeInfo';
8742    sub type_name ($;$) {
8743    if (@_ == 1) {my ($self) = @_;
8744    my $r = '';
8745    
8746    {
8747    
8748    
8749    $r = {
8750      
8751    1
8752     => 'CDATA',
8753      
8754    2
8755     => 'ID',
8756      
8757    3
8758     => 'IDREF',
8759      
8760    4
8761     => 'IDREFS',
8762      
8763    5
8764     => 'ENTITY',
8765      
8766    6
8767     => 'ENTITIES',
8768      
8769    7
8770     => 'NMTOKEN',
8771      
8772    8
8773     => 'NMTOKENS',
8774      
8775    9
8776     => 'NOTATION',
8777      
8778    10
8779     => 'ENUMERATION',
8780    }->{$$self};
8781    
8782    
8783    }
8784    $r;
8785    } else {my ($self) = @_;
8786    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::Element::ManakaiDOMDTDTypeInfo', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'type_name';
8787    }
8788    }
8789    sub type_namespace ($;$) {
8790    if (@_ == 1) {my ($self) = @_;
8791    my $r = '';
8792    
8793    {
8794    
8795    
8796    $r = {
8797      
8798    1
8799     =>
8800    1
8801    ,
8802      
8803    2
8804     =>
8805    1
8806    ,
8807      
8808    3
8809     =>
8810    1
8811    ,
8812      
8813    4
8814     =>
8815    1
8816    ,
8817      
8818    5
8819     =>
8820    1
8821    ,
8822      
8823    6
8824     =>
8825    1
8826    ,
8827      
8828    7
8829     =>
8830    1
8831    ,
8832      
8833    8
8834     =>
8835    1
8836    ,
8837      
8838    9
8839     =>
8840    1
8841    ,
8842      
8843    10
8844     =>
8845    1
8846    ,
8847    }->{$$self} ?
8848    'http://www.w3.org/TR/REC-xml' :
8849    undef;
8850    
8851    
8852    }
8853    $r;
8854    } else {my ($self) = @_;
8855    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::Element::ManakaiDOMDTDTypeInfo', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'type_namespace';
8856    }
8857    }
8858    sub is_derived_from ($$$$) {
8859    my ($self, $typeNamespaceArg, $typeNameArg, $derivationMethod) = @_;
8860    my $r = 0;
8861    
8862    
8863    $r}
8864    use overload
8865    bool => sub () {1},
8866    'eq' => sub ($$) {
8867    my ($self, $t) = @_;
8868    my $r = 0;
8869    
8870    {
8871    
8872    
8873    {
8874    
8875    local $Error::Depth = $Error::Depth + 1;
8876    
8877    {
8878    
8879    
8880      if
8881    (UNIVERSAL::isa ($t,
8882    'Message::DOM::IFLatest::TypeInfo'
8883    )) {
8884        my $ln1 = $self->
8885    type_name
8886    ;
8887        my $ln2 = $t->
8888    type_name
8889    ;
8890        if ((defined $ln1 and defined $ln2 and $ln1 eq $ln2) or
8891            (not defined $ln1 or not defined $ln2)) {
8892          my $ns1 = $self->
8893    type_namespace
8894    ;
8895          my $ns2 = $t->
8896    type_namespace
8897    ;
8898          if ((defined $ns1 and defined $ns2 and $ns1 eq $ns2) or
8899              (not defined $ns1 and not defined $ns2)) {
8900            $r =
8901    1
8902    ;
8903          }
8904        }
8905      }
8906    
8907    
8908    
8909    }
8910    
8911    
8912    ;}
8913    
8914    ;
8915    
8916    
8917    }
8918    $r}
8919    ,
8920    fallback => 1;
8921    $Message::DOM::DOMFeature::ClassInfo->{q<Message::DOM::Element::ManakaiDOMDTDTypeInfo>}->{has_feature} = {'core',
8922    {'',
8923    '1',
8924    '3.0',
8925    '1'},
8926    'xml',
8927    {'',
8928    '1',
8929    '3.0',
8930    '1'},
8931    'xmlversion',
8932    {'',
8933    '1',
8934    '1.0',
8935    '1',
8936    '1.1',
8937    '1'}};
8938    $Message::DOM::ClassPoint{q<Message::DOM::Element::ManakaiDOMDTDTypeInfo>} = 8.1;
8939    for ($Message::DOM::IF::Attr::, $Message::DOM::IF::Element::, $Message::DOM::IF::Node::, $Message::DOM::IF::TypeInfo::, $Message::DOM::IFLatest::Node::, $Message::DOM::IFLevel1::Attr::, $Message::DOM::IFLevel1::Element::, $Message::DOM::IFLevel1::Node::, $Message::DOM::IFLevel2::Attr::, $Message::DOM::IFLevel2::Element::, $Message::DOM::IFLevel2::Node::, $Message::DOM::IFLevel3::Attr::, $Message::DOM::IFLevel3::Element::, $Message::DOM::IFLevel3::Node::, $Message::DOM::IFLevel3::TypeInfo::){}
8940  ## License: <http://suika.fam.cx/~wakaba/archive/2004/8/18/license#Perl+MPL>  ## License: <http://suika.fam.cx/~wakaba/archive/2004/8/18/license#Perl+MPL>
8941  1;  1;
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24