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

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

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

revision 1.2 by wakaba, Fri Jun 15 14:32:50 2007 UTC revision 1.3 by wakaba, Sat Jun 16 08:05:48 2007 UTC
# Line 4  our $VERSION=do{my @r=(q$Revision$=~/\d+ Line 4  our $VERSION=do{my @r=(q$Revision$=~/\d+
4  push our @ISA, 'Message::DOM::Node', 'Message::IF::Notation';  push our @ISA, 'Message::DOM::Node', 'Message::IF::Notation';
5  require Message::DOM::Node;  require Message::DOM::Node;
6    
 ## Spec:  
 ## <http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core.html#ID-5431D1B9>  
   
7  sub ____new ($$$) {  sub ____new ($$$) {
8    my $self = shift->SUPER::____new (shift);    my $self = shift->SUPER::____new (shift);
9    $$self->{node_name} = $_[0];    $$self->{node_name} = $_[0];
# Line 58  sub system_id ($;$); Line 55  sub system_id ($;$);
55    
56  ## The |Node| interface - attribute  ## The |Node| interface - attribute
57    
58  ## Spec:  sub child_nodes ($) {
59  ## <http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core.html#ID-F68D095>    require Message::DOM::NodeList;
60  ## <http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core.html#ID-1950641247>    return bless \\($_[0]), 'Message::DOM::NodeList::EmptyNodeList';
61    } # child_nodes
62    
63  sub node_name ($); # read-only trivial accessor  sub node_name ($); # read-only trivial accessor
64    
65  ## Spec:  sub node_type () { 12 } # NOTATION_NODE
 ## <http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core.html#ID-111237558>  
   
 sub node_type ($) { 12 } # NOTATION_NODE  
66    
67  package Message::IF::Notation;  package Message::IF::Notation;
68    
69  package Message::DOM::Document;  package Message::DOM::Document;
70    
 ## Spec:  
 ## <http://suika.fam.cx/gate/2005/sw/DocumentXDoctype>  
   
71  sub create_notation ($$) {  sub create_notation ($$) {
72    return Message::DOM::Notation->____new (@_[0, 1]);    return Message::DOM::Notation->____new (@_[0, 1]);
73  } # create_notation  } # create_notation
74    
75    =head1 LICENSE
76    
77    Copyright 2007 Wakaba <w@suika.fam.cx>
78    
79    This program is free software; you can redistribute it and/or
80    modify it under the same terms as Perl itself.
81    
82    =cut
83    
84  1;  1;
 ## License: <http://suika.fam.cx/~wakaba/archive/2004/8/18/license#Perl+MPL>  
85  ## $Date$  ## $Date$
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24