Message/DOM/Text.pm

package Message::DOM::Text;
use strict;
our $VERSION=do{my @r=(q$Revision: 1.1 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
push our @ISA, 'Message::DOM::CharacterData', 'Message::IF::Text';
require Message::DOM::DOMCharacterData; ## TODO: Change to new module name

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

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

sub node_name ($) {
  return '#text';
} # node_name

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

sub node_type ($) { 3 } # TEXT_NODE

package Message::IF::Text;

package Message::DOM::Document;

sub create_text_node ($$) {
  return Message::DOM::Text->____new ($_[0], $_[1]);
} # create_text_node

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