Message/DOM/DocumentFragment.pm

package Message::DOM::DocumentFragment;
use strict;
our $VERSION=do{my @r=(q$Revision: 1.3 $=~/\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
             
sub AUTOLOAD {
  my $method_name = our $AUTOLOAD;
  $method_name =~ s/.*:://;
  return if $method_name eq 'DESTROY';

  if ({
    ## Read-only attributes (trivial accessors)
  }->{$method_name}) {
    no strict 'refs';
    eval qq{
      sub $method_name (\$) {
        if (\@_ > 1) {
          require Carp;
          Carp::croak (qq<Can't modify read-only attribute>);
        }
        return \${\$_[0]}->{$method_name}; 
      }
    };
    goto &{ $AUTOLOAD };
  } elsif ({
    ## Read-write attributes (DOMString, trivial accessors)
  }->{$method_name}) {
    no strict 'refs';
    eval qq{
      sub $method_name (\$) {
        if (\@_ > 1) {
          \${\$_[0]}->{$method_name} = ''.$_[1];
        }
        return \${\$_[0]}->{$method_name}; 
      }
    };
    goto &{ $AUTOLOAD };
  } else {
    require Carp;
    Carp::croak (qq<Can't locate method "$AUTOLOAD">);
  }
} # AUTOLOAD

## |Node| attributes

sub node_name ($) {
  return '#document-fragment';
} # node_name

## Spec:
## <http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core.html#ID-111237558>

sub node_type ($) { 11 } # DOCUMENT_FRAGMENT_NODE

package Message::IF::DocumentFragment;

package Message::DOM::Document;

## Spec:
## <http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core.html#ID-35CB04B5>

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

1;
## License: <http://suika.fam.cx/~wakaba/archive/2004/8/18/license#Perl+MPL>
## $Date: 2007/06/16 08:05:48 $
1	wakaba	1.1	package Message::DOM::DocumentFragment;
2			use strict;
3	wakaba	1.4	our $VERSION=do{my @r=(q$Revision: 1.3 $=~/\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			sub AUTOLOAD {
14			my $method_name = our $AUTOLOAD;
15			$method_name =~ s/.*:://;
16			return if $method_name eq 'DESTROY';
17
18			if ({
19			## Read-only attributes (trivial accessors)
20			}->{$method_name}) {
21			no strict 'refs';
22			eval qq{
23			sub $method_name (\$) {
24			if (\@_ > 1) {
25			require Carp;
26			Carp::croak (qq<Can't modify read-only attribute>);
27			}
28			return \${\$_[0]}->{$method_name};
29			}
30			};
31			goto &{ $AUTOLOAD };
32			} elsif ({
33			## Read-write attributes (DOMString, trivial accessors)
34			}->{$method_name}) {
35			no strict 'refs';
36			eval qq{
37			sub $method_name (\$) {
38			if (\@_ > 1) {
39			\${\$_[0]}->{$method_name} = ''.$_[1];
40			}
41			return \${\$_[0]}->{$method_name};
42			}
43			};
44			goto &{ $AUTOLOAD };
45			} else {
46			require Carp;
47			Carp::croak (qq<Can't locate method "$AUTOLOAD">);
48			}
49			} # AUTOLOAD
50
51	wakaba	1.4	## \|Node\| attributes
52	wakaba	1.2
53			sub node_name ($) {
54			return '#document-fragment';
55			} # node_name
56
57			## Spec:
58			## <http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core.html#ID-111237558>
59
60			sub node_type ($) { 11 } # DOCUMENT_FRAGMENT_NODE
61	wakaba	1.1
62			package Message::IF::DocumentFragment;
63
64			package Message::DOM::Document;
65
66			## Spec:
67			## <http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core.html#ID-35CB04B5>
68
69	wakaba	1.2	sub create_document_fragment ($) {
70	wakaba	1.1	return Message::DOM::DocumentFragment->____new ($_[0]);
71			} # create_document_fragment
72
73			1;
74			## License: <http://suika.fam.cx/~wakaba/archive/2004/8/18/license#Perl+MPL>
75	wakaba	1.4	## $Date: 2007/06/16 08:05:48 $