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

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

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

revision 1.7 by wakaba, Sat Jul 7 04:47:29 2007 UTC revision 1.8 by wakaba, Sun Jul 8 05:42:36 2007 UTC
# Line 3  use strict; Line 3  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::AttributeDefinition';  push our @ISA, 'Message::DOM::Node', 'Message::IF::AttributeDefinition';
5  require Message::DOM::Node;  require Message::DOM::Node;
6    require Message::DOM::Attr;
7    
8  sub ____new ($$$) {  sub ____new ($$$) {
9    my $self = shift->SUPER::____new (shift);    my $self = shift->SUPER::____new (shift);
# Line 92  sub node_type ($) { 81002 } # ATTRIBUTE_ Line 93  sub node_type ($) { 81002 } # ATTRIBUTE_
93    
94  ## TODO: node_value  ## TODO: node_value
95    
96    ## |Node| methods
97    
98    *append_child = \&Message::DOM::Attr::append_child;
99    
100    *insert_before = \&Message::DOM::Attr::insert_before;
101    
102    *replace_child = \&Message::DOM::Attr::replace_child;
103    
104  ## |AttributeDefinition| attributes  ## |AttributeDefinition| attributes
105    
106  sub allowed_tokens ($) {  sub allowed_tokens ($) {
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24