Message/DOM/Notation.pm

package Message::DOM::Notation;
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::Notation';
require Message::DOM::Node;

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

sub ____new ($$$) {
  my $self = shift->SUPER::____new (shift);
  $$self->{node_name} = $_[0];
  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)
    node_name => 1,
  }->{$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)
    public_id => 1,
    system_id => 1,
  }->{$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
sub public_id ($;$);
sub system_id ($;$);

## 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 ($); # read-only trivial accessor

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

sub node_type ($) { 12 } # NOTATION_NODE

package Message::IF::Notation;

package Message::DOM::Document;

## Spec: 
## <http://suika.fam.cx/gate/2005/sw/DocumentXDoctype>

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

1;
## License: <http://suika.fam.cx/~wakaba/archive/2004/8/18/license#Perl+MPL>
## $Date: 2007/06/14 13:10:07 $
1	wakaba	1.1	package Message::DOM::Notation;
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::Notation';
5			require Message::DOM::Node;
6
7			## Spec:
8			## <http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core.html#ID-5431D1B9>
9
10			sub ____new ($$$) {
11			my $self = shift->SUPER::____new (shift);
12			$$self->{node_name} = $_[0];
13			return $self;
14			} # ____new
15
16			sub AUTOLOAD {
17			my $method_name = our $AUTOLOAD;
18			$method_name =~ s/.*:://;
19			return if $method_name eq 'DESTROY';
20
21			if ({
22			## Read-only attributes (trivial accessors)
23	wakaba	1.2	node_name => 1,
24	wakaba	1.1	}->{$method_name}) {
25			no strict 'refs';
26			eval qq{
27			sub $method_name (\$) {
28			if (\@_ > 1) {
29			require Carp;
30			Carp::croak (qq<Can't modify read-only attribute>);
31			}
32			return \${\$_[0]}->{$method_name};
33			}
34			};
35			goto &{ $AUTOLOAD };
36			} elsif ({
37			## Read-write attributes (DOMString, trivial accessors)
38			public_id => 1,
39			system_id => 1,
40			}->{$method_name}) {
41			no strict 'refs';
42			eval qq{
43			sub $method_name (\$) {
44			if (\@_ > 1) {
45			\${\$_[0]}->{$method_name} = ''.$_[1];
46			}
47			return \${\$_[0]}->{$method_name};
48			}
49			};
50			goto &{ $AUTOLOAD };
51			} else {
52			require Carp;
53			Carp::croak (qq<Can't locate method "$AUTOLOAD">);
54			}
55			} # AUTOLOAD
56			sub public_id ($;$);
57			sub system_id ($;$);
58
59			## The \|Node\| interface - attribute
60
61	wakaba	1.2	## Spec:
62			## <http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core.html#ID-F68D095>
63			## <http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core.html#ID-1950641247>
64
65			sub node_name ($); # read-only trivial accessor
66
67			## Spec:
68			## <http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core.html#ID-111237558>
69
70			sub node_type ($) { 12 } # NOTATION_NODE
71	wakaba	1.1
72			package Message::IF::Notation;
73
74			package Message::DOM::Document;
75
76			## Spec:
77			## <http://suika.fam.cx/gate/2005/sw/DocumentXDoctype>
78
79	wakaba	1.2	sub create_notation ($$) {
80	wakaba	1.1	return Message::DOM::Notation->____new (@_[0, 1]);
81			} # create_notation
82
83			1;
84			## License: <http://suika.fam.cx/~wakaba/archive/2004/8/18/license#Perl+MPL>
85	wakaba	1.2	## $Date: 2007/06/14 13:10:07 $