Message/DOM/DocumentFragment.pm

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

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

sub ____new ($$) {
  my $self = shift->SUPER::____new (shift);
  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

## The |Node| interface - attribute

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