20 |
|
|
21 |
if ({ |
if ({ |
22 |
## Read-only attributes (trivial accessors) |
## Read-only attributes (trivial accessors) |
23 |
|
node_name => 1, |
24 |
}->{$method_name}) { |
}->{$method_name}) { |
25 |
no strict 'refs'; |
no strict 'refs'; |
26 |
eval qq{ |
eval qq{ |
54 |
|
|
55 |
## The |Node| interface - attribute |
## The |Node| interface - attribute |
56 |
|
|
57 |
sub node_type { 81002 } # ATTRIBUTE_DEFINITION_NODE |
## Spec: |
58 |
|
## <http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core.html#ID-F68D095> |
59 |
|
## <http://suika.fam.cx/gate/2005/sw/AttributeDefinition> |
60 |
|
|
61 |
|
sub node_name ($); # read-only trivial accessor |
62 |
|
|
63 |
|
## Spec: |
64 |
|
## <http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core.html#ID-111237558> |
65 |
|
|
66 |
|
sub node_type ($) { 81002 } # ATTRIBUTE_DEFINITION_NODE |
67 |
|
|
68 |
|
## Spec: |
69 |
|
## <http://suika.fam.cx/gate/2005/sw/AttributeDefinition#anchor-2> |
70 |
|
|
71 |
|
## TODO: node_value |
72 |
|
|
73 |
package Message::IF::AttributeDefinition; |
package Message::IF::AttributeDefinition; |
74 |
|
|
77 |
## Spec: |
## Spec: |
78 |
## <http://suika.fam.cx/gate/2005/sw/DocumentXDoctype> |
## <http://suika.fam.cx/gate/2005/sw/DocumentXDoctype> |
79 |
|
|
80 |
sub create_attribute_definition ($$$) { |
sub create_attribute_definition ($$) { |
81 |
return Message::DOM::AttributeDefinition->____new (@_[0, 1]); |
return Message::DOM::AttributeDefinition->____new (@_[0, 1]); |
82 |
} # create_attribute_definition |
} # create_attribute_definition |
83 |
|
|