/[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.1 by wakaba, Thu Jun 14 13:10:07 2007 UTC revision 1.2 by wakaba, Fri Jun 15 14:32:50 2007 UTC
# Line 20  sub AUTOLOAD { Line 20  sub AUTOLOAD {
20    
21    if ({    if ({
22      ## Read-only attributes (trivial accessors)      ## Read-only attributes (trivial accessors)
23        node_name => 1,
24    }->{$method_name}) {    }->{$method_name}) {
25      no strict 'refs';      no strict 'refs';
26      eval qq{      eval qq{
# Line 57  sub system_id ($;$); Line 58  sub system_id ($;$);
58    
59  ## The |Node| interface - attribute  ## The |Node| interface - attribute
60    
61  sub node_type { 12 } # NOTATION_NODE  ## Spec:
62    ## <http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core.html#ID-F68D095>
63    ## <http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core.html#ID-1950641247>
64    
65    sub node_name ($); # read-only trivial accessor
66    
67    ## Spec:
68    ## <http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core.html#ID-111237558>
69    
70    sub node_type ($) { 12 } # NOTATION_NODE
71    
72  package Message::IF::Notation;  package Message::IF::Notation;
73    
# Line 66  package Message::DOM::Document; Line 76  package Message::DOM::Document;
76  ## Spec:  ## Spec:
77  ## <http://suika.fam.cx/gate/2005/sw/DocumentXDoctype>  ## <http://suika.fam.cx/gate/2005/sw/DocumentXDoctype>
78    
79  sub create_notation ($$$) {  sub create_notation ($$) {
80    return Message::DOM::Notation->____new (@_[0, 1]);    return Message::DOM::Notation->____new (@_[0, 1]);
81  } # create_notation  } # create_notation
82    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24