Message/DOM/DocumentFragment.pm

package Message::DOM::DocumentFragment;
use strict;
our $VERSION=do{my @r=(q$Revision: 1.4 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
push our @ISA, 'Message::DOM::Node', 'Message::IF::DocumentFragment';
require Message::DOM::Node;

sub ____new ($$) {
  my $self = shift->SUPER::____new (shift);
  $$self->{child_nodes} = [];
  return $self;
} # ____new
             
## |Node| attributes

sub node_name () { '#document-fragment' }

sub node_type () { 11 } # DOCUMENT_FRAGMENT_NODE

package Message::IF::DocumentFragment;

package Message::DOM::Document;

sub create_document_fragment ($) {
  return Message::DOM::DocumentFragment->____new ($_[0]);
} # create_document_fragment

=head1 LICENSE

Copyright 2007 Wakaba <w@suika.fam.cx>

This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

=cut

1;
## $Date: 2007/06/17 13:37:40 $
1	package Message::DOM::DocumentFragment;
2	use strict;
3	our $VERSION=do{my @r=(q$Revision: 1.4 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
4	push our @ISA, 'Message::DOM::Node', 'Message::IF::DocumentFragment';
5	require Message::DOM::Node;
6
7	sub ____new ($$) {
8	my $self = shift->SUPER::____new (shift);
9	$$self->{child_nodes} = [];
10	return $self;
11	} # ____new
12
13	## \|Node\| attributes
14
15	sub node_name () { '#document-fragment' }
16
17	sub node_type () { 11 } # DOCUMENT_FRAGMENT_NODE
18
19	package Message::IF::DocumentFragment;
20
21	package Message::DOM::Document;
22
23	sub create_document_fragment ($) {
24	return Message::DOM::DocumentFragment->____new ($_[0]);
25	} # create_document_fragment
26
27	=head1 LICENSE
28
29	Copyright 2007 Wakaba <w@suika.fam.cx>
30
31	This program is free software; you can redistribute it and/or
32	modify it under the same terms as Perl itself.
33
34	=cut
35
36	1;
37	## $Date: 2007/06/17 13:37:40 $