Parent Directory | Revision Log | Patch
revision 1.6 by wakaba, Sat Jun 23 12:47:12 2007 UTC | revision 1.7 by wakaba, Sat Jul 7 04:47:29 2007 UTC | |
---|---|---|
# | Line 95 sub node_type ($) { 81002 } # ATTRIBUTE_ | Line 95 sub node_type ($) { 81002 } # ATTRIBUTE_ |
95 | ## |AttributeDefinition| attributes | ## |AttributeDefinition| attributes |
96 | ||
97 | sub allowed_tokens ($) { | sub allowed_tokens ($) { |
98 | ## TODO: | require Message::DOM::DOMStringList; |
99 | return ${$_[0]}->{allowed_tokens}; | return bless \[$_[0], 'allowed_tokens'], 'Message::DOM::DOMStringList'; |
100 | } | } # allowed_tokens |
101 | ||
102 | sub declared_type ($;$) { | sub declared_type ($;$) { |
103 | my $self = $_[0]; | my $self = $_[0]; |
|
admin@suikawiki.org | ViewVC Help |
Powered by ViewVC 1.1.24 |