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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by wakaba, Wed Jun 13 12:04:50 2007 UTC revision 1.2 by wakaba, Thu Jun 14 13:10:07 2007 UTC
# Line 3  use strict; Line 3  use strict;
3  our $VERSION=do{my @r=(q$Revision$=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};  our $VERSION=do{my @r=(q$Revision$=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
4  push our @ISA, 'Message::IF::DOMImplementation';  push our @ISA, 'Message::IF::DOMImplementation';
5    
6    ## Spec:
7    ## <http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core.html#ID-102161490>
8    
9  sub ____new ($) {  sub ____new ($) {
10    my $self = bless {}, shift;    my $self = bless {}, shift;
11    return $self;    return $self;
# Line 15  sub AUTOLOAD { Line 18  sub AUTOLOAD {
18    
19    my $module_name = {    my $module_name = {
20      create_document => 'Message::DOM::DOMDocument', ## TODO: New module name      create_document => 'Message::DOM::DOMDocument', ## TODO: New module name
21        create_document_type => 'Message::DOM::DocumentType',
22      create_uri_reference => 'Message::URI::URIReference',        create_uri_reference => 'Message::URI::URIReference',  
23    }->{$method_name};    }->{$method_name};
24    if ($module_name) {    if ($module_name) {
# Line 28  sub AUTOLOAD { Line 32  sub AUTOLOAD {
32  } # AUTOLOAD  } # AUTOLOAD
33  ## DOMImplementation  ## DOMImplementation
34  sub create_document ($;$$$);  sub create_document ($;$$$);
35    sub create_document_type ($$;$$);
36  ## URIImplementation  ## URIImplementation
37  sub create_uri_reference ($$);  sub create_uri_reference ($$);
38    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24