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

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

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

revision 1.3 by wakaba, Sat May 26 06:34:46 2007 UTC revision 1.4 by wakaba, Wed Jun 13 12:04:51 2007 UTC
# Line 4  our $VERSION=do{my @r=(q$Revision$=~/\d+ Line 4  our $VERSION=do{my @r=(q$Revision$=~/\d+
4    
5  require Message::Util::Error::DOMException;  require Message::Util::Error::DOMException;
6    
7  package Message::DOM::IF::URIImplementation;  package Message::IF::URIImplementation;
8  package Message::DOM::DOMImplementation;  package Message::DOM::DOMImplementation;
9  push our @ISA, 'Message::DOM::IF::URIImplementation';  push our @ISA, 'Message::IF::URIImplementation';
10    
11  sub create_uri_reference ($$) {  sub create_uri_reference ($$) {
12    if (UNIVERSAL::isa ($_[1], 'Message::DOM::IF::URIReference')) {    if (UNIVERSAL::isa ($_[1], 'Message::IF::URIReference')) {
13      local $Error::Depth = $Error::Depth + 1;      local $Error::Depth = $Error::Depth + 1;
14      return $_[1]->clone_uri_reference;      return $_[1]->clone_uri_reference;
15    } elsif (ref $_[1] eq 'SCALAR') {    } elsif (ref $_[1] eq 'SCALAR') {
# Line 25  our $HasFeature; Line 25  our $HasFeature;
25  $HasFeature->{'http://suika.fam.cx/www/2006/feature/uri'}->{''} = 1;  $HasFeature->{'http://suika.fam.cx/www/2006/feature/uri'}->{''} = 1;
26  $HasFeature->{'http://suika.fam.cx/www/2006/feature/uri'}->{'4.0'} = 1;  $HasFeature->{'http://suika.fam.cx/www/2006/feature/uri'}->{'4.0'} = 1;
27    
28  package Message::DOM::IF::URIReference;  package Message::IF::URIReference;
29  package Message::URI::URIReference;  package Message::URI::URIReference;
30  push our @ISA, 'Message::DOM::IF::URIReference';  push our @ISA, 'Message::IF::URIReference';
31    
32  sub uri_reference ($;$) {  sub uri_reference ($;$) {
33  if (@_ == 1) {my ($self) = @_;  if (@_ == 1) {my ($self) = @_;
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24