/[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.4 by wakaba, Sun Jun 17 13:37:40 2007 UTC revision 1.5 by wakaba, Sun Jun 17 14:15:38 2007 UTC
# Line 8  sub ____new ($$$) { Line 8  sub ____new ($$$) {
8    my $self = shift->SUPER::____new (shift);    my $self = shift->SUPER::____new (shift);
9    $$self->{node_name} = $_[0];    $$self->{node_name} = $_[0];
10    $$self->{child_nodes} = [];    $$self->{child_nodes} = [];
11      $$self->{allowed_token} = [];
12    return $self;    return $self;
13  } # ____new  } # ____new
14                            
# Line 93  sub node_type ($) { 81002 } # ATTRIBUTE_ Line 94  sub node_type ($) { 81002 } # ATTRIBUTE_
94    
95  ## |AttributeDefinition| attributes  ## |AttributeDefinition| attributes
96    
97    sub allowed_token ($) {
98      ## TODO:
99      return ${$_[0]}->{allowed_token};
100    }
101    
102  sub declared_type ($;$) {  sub declared_type ($;$) {
103    my $self = $_[0];    my $self = $_[0];
104    if (@_ > 1) {    if (@_ > 1) {
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24