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 | wakaba | 1.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 |