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	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	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	} # 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	## $Date: 2007/06/16 15:27:45 $