Parent Directory
| 
Revision Log
++ manakai/t/ChangeLog 14 Jul 2007 16:32:13 -0000 2007-07-15 Wakaba <wakaba@suika.fam.cx> * DOM-TreeWalker.t, DOM-SerialWalker.t: New test scripts. * DOM-DOMImplementation.t: Tests for |Traversal| feature are added. * DOM-Node.t: Tests for |Traversal| feature are added. ++ manakai/lib/Message/DOM/ChangeLog 14 Jul 2007 16:31:23 -0000 2007-07-15 Wakaba <wakaba@suika.fam.cx> * TreeWalker.pm, SerialWalker.pm: New Perl modules. * Text.pm (whole_text): Parameter index number has been changed to support new |NodeFilter| Perl binding definition. 2007-07-14 Wakaba <wakaba@suika.fam.cx> * AttributeDefinition.pm, DOMElement.pm, DocumentType.pm, ElementTypeDefinition.pm, Entity.pm, EntityReference.pm, Notation.pm, ProcessingInstruction.pm (AUTOLOAD): Don't croak even if an attempt is made to modify a read-only attribute. * DOMConfiguration.pm (can_set_parameter, set_parameter): Don't allow to set the value to a string other than <http://www.w3.org/TR/REC-xml> (XML 1.0 DTD). * DOMDocument.pm (Message::IF::DocumentTraversal): New interface. (create_tree_walker, manakai_create_serial_walker): References and prototypes are added. * DOMException.pm (NULLPO_ERR): New error type:-). * DOMImplementation.pm ($HasFeature): Feature |Traversal|, version |2.0|, is added.
| 1 | wakaba | 1.1 | package Message::DOM::TreeWalker; |
| 2 | use strict; | ||
| 3 | our $VERSION=do{my @r=(q$Revision: 1.8 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r}; | ||
| 4 | push our @ISA, 'Message::IF::TreeWalker'; | ||
| 5 | |||
| 6 | sub AUTOLOAD { | ||
| 7 | my $method_name = our $AUTOLOAD; | ||
| 8 | $method_name =~ s/.*:://; | ||
| 9 | return if $method_name eq 'DESTROY'; | ||
| 10 | |||
| 11 | if ({ | ||
| 12 | expand_entity_references => 1, | ||
| 13 | filter => 1, | ||
| 14 | root => 1, | ||
| 15 | what_to_show => 1, | ||
| 16 |