Message/DOM/ProcessingInstruction.pm

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

## Spec:
## 

sub ____new ($$$$) {
  my $self = shift->SUPER::____new (shift);
  ($$self->{target}, $$self->{data}) = @_;
  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)
    target => 1,
    data => 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)
  }->{$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 target ($);
sub data ($);

## The |Node| interface - attribute

sub node_type { 7 } # PROCESSING_INSTRUCTION_NODE

package Message::IF::ProcessingInstruction;

package Message::DOM::Document;

## Spec:
## <http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core.html#ID-135944439>
## Compatibility note:
## <http://suika.fam.cx/gate/2005/sw/createProcessingInstruction>

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

1;
## License: <http://suika.fam.cx/~wakaba/archive/2004/8/18/license#Perl+MPL>
## $Date: 2007/06/13 12:05:35 $
1	wakaba	1.1	package Message::DOM::ProcessingInstruction;
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::ProcessingInstruction';
5			require Message::DOM::Node;
6
7			## Spec:
8			##
9
10			sub ____new ($$$$) {
11			my $self = shift->SUPER::____new (shift);
12			($$self->{target}, $$self->{data}) = @_;
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			target => 1,
24			data => 1,
25			}->{$method_name}) {
26			no strict 'refs';
27			eval qq{
28			sub $method_name (\$) {
29			if (\@_ > 1) {
30			require Carp;
31			Carp::croak (qq<Can't modify read-only attribute>);
32			}
33			return \${\$_[0]}->{$method_name};
34			}
35			};
36			goto &{ $AUTOLOAD };
37			} elsif ({
38			## Read-write attributes (DOMString, trivial accessors)
39			}->{$method_name}) {
40			no strict 'refs';
41			eval qq{
42			sub $method_name (\$) {
43			if (\@_ > 1) {
44			\${\$_[0]}->{$method_name} = ''.$_[1];
45			}
46			return \${\$_[0]}->{$method_name};
47			}
48			};
49			goto &{ $AUTOLOAD };
50			} else {
51			require Carp;
52			Carp::croak (qq<Can't locate method "$AUTOLOAD">);
53			}
54			} # AUTOLOAD
55			sub target ($);
56			sub data ($);
57
58			## The \|Node\| interface - attribute
59
60			sub node_type { 7 } # PROCESSING_INSTRUCTION_NODE
61
62			package Message::IF::ProcessingInstruction;
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-135944439>
68			## Compatibility note:
69			## <http://suika.fam.cx/gate/2005/sw/createProcessingInstruction>
70
71			sub create_processing_instruction ($$$) {
72			return Message::DOM::ProcessingInstruction->____new (@_[0, 1, 2]);
73			} # create_processing_instruction
74
75			1;
76			## License: <http://suika.fam.cx/~wakaba/archive/2004/8/18/license#Perl+MPL>
77			## $Date: 2007/06/13 12:05:35 $