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

Diff of /messaging/manakai/lib/Message/DOM/Entity.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 1  Line 1 
1  package Message::DOM::Notation;  package Message::DOM::Entity;
2  use strict;  use strict;
3  our $VERSION=do{my @r=(q$Revision$=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};  our $VERSION=do{my @r=(q$Revision$=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
4  push our @ISA, 'Message::DOM::Node', 'Message::IF::Notation';  push our @ISA, 'Message::DOM::Node', 'Message::IF::Entity';
5  require Message::DOM::Node;  require Message::DOM::Node;
6    
7  ## Spec:  ## Spec:
# 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 58  sub system_id ($;$); Line 59  sub system_id ($;$);
59    
60  ## The |Node| interface - attribute  ## The |Node| interface - attribute
61    
62  sub node_type { 6 } # ENTITY_NODE  ## Spec:
63    ## <http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core.html#ID-F68D095>
64    ## <http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core.html#ID-1950641247>
65    
66    sub node_name ($); # read-only trivial accessor
67    
68    ## Spec:
69    ## <http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core.html#ID-111237558>
70    
71    sub node_type ($) { 6 } # ENTITY_NODE
72    
73  package Message::IF::Entity;  package Message::IF::Entity;
74    
# Line 67  package Message::DOM::Document; Line 77  package Message::DOM::Document;
77  ## Spec:  ## Spec:
78  ## <http://suika.fam.cx/gate/2005/sw/DocumentXDoctype>  ## <http://suika.fam.cx/gate/2005/sw/DocumentXDoctype>
79    
80  sub create_general_entity ($$$) {  sub create_general_entity ($$) {
81    return Message::DOM::Entity->____new (@_[0, 1]);    return Message::DOM::Entity->____new (@_[0, 1]);
82  } # create_general_entity  } # create_general_entity
83    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
[email protected]
 ViewVC Help
Powered by ViewVC 1.1.24