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	wakaba	1.1	package Message::DOM::DocumentFragment;
2			use strict;
3	wakaba	1.5	our $VERSION=do{my @r=(q$Revision: 1.4 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
4	wakaba	1.1	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	wakaba	1.3	$$self->{child_nodes} = [];
10	wakaba	1.1	return $self;
11			} # ____new
12
13	wakaba	1.4	## \|Node\| attributes
14	wakaba	1.2
15	wakaba	1.5	sub node_name () { '#document-fragment' }
16	wakaba	1.2
17	wakaba	1.5	sub node_type () { 11 } # DOCUMENT_FRAGMENT_NODE
18	wakaba	1.1
19			package Message::IF::DocumentFragment;
20
21			package Message::DOM::Document;
22
23	wakaba	1.2	sub create_document_fragment ($) {
24	wakaba	1.1	return Message::DOM::DocumentFragment->____new ($_[0]);
25			} # create_document_fragment
26
27	wakaba	1.5	=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	wakaba	1.1	1;
37	wakaba	1.5	## $Date: 2007/06/17 13:37:40 $