Parent Directory
| 
Revision Log
++ manakai/t/ChangeLog 21 Jun 2007 14:57:40 -0000 2007-06-21 Wakaba <wakaba@suika.fam.cx> * DOM-Node.t: Tests for |node_type| are added. ++ manakai/lib/Message/DOM/ChangeLog 21 Jun 2007 14:57:15 -0000 * Comment.pm (node_type): Node type was incorrect! * DOMConfiguration.pm (get_parameter): Alpha. * DOMImplementation.pm (create_mc_decode_handler, create_charset_name_from_uri, create_uri_from_charset_name): New autoload configuration. Note that the Message::Charset::Encode module is subject to change. * XMLParserTemp.pm: Now it can be used with new version of DOM implementation. Current plan is to replace it by an XML5 parser someday. 2007-06-21 Wakaba <wakaba@suika.fam.cx>
| 1 | package Message::DOM::DOMConfiguration; |
| 2 | use strict; |
| 3 | our $VERSION=do{my @r=(q$Revision: 1.2 $=~/\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 get_parameter ($$) { |
| 24 | return ${$${$_[0]}}->{$_[1]}; |
| 25 | } # get_parameter |
| 26 | |
| 27 | sub set_parameter ($$;$) { |
| 28 | if (defined $_[2]) { |
| 29 | ${$${$_[0]}}->{$_[1]} = $_[2]; |
| 30 | } else { |
| 31 | if ($_[1] eq 'http://suika.fam.cx/www/2006/dom-config/clone-entity-reference-subtree' or |
| 32 | $_[1] eq 'http://suika.fam.cx/www/2006/dom-config/dtd-default-attribute' or |
| 33 | $_[1] eq 'http://suika.fam.cx/www/2006/dom-config/strict-document-children') { |
| 34 | ${$${$_[0]}}->{$_[1]} = 1; |
| 35 | } elsif ($_[1] eq 'error-handler') { |
| 36 | ${$${$_[0]}}->{$_[1]} = sub { }; |
| 37 | } else { |
| 38 | delete ${$${$_[0]}}->{$_[1]}; |
| 39 | } |
| 40 | } |
| 41 | ## http://suika.fam.cx/www/2006/dom-config/clone-entity-reference-subtree |
| 42 | ## http://suika.fam.cx/www/2006/dom-config/dtd-default-attribute |
| 43 | ## http://suika.fam.cx/www/2006/dom-config/xml-id |
| 44 | ## error-handler |
| 45 | ## xml-dtd |
| 46 | ## http://suika.fam.cx/www/2006/dom-config/strict-document-children |
| 47 | } # set_parameter |
| 48 | |
| 49 | package Message::IF::DOMConfiguration; |
| 50 | |
| 51 | =head1 LICENSE |
| 52 | |
| 53 | Copyright 2007 Wakaba <w@suika.fam.cx> |
| 54 | |
| 55 | This program is free software; you can redistribute it and/or |
| 56 | modify it under the same terms as Perl itself. |
| 57 | |
| 58 | =cut |
| 59 | |
| 60 | 1; |
| 61 | ## $Date: 2007/06/17 13:37:40 $ |
| admin@suikawiki.org | ViewVC Help |
| Powered by ViewVC 1.1.24 |