/[suikacvs]/messaging/manakai/lib/Message/DOM/DOMImplementation.pm
Suika

Contents of /messaging/manakai/lib/Message/DOM/DOMImplementation.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (hide annotations) (download)
Wed Jun 13 12:04:50 2007 UTC (17 years, 5 months ago) by wakaba
Branch: MAIN
++ manakai/t/ChangeLog	13 Jun 2007 12:04:43 -0000
2007-06-13  Wakaba  <wakaba@suika.fam.cx>

	* DOM-DOMImplementation.t: New test.

2007-05-26  Wakaba  <wakaba@suika.fam.cx>

	* IMT-InternetMediaType.t: Tests for |add_parameter| are added.

++ manakai/lib/Message/IMT/ChangeLog	13 Jun 2007 12:03:40 -0000
	* InternetMediaType.pm (add_paremter): New method.

2007-05-26  Wakaba  <wakaba@suika.fam.cx>

++ manakai/lib/Message/DOM/ChangeLog	13 Jun 2007 12:02:59 -0000
2007-06-13  Wakaba  <wakaba@suika.fam.cx>

	* DOMImplementation.pm, Node.pm, DOMDocument.pm,
	DOMElement.pm, Attr.pm, DocumentType.pm,
	DOMCharacterData.pm, Text.pm, Comment.pm: Copied
	from <http://suika.fam.cx/gate/cvs/*checkout*/markup/html/whatpm/Whatpm/NanoDOM.pm?rev=1.9>.

2007-06-10  Wakaba  <wakaba@suika.fam.cx>

	* XMLParser.dis: Default to "1.0" if <?xml version=""?>
	specifies unknown value and trys to recover from the error.

++ manakai/lib/Message/URI/ChangeLog	13 Jun 2007 12:04:07 -0000
2007-06-13  Wakaba  <wakaba@suika.fam.cx>

	* URIReference.pm (Message::IF::URIReference):
	Renamed from |Message::DOM::IF::URIReference|.

1 wakaba 1.1 package Message::DOM::DOMImplementation;
2     use strict;
3     our $VERSION=do{my @r=(q$Revision: 1.3 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
4     push our @ISA, 'Message::IF::DOMImplementation';
5    
6     sub ____new ($) {
7     my $self = bless {}, shift;
8     return $self;
9     } # ____new
10    
11     sub AUTOLOAD {
12     my $method_name = our $AUTOLOAD;
13     $method_name =~ s/.*:://;
14     return if $method_name eq 'DESTROY';
15    
16     my $module_name = {
17     create_document => 'Message::DOM::DOMDocument', ## TODO: New module name
18     create_uri_reference => 'Message::URI::URIReference',
19     }->{$method_name};
20     if ($module_name) {
21     eval qq{ require $module_name } or die $@;
22     no strict 'refs';
23     goto &{ $AUTOLOAD };
24     } else {
25     require Carp;
26     Carp::croak (qq<Can't locate method "$AUTOLOAD">);
27     }
28     } # AUTOLOAD
29     ## DOMImplementation
30     sub create_document ($;$$$);
31     ## URIImplementation
32     sub create_uri_reference ($$);
33    
34     #our $HasFeature;
35    
36     ## TODO: getFeature
37     ## TODO: hasFeature
38    
39     ## NOTE: createDocumentType will be defined in DocumentType.pm
40    
41     package Message::IF::DOMImplementation;
42    
43     1;
44     ## License: <http://suika.fam.cx/~wakaba/archive/2004/8/18/license#Perl+MPL>
45     ## $Date:$

admin@suikawiki.org
ViewVC Help
Powered by ViewVC 1.1.24