/[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.5 by wakaba, Sat Nov 4 12:25:15 2006 UTC revision 1.6 by wakaba, Sat Dec 30 12:00:42 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-04T10:07:34+00:00,  ##      at 2006-12-30T11:56:30+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#all>.
7  ## Don't edit by hand!  ## Don't edit by hand!
8  use strict;  use strict;
9  require Message::DOM::DOMCore;  require Message::DOM::DOMCore;
10  require Message::Util::Error::DOMException;  require Message::Util::Error::DOMException;
11  package Message::URI::Generic;  package Message::URI::Generic;
12  our $VERSION = 20061104.1007;  our $VERSION = 20061230.1156;
13  package Message::URI::IFLatest::URIImplementation;  package Message::URI::IF::URIImplementation;
14  our $VERSION = 20061104.1007;  our $VERSION = 20061230.1156;
15  package Message::URI::Generic::ManakaiURIImplementation;  package Message::URI::Generic::ManakaiURIImplementation;
16  our $VERSION = 20061104.1007;  our $VERSION = 20061230.1156;
17  push our @ISA, 'Message::DOM::IFLatest::DOMImplementation',  push our @ISA, 'Message::DOM::IF::DOMImplementation',
18  'Message::DOM::IF::DOMImplementation',  'Message::DOM::IF::DOMImplementation',
19  'Message::DOM::IFLatest::DOMImplementation',  'Message::URI::IF::URIImplementation';
 'Message::URI::IF::URIImplementation',  
 'Message::URI::IFLatest::URIImplementation';  
20  push @Message::DOM::DOMCore::ManakaiDOMImplementation::ISA, q<Message::URI::Generic::ManakaiURIImplementation> unless Message::DOM::DOMCore::ManakaiDOMImplementation->isa (q<Message::URI::Generic::ManakaiURIImplementation>);  push @Message::DOM::DOMCore::ManakaiDOMImplementation::ISA, q<Message::URI::Generic::ManakaiURIImplementation> unless Message::DOM::DOMCore::ManakaiDOMImplementation->isa (q<Message::URI::Generic::ManakaiURIImplementation>);
21  sub create_uri_reference ($$) {  sub create_uri_reference ($$) {
22  my ($self, $uri) = @_;  my ($self, $uri) = @_;
# Line 28  my $r; Line 26  my $r;
26    
27  if  if
28  (UNIVERSAL::isa ($uri,  (UNIVERSAL::isa ($uri,
29  'Message::URI::IFLatest::URIReference'  'Message::URI::IF::URIReference'
30  )) {  )) {
31        
32    
# Line 71  $Message::DOM::ImplFeature{q<Message::UR Line 69  $Message::DOM::ImplFeature{q<Message::UR
69  $Message::DOM::DOMFeature::ClassInfo->{q<Message::URI::Generic::ManakaiURIImplementation>}->{has_feature} = {'',  $Message::DOM::DOMFeature::ClassInfo->{q<Message::URI::Generic::ManakaiURIImplementation>}->{has_feature} = {'',
70  {'',  {'',
71  '1'},  '1'},
72    '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',  'http://suika.fam.cx/www/2006/feature/uri',
78  {'',  {'',
79  '1',  '1',
80  '4.0',  '4.0',
81  '1'},  '1'},
82    'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#minimum',
83    {'',
84    '1',
85    '3.0',
86    '1'},
87  'xml',  'xml',
88  {'',  {'',
89  '1',  '1',
# Line 92  $Message::DOM::DOMFeature::ClassInfo->{q Line 100  $Message::DOM::DOMFeature::ClassInfo->{q
100  '1',  '1',
101  '1.1',  '1.1',
102  '1'}};  '1'}};
103  $Message::DOM::ClassPoint{q<Message::URI::Generic::ManakaiURIImplementation>} = 12.1;  $Message::DOM::ClassPoint{q<Message::URI::Generic::ManakaiURIImplementation>} = 15.1;
104  $Message::DOM::ManakaiDOMImplementationSource::SourceClass{q<Message::URI::Generic::ManakaiURIImplementation>} = 1;  package Message::URI::IF::URIReference;
105  $Message::DOM::DOMFeature::ClassInfo->{q<Message::DOM::DOMFeature::ManakaiMinimumImplementation>}->{compat_class}->{q<Message::URI::Generic::ManakaiURIImplementation>} = 1;  our $VERSION = 20061230.1156;
 package Message::URI::IFLatest::URIReference;  
 our $VERSION = 20061104.1007;  
106  package Message::URI::Generic::ManakaiURIReference;  package Message::URI::Generic::ManakaiURIReference;
107  our $VERSION = 20061104.1007;  our $VERSION = 20061230.1156;
108  push our @ISA, 'Message::URI::IF::URIReference',  push our @ISA, 'Message::URI::IF::URIReference';
 'Message::URI::IFLatest::URIReference';  
109  sub _new ($$) {  sub _new ($$) {
110  my ($self, $uri) = @_;  my ($self, $uri) = @_;
111  my $r;  my $r;
# Line 111  my Line 116  my
116  $v;  $v;
117  if (ref $uri) {  if (ref $uri) {
118    if (UNIVERSAL::isa ($uri,    if (UNIVERSAL::isa ($uri,
119  'Message::URI::IFLatest::URIReference'  'Message::URI::IF::URIReference'
120  )) {  )) {
121      my $w = $$uri;      my $w = $$uri;
122      $v = \$w;      $v = \$w;
# Line 2675  $Message::DOM::DOMFeature::ClassInfo->{q Line 2680  $Message::DOM::DOMFeature::ClassInfo->{q
2680  '4.0',  '4.0',
2681  '1'}};  '1'}};
2682  $Message::DOM::ClassPoint{q<Message::URI::Generic::ManakaiURIReference>} = 4;  $Message::DOM::ClassPoint{q<Message::URI::Generic::ManakaiURIReference>} = 4;
2683  for ($Message::DOM::IF::DOMImplementation::, $Message::DOM::IFLatest::DOMImplementation::, $Message::URI::IF::URIImplementation::, $Message::URI::IF::URIReference::){}  for ($Message::DOM::IF::DOMImplementation::){}
2684  ## 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>
2685  1;  1;
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24