/[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.9 by wakaba, Sun Jul 8 13:04:36 2007 UTC revision 1.10 by wakaba, Thu Jul 12 13:54:46 2007 UTC
# Line 21  sub AUTOLOAD { Line 21  sub AUTOLOAD {
21    if ({    if ({
22      ## Read-only attributes (trivial accessors)      ## Read-only attributes (trivial accessors)
23      node_name => 1,      node_name => 1,
24        owner_element_type_definition => 1,
25    }->{$method_name}) {    }->{$method_name}) {
26      no strict 'refs';      no strict 'refs';
27      eval qq{      eval qq{
# Line 137  sub default_type ($;$) { Line 138  sub default_type ($;$) {
138    return $$self->{default_type} || 0;    return $$self->{default_type} || 0;
139  } # default_type  } # default_type
140    
141    sub owner_element_type_definition ($);
142    
143  package Message::IF::AttributeDefinition;  package Message::IF::AttributeDefinition;
144    
145  package Message::DOM::Document;  package Message::DOM::Document;
146    
 ## Spec:  
 ## <http://suika.fam.cx/gate/2005/sw/DocumentXDoctype>  
   
147  sub create_attribute_definition ($$) {  sub create_attribute_definition ($$) {
148    return Message::DOM::AttributeDefinition->____new (@_[0, 1]);    return Message::DOM::AttributeDefinition->____new (@_[0, 1]);
149  } # create_attribute_definition  } # create_attribute_definition
150    
151    =head1 LICENSE
152    
153    Copyright 2007 Wakaba <w@suika.fam.cx>
154    
155    This program is free software; you can redistribute it and/or
156    modify it under the same terms as Perl itself.
157    
158    =cut
159    
160  1;  1;
 ## License: <http://suika.fam.cx/~wakaba/archive/2004/8/18/license#Perl+MPL>  
161  ## $Date$  ## $Date$
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24