/[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.8 by wakaba, Sat Jul 14 09:19:11 2007 UTC revision 1.9 by wakaba, Sat Jul 14 16:32:28 2007 UTC
# Line 23  sub AUTOLOAD { Line 23  sub AUTOLOAD {
23      no strict 'refs';      no strict 'refs';
24      eval qq{      eval qq{
25        sub $method_name (\$) {        sub $method_name (\$) {
         if (\@_ > 1) {  
           require Carp;  
           Carp::croak (qq<Can't modify read-only attribute>);  
         }  
26          return \${\$_[0]}->{$method_name};          return \${\$_[0]}->{$method_name};
27        }        }
28      };      };
# Line 70  sub child_nodes ($) { Line 66  sub child_nodes ($) {
66    return bless \\($_[0]), 'Message::DOM::NodeList::EmptyNodeList';    return bless \\($_[0]), 'Message::DOM::NodeList::EmptyNodeList';
67  } # child_nodes  } # child_nodes
68    
69  sub node_name ($); # read-only trivial accessor  sub node_name ($);
70    
71  sub node_type () { 12 } # NOTATION_NODE  sub node_type () { 12 } # NOTATION_NODE
72    
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24