/[suikacvs]/messaging/manakai/lib/Message/URI/Generic.pm
Suika

Diff of /messaging/manakai/lib/Message/URI/Generic.pm

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

revision 1.1 by wakaba, Sun Mar 12 10:13:31 2006 UTC revision 1.2 by wakaba, Thu Mar 30 16:01:45 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-03-05T10:38:07+00:00,  ##      at 2006-03-30T11:38:24+00:00,
4  ##      from file "Generic.dis",  ##      from file "../URI/Generic.dis",
5  ##      module <http://suika.fam.cx/~wakaba/archive/2005/manakai/URI/Generic>,  ##      module <http://suika.fam.cx/~wakaba/archive/2005/manakai/URI/Generic>,
6  ##      for <http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ManakaiDOMLatest>.  ##      for <http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ManakaiDOMLatest>.
7  ## Don't edit by hand!  ## Don't edit by hand!
# Line 9  use strict; Line 9  use strict;
9  require Message::DOM::DOMFeature;  require Message::DOM::DOMFeature;
10  require Message::Util::Error::DOMException;  require Message::Util::Error::DOMException;
11  package Message::URI::Generic;  package Message::URI::Generic;
12  our $VERSION = 20060305.1038;  our $VERSION = 20060330.1138;
13  package Message::DOM::IFLatest::URIImplementation;  package Message::URI::IFLatest::URIImplementation;
14  our $VERSION = 20060305.1038;  our $VERSION = 20060330.1138;
15  package Message::URI::Generic::ManakaiURIImplementation;  package Message::URI::Generic::ManakaiURIImplementation;
16  our $VERSION = 20060305.1038;  our $VERSION = 20060330.1138;
17  push our @ISA, 'Message::DOM::DOMFeature::ManakaiMinimumImplementation', 'Message::DOM::IF::GetFeature', 'Message::DOM::IF::MinimumImplementation', 'Message::DOM::IF::URIImplementation', 'Message::DOM::IFLatest::GetFeature', 'Message::DOM::IFLatest::MinimumImplementation', 'Message::DOM::IFLatest::URIImplementation';  push our @ISA, 'Message::DOM::DOMFeature::ManakaiMinimumImplementation',
18    'Message::DOM::IF::GetFeature',
19    'Message::DOM::IF::MinimumImplementation',
20    'Message::DOM::IFLatest::GetFeature',
21    'Message::DOM::IFLatest::MinimumImplementation',
22    'Message::URI::IF::URIImplementation',
23    'Message::URI::IFLatest::URIImplementation';
24  sub create_uri_reference ($$) {  sub create_uri_reference ($$) {
25  my ($self, $uri) = @_;  my ($self, $uri) = @_;
26  my $r;  my $r;
# Line 23  my $r; Line 29  my $r;
29    
30  if  if
31  (UNIVERSAL::isa ($uri,  (UNIVERSAL::isa ($uri,
32  'Message::DOM::IFLatest::URIReference'  'Message::URI::IFLatest::URIReference'
33  )) {  )) {
34        
35    
# Line 63  clone_uri_reference Line 69  clone_uri_reference
69  $r}  $r}
70  $Message::DOM::ImplFeature{q<Message::URI::Generic::ManakaiURIImplementation>}->{q<http://suika.fam.cx/www/2006/feature/uri>}->{q<4.0>} ||= 1;  $Message::DOM::ImplFeature{q<Message::URI::Generic::ManakaiURIImplementation>}->{q<http://suika.fam.cx/www/2006/feature/uri>}->{q<4.0>} ||= 1;
71  $Message::DOM::ImplFeature{q<Message::URI::Generic::ManakaiURIImplementation>}->{q<http://suika.fam.cx/www/2006/feature/uri>}->{q<>} = 1;  $Message::DOM::ImplFeature{q<Message::URI::Generic::ManakaiURIImplementation>}->{q<http://suika.fam.cx/www/2006/feature/uri>}->{q<>} = 1;
72  $Message::DOM::ClassFeature{q<Message::URI::Generic::ManakaiURIImplementation>} = {'http://suika.fam.cx/www/2006/feature/min', {'', '1', '3.0', '1'}, 'http://suika.fam.cx/www/2006/feature/uri', {'', '1', '4.0', '1'}, 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#minimum', {'', '1', '3.0', '1'}};  $Message::DOM::DOMFeature::ClassInfo->{q<Message::URI::Generic::ManakaiURIImplementation>}->{has_feature} = {'http://suika.fam.cx/www/2006/feature/min',
73    {'',
74    '1',
75    '3.0',
76    '1'},
77    'http://suika.fam.cx/www/2006/feature/uri',
78    {'',
79    '1',
80    '4.0',
81    '1'},
82    'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#minimum',
83    {'',
84    '1',
85    '3.0',
86    '1'}};
87  $Message::DOM::ClassPoint{q<Message::URI::Generic::ManakaiURIImplementation>} = 7;  $Message::DOM::ClassPoint{q<Message::URI::Generic::ManakaiURIImplementation>} = 7;
88  $Message::DOM::ManakaiDOMImplementationSource::SourceClass{q<Message::URI::Generic::ManakaiURIImplementation>} = 1;  $Message::DOM::ManakaiDOMImplementationSource::SourceClass{q<Message::URI::Generic::ManakaiURIImplementation>} = 1;
89  $Message::DOM::ManakaiDOMImplementation::CompatClass{q<Message::URI::Generic::ManakaiURIImplementation>} = 1;  $Message::DOM::DOMFeature::ClassInfo->{q<Message::DOM::DOMFeature::ManakaiMinimumImplementation>}->{compat_class}->{q<Message::URI::Generic::ManakaiURIImplementation>} = 1;
90  $Message::Util::ManakaiNode::ManakaiNodeRef::Prop{q<Message::URI::Generic::ManakaiURIImplementation>} = {};  $Message::Util::Grove::ClassProp{q<Message::URI::Generic::ManakaiURIImplementation>} = {'v1h',
91  package Message::DOM::IFLatest::URIReference;  ['lpmi']};
92  our $VERSION = 20060305.1038;  package Message::URI::IFLatest::URIReference;
93    our $VERSION = 20060330.1138;
94  package Message::URI::Generic::ManakaiURIReference;  package Message::URI::Generic::ManakaiURIReference;
95  our $VERSION = 20060305.1038;  our $VERSION = 20060330.1138;
96  push our @ISA, 'Message::DOM::IF::URIReference', 'Message::DOM::IFLatest::URIReference';  push our @ISA, 'Message::URI::IF::URIReference',
97    'Message::URI::IFLatest::URIReference';
98  sub _new ($$) {  sub _new ($$) {
99  my ($self, $uri) = @_;  my ($self, $uri) = @_;
100  my $r;  my $r;
# Line 83  my Line 105  my
105  $v;  $v;
106  if (ref $uri) {  if (ref $uri) {
107    if (UNIVERSAL::isa ($uri,    if (UNIVERSAL::isa ($uri,
108  'Message::DOM::IFLatest::URIReference'  'Message::URI::IFLatest::URIReference'
109  )) {  )) {
110      my $w = $$uri;      my $w = $$uri;
111      $v = \$w;      $v = \$w;
# Line 2641  local $Error::Depth = $Error::Depth + 1; Line 2663  local $Error::Depth = $Error::Depth + 1;
2663  $r}  $r}
2664  ,  ,
2665  fallback => 1;  fallback => 1;
2666  $Message::DOM::ClassFeature{q<Message::URI::Generic::ManakaiURIReference>} = {'http://suika.fam.cx/www/2006/feature/uri', {'', '1', '4.0', '1'}};  $Message::DOM::DOMFeature::ClassInfo->{q<Message::URI::Generic::ManakaiURIReference>}->{has_feature} = {'http://suika.fam.cx/www/2006/feature/uri',
2667    {'',
2668    '1',
2669    '4.0',
2670    '1'}};
2671  $Message::DOM::ClassPoint{q<Message::URI::Generic::ManakaiURIReference>} = 4;  $Message::DOM::ClassPoint{q<Message::URI::Generic::ManakaiURIReference>} = 4;
2672  for ($Message::DOM::IF::GetFeature::, $Message::DOM::IF::MinimumImplementation::, $Message::DOM::IF::URIImplementation::, $Message::DOM::IF::URIReference::, $Message::DOM::IFLatest::GetFeature::, $Message::DOM::IFLatest::MinimumImplementation::){}  for ($Message::DOM::IF::GetFeature::, $Message::DOM::IF::MinimumImplementation::, $Message::DOM::IFLatest::GetFeature::, $Message::DOM::IFLatest::MinimumImplementation::, $Message::URI::IF::URIImplementation::, $Message::URI::IF::URIReference::){}
2673  ## 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>
2674  1;  1;
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24