Message/DOM/DOMConfiguration.pm

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

use overload
    eq => sub {
      return 0 unless UNIVERSAL::isa ($_[1], 'Message::DOM::DOMConfiguration');
      return $${$_[0]} eq $${$_[1]};
    },
    ne => sub {
      return not ($_[0] eq $_[1]);
    },
    fallback => 1;

sub ___report_error ($$) {
  $_[1]->throw;
} # ___report_error

## |DOMConfiguration| methods

sub set_parameter ($$;$) {
  if (defined $_[2]) {
    ${$${$_[0]}}->{$_[1]} = $_[2];
  } else {
    if ($_[1] eq 'http://suika.fam.cx/www/2006/dom-config/clone-entity-reference-subtree' or
        $_[1] eq 'http://suika.fam.cx/www/2006/dom-config/dtd-default-attribute' or
        $_[1] eq 'http://suika.fam.cx/www/2006/dom-config/strict-document-children') {
      ${$${$_[0]}}->{$_[1]} = 1;
    } elsif ($_[1] eq 'error-handler') {
      ${$${$_[0]}}->{$_[1]} = sub { };
    } else {
      delete ${$${$_[0]}}->{$_[1]};
    }
  }
  ## http://suika.fam.cx/www/2006/dom-config/clone-entity-reference-subtree
  ## http://suika.fam.cx/www/2006/dom-config/dtd-default-attribute
  ## http://suika.fam.cx/www/2006/dom-config/xml-id
  ## error-handler
  ## xml-dtd
  ## http://suika.fam.cx/www/2006/dom-config/strict-document-children
} # set_parameter

package Message::IF::DOMConfiguration;

=head1 LICENSE

Copyright 2007 Wakaba <w@suika.fam.cx>

This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

=cut

1;
## $Date: 2007/06/16 15:27:45 $
1	wakaba	1.1	package Message::DOM::DOMConfiguration;
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::IF::DOMConfiguration';
5			require Message::DOM::DOMException;
6
7			use overload
8			eq => sub {
9			return 0 unless UNIVERSAL::isa ($_[1], 'Message::DOM::DOMConfiguration');
10			return $${$_[0]} eq $${$_[1]};
11			},
12			ne => sub {
13			return not ($_[0] eq $_[1]);
14			},
15			fallback => 1;
16
17			sub ___report_error ($$) {
18			$_[1]->throw;
19			} # ___report_error
20
21			## \|DOMConfiguration\| methods
22
23			sub set_parameter ($$;$) {
24	wakaba	1.2	if (defined $_[2]) {
25			${$${$_[0]}}->{$_[1]} = $_[2];
26			} else {
27			if ($_[1] eq 'http://suika.fam.cx/www/2006/dom-config/clone-entity-reference-subtree' or
28			$_[1] eq 'http://suika.fam.cx/www/2006/dom-config/dtd-default-attribute' or
29			$_[1] eq 'http://suika.fam.cx/www/2006/dom-config/strict-document-children') {
30			${$${$_[0]}}->{$_[1]} = 1;
31			} elsif ($_[1] eq 'error-handler') {
32			${$${$_[0]}}->{$_[1]} = sub { };
33			} else {
34			delete ${$${$_[0]}}->{$_[1]};
35			}
36			}
37			## http://suika.fam.cx/www/2006/dom-config/clone-entity-reference-subtree
38			## http://suika.fam.cx/www/2006/dom-config/dtd-default-attribute
39			## http://suika.fam.cx/www/2006/dom-config/xml-id
40			## error-handler
41			## xml-dtd
42			## http://suika.fam.cx/www/2006/dom-config/strict-document-children
43	wakaba	1.1	} # set_parameter
44
45			package Message::IF::DOMConfiguration;
46
47			=head1 LICENSE
48
49			Copyright 2007 Wakaba <w@suika.fam.cx>
50
51			This program is free software; you can redistribute it and/or
52			modify it under the same terms as Perl itself.
53
54			=cut
55
56			1;
57	wakaba	1.2	## $Date: 2007/06/16 15:27:45 $