Parent Directory
| 
Revision Log
++ manakai/t/ChangeLog 16 Jun 2007 15:27:38 -0000 * DOM-Node.t: Tests for |prefix| and |text_content| are added. 2007-06-16 Wakaba <wakaba@suika.fam.cx> ++ manakai/lib/Message/DOM/ChangeLog 16 Jun 2007 15:27:12 -0000 * DOMConfiguration.pm: New module. * Attr.pm (trivial accessor for read-write attributes): Throw an exception if the node is read-only. Delete the property if undef is specified. (prefix): Implemented. * DOMElement.pm (trivial accessor for read-write attributes): Throw an exception if the node is read-only. Delete the property if undef is specified. (prefix): Implemented. (text_content, manakai_append_text): Old implementations are removed. * DOMCharacterData.pm (text_content): Implemented. * DOMDocument.pm (____new): Initialize the strict-document-children parameter by true. (text_content): Reimplemented. (dom_config): New. * DOMException.pm (READ_ONLY_NODE_ERR): New subtype. * DocumentType.pm (text_content): Implemented. * ElementTypeDefinition.pm (text_content): Implemented. * Node.pm (___report_error): New method. (text_content): Implemented. (manakai_append_text): Copied from |DOMElement.pm|. * Notation.pm (text_content): Implemented. * ProcessingInstruction.pm (text_content): Implemented. * Text.pm (is_element_content_whitespace): Alpha version. 2007-06-16 Wakaba <wakaba@suika.fam.cx>
| 1 | package Message::DOM::DOMConfiguration; |
| 2 | use strict; |
| 3 | our $VERSION=do{my @r=(q$Revision: 1.1 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r}; |
| 4 | push our @ISA, 'Message::IF::DOMConfiguration'; |
| 5 | require Message::DOM::DOMException; |
| 6 | |
| 7 | use overload |
| 8 | eq => sub { |
| 9 | return 0 unless UNIVERSAL::isa ($_[1], 'Message::DOM::DOMConfiguration'); |
| 10 | return $${$_[0]} eq $${$_[1]}; |
| 11 | }, |
| 12 | ne => sub { |
| 13 | return not ($_[0] eq $_[1]); |
| 14 | }, |
| 15 | fallback => 1; |
| 16 | |
| 17 | sub ___report_error ($$) { |
| 18 | $_[1]->throw; |
| 19 | } # ___report_error |
| 20 | |
| 21 | ## |DOMConfiguration| methods |
| 22 | |
| 23 | sub set_parameter ($$;$) { |
| 24 | ${$${$_[0]}}->{$_[1]} = $_[2]; |
| 25 | } # set_parameter |
| 26 | |
| 27 | package Message::IF::DOMConfiguration; |
| 28 | |
| 29 | =head1 LICENSE |
| 30 | |
| 31 | Copyright 2007 Wakaba <w@suika.fam.cx> |
| 32 | |
| 33 | This program is free software; you can redistribute it and/or |
| 34 | modify it under the same terms as Perl itself. |
| 35 | |
| 36 | =cut |
| 37 | |
| 38 | 1; |
| 39 | ## $Date: 2007/06/16 08:05:48 $ |
| admin@suikawiki.org | ViewVC Help |
| Powered by ViewVC 1.1.24 |