2 |
use strict; |
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 |
|
require Message::DOM::DOMException; |
6 |
|
|
7 |
sub ____new ($) { |
sub ____new ($) { |
8 |
my $self = bless {}, shift; |
my $self = bless {}, shift; |
59 |
$HasFeature->{q<http://suika.fam.cx/www/2006/feature/xdoctype>}->{''} = 1; |
$HasFeature->{q<http://suika.fam.cx/www/2006/feature/xdoctype>}->{''} = 1; |
60 |
$HasFeature->{q<http://suika.fam.cx/www/2006/feature/xdoctype>}->{'3.0'} = 1; |
$HasFeature->{q<http://suika.fam.cx/www/2006/feature/xdoctype>}->{'3.0'} = 1; |
61 |
|
|
62 |
|
sub ___report_error { $_[1]->throw } |
63 |
|
|
64 |
## |DOMImplementation| methods |
## |DOMImplementation| methods |
65 |
|
|
66 |
sub create_document ($;$$$); |
sub create_document ($;$$$); |