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

Diff of /messaging/manakai/lib/Message/DOM/EntityReference.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 9  require Message::DOM::Node; Line 9  require Message::DOM::Node;
9    
10  sub ____new ($$$) {  sub ____new ($$$) {
11    my $self = shift->SUPER::____new (shift);    my $self = shift->SUPER::____new (shift);
12    $$self->{name} = $_[0];    $$self->{node_name} = $_[0];
13    return $self;    return $self;
14  } # ____new  } # ____new
15                            
# Line 20  sub AUTOLOAD { Line 20  sub AUTOLOAD {
20    
21    if ({    if ({
22      ## Read-only attributes (trivial accessors)      ## Read-only attributes (trivial accessors)
23      name => 1,      node_name => 1,
24    }->{$method_name}) {    }->{$method_name}) {
25      no strict 'refs';      no strict 'refs';
26      eval qq{      eval qq{
# Line 51  sub AUTOLOAD { Line 51  sub AUTOLOAD {
51      Carp::croak (qq<Can't locate method "$AUTOLOAD">);      Carp::croak (qq<Can't locate method "$AUTOLOAD">);
52    }    }
53  } # AUTOLOAD  } # AUTOLOAD
 sub name ($);  
54    
55  ## The |Node| interface - attribute  ## The |Node| interface - attribute
56    
57  sub node_type { 5 } # ENTITY_REFERENCE_NODE  ## Spec:
58    ## <http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core.html#ID-F68D095>
59    ## <http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core.html#ID-1950641247>
60    
61    sub node_name ($); # read-only trivial accessor
62    
63    ## Spec:
64    ## <http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core.html#ID-111237558>
65    
66    sub node_type ($) { 5 } # ENTITY_REFERENCE_NODE
67    
68  package Message::IF::EntityReference;  package Message::IF::EntityReference;
69    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24