#!/usr/bin/perl 
## This file is automatically generated
## 	at 2005-09-28T09:29:23+00:00,
## 	from file "lib/Message/Util/DIS.dis",
## 	module <http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS>,
## 	for <http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#ForLatest>.
## Don't edit by hand!
use strict;
require Message::Util::DIS::Perl;
require Message::Util::DIS::Value;
require Message::Util::Error::DOMException;
require Message::Markup::SuikaWikiConfig21;
require Message::DOM::DOMLS;
require Message::Util::Error;
require Message::DOM::DOMFeature;
require Message::Util::ManakaiNode;
package Message::Util::DIS;
our $VERSION = 20050928.0929;
sub HIERARCHY_REQUEST_ERR ();
sub INVALID_STATE_ERR ();
sub NOT_SUPPORTED_ERR ();
sub INVALID_SOURCE_ERR ();
sub AUTOLOAD {

#line 1 "lib/Message/Util/DIS.dis [u] (Chunk #1)"

        my $al = our $AUTOLOAD;
        $al =~ s/.+:://;
        if ({'HIERARCHY_REQUEST_ERR', 'Message::Util::DIS::HIERARCHY_REQUEST_ERR', 'INVALID_STATE_ERR', 'Message::Util::DIS::INVALID_STATE_ERR', 'NOT_SUPPORTED_ERR', 'Message::Util::DIS::NOT_SUPPORTED_ERR', 'INVALID_SOURCE_ERR', 'Message::Util::DIS::INVALID_SOURCE_ERR'}->{$al}) {
          no strict 'refs';
          *{$AUTOLOAD} = \&{{'HIERARCHY_REQUEST_ERR', 'Message::Util::DIS::HIERARCHY_REQUEST_ERR', 'INVALID_STATE_ERR', 'Message::Util::DIS::INVALID_STATE_ERR', 'NOT_SUPPORTED_ERR', 'Message::Util::DIS::NOT_SUPPORTED_ERR', 'INVALID_SOURCE_ERR', 'Message::Util::DIS::INVALID_SOURCE_ERR'}->{$al}};
          goto &{$AUTOLOAD};
        } else {
          require Carp;
          Carp::croak (qq<Can't locate method "$AUTOLOAD">);
        }
      
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2)"
}
sub import {

#line 1 "lib/Message/Util/DIS.dis [u] (Chunk #3)"

        my $self = shift;
        if (@_) {
          local $Exporter::ExportLevel = $Exporter::ExportLevel + 1;
          $self->SUPER::import (@_);
          for (grep {not /\W/} @_) {
            eval qq{$_};
          }
        }
      
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4)"
}
our %EXPORT_TAG = ('DISExceptionCode', ['HIERARCHY_REQUEST_ERR', 'INVALID_STATE_ERR', 'NOT_SUPPORTED_ERR', 'INVALID_SOURCE_ERR']);
our @EXPORT_OK = ('HIERARCHY_REQUEST_ERR', 'INVALID_STATE_ERR', 'NOT_SUPPORTED_ERR', 'INVALID_SOURCE_ERR');
use Exporter; push our @ISA, 'Exporter';
package Message::Util::DIS::ManakaiDISImplementation;
our $VERSION = 20050928.0929;
push our @ISA, 'Message::Markup::SuikaWikiConfig21::ManakaiSWCFGImplementation', 'Message::Util::DIS::Perl::ManakaiDISImplementationPerl', 'Message::Util::DIS::Value::ManakaiDISImplementationValue', 'Message::Util::IF::DISImplementation', 'Message::Util::IFLatest::DISImplementation';
sub create_dis_parser ($) {
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=createDISParser][@type=DISLang:Method]/Return[@Type=DISParser][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #13)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=createDISParser][@type=DISLang:Method]/Return[@Type=DISParser][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #11)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=createDISParser][@type=DISLang:Method]/Return[@Type=DISParser][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5)"
$r = bless $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6)"
create_swcfg_parser
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=createDISParser][@type=DISLang:Method]/Return[@Type=DISParser][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7)"
,
           
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #8)"
'Message::Util::DIS::ManakaiDISParser'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=createDISParser][@type=DISLang:Method]/Return[@Type=DISParser][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #9)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #10)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #12)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #14)"
}
$r}
sub create_dis_database ($) {
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=createDISDatabase][@type=DISLang:Method]/Return[@Type=DISDatabase][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #31)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=createDISDatabase][@type=DISLang:Method]/Return[@Type=DISDatabase][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #29)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=createDISDatabase][@type=DISLang:Method]/Return[@Type=DISDatabase][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #15)"
$r = bless {
  forDef => {
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #16)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all'
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=createDISDatabase][@type=DISLang:Method]/Return[@Type=DISDatabase][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #17)"
 => bless ({
      uri => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #18)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all'
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=createDISDatabase][@type=DISLang:Method]/Return[@Type=DISDatabase][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #19)"
,
      isa => {
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #20)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all'
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=createDISDatabase][@type=DISLang:Method]/Return[@Type=DISDatabase][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #21)"
 => 1},
      revISA => {},
    }, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #22)"
'Message::Util::DIS::ManakaiDISForDefinition'
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=createDISDatabase][@type=DISLang:Method]/Return[@Type=DISDatabase][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #23)"
),
  },
  resDef => {},
  modDef => {},
  seq => 0,
}, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #24)"
'Message::Util::DIS::ManakaiDISDatabase'
#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=createDISDatabase][@type=DISLang:Method]/Return[@Type=DISDatabase][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #25)"
;
$r->{forDef}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #26)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all'
#line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=createDISDatabase][@type=DISLang:Method]/Return[@Type=DISDatabase][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #27)"
}->{db} = $r;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #28)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #30)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #32)"
}
$r}
sub create_dis_document ($) {
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=createDISDocument][@type=DISLang:Method]/Return[@Type=DISDocument][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #45)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=createDISDocument][@type=DISLang:Method]/Return[@Type=DISDocument][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #43)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=createDISDocument][@type=DISLang:Method]/Return[@Type=DISDocument][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #33)"
$r = bless $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #34)"
create_swcfg_document
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=createDISDocument][@type=DISLang:Method]/Return[@Type=DISDocument][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #35)"
,
           
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #36)"
'Message::Util::DIS::ManakaiDISDocument'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=createDISDocument][@type=DISLang:Method]/Return[@Type=DISDocument][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #37)"
;
$r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #38)"
default_element_type_namespace_uri
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=createDISDocument][@type=DISLang:Method]/Return[@Type=DISDocument][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #39)"

            (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #40)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--'
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=createDISDocument][@type=DISLang:Method]/Return[@Type=DISDocument][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #41)"
);
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #42)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #44)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #46)"
}
$r}
sub _camel_case_to_underscore_name ($$) {
my ($self, $camelName) = @_;
my $r = '';

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@Name=camelCaseToUnderscoreName][@type=DISLang:Method]/Return[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #51)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@Name=camelCaseToUnderscoreName][@type=DISLang:Method]/Return[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #49)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@Name=camelCaseToUnderscoreName][@type=DISLang:Method]/Return[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #47)"
$r = $camelName;
$r =~ s/^([A-Z0-9]+)$/lc $1/ge;
$r =~ s/([A-Z][A-Z0-9]*)$/"_".lc $1/ge;
$r =~ s/([A-Z0-9])([A-Z0-9]*)([A-Z0-9])/$1.lc ($2)."_".lc $3/ge;
$r =~ s/([A-Z])/"_".lc $1/ge;
$r =~ s/(?=[0-9](?!$))/_/g;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #48)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #50)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #52)"
}
$r}
sub tfuris_to_uri ($;$$) {
my ($self, $typeURI, $forURI) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfurisToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #73)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfurisToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #59)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfurisToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #53)"
$typeURI = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #54)"
'http://suika.fam.cx/~wakaba/archive/2004/dom/main#any' unless 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfurisToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #55)"
defined $typeURI;
$forURI = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #56)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' unless 
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfurisToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #57)"
defined $forURI;

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #58)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #60)"

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [b] (Chunk #67)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [bc] (Chunk #65)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #61)"
($forURI eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #62)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #63)"
) {
  $r = $typeURI;
} else {
  ## NOTE: [RFC 3986]
  ##       fragment    := *(pchar / "/" / "?")
  ##       pchar       := unreserved / pct-encoded / sub-delims / [:@]
  ##       unreserved  := ALPHA / DIGIT / [._~-]
  ##       sub-delims  := [!$&'()*+,;=]
  ## NOTE: [XPointer Framework]
  ##       SchemeData  := *EscapedData
  ##       EscapedData := NormalChar / "^(" / "^)" / "^^"
  ##                    / "(" SchemeData ")"
  ##       NormalChar  := UnicodeChar - [()^]
  my $__turi = $typeURI;
  my $__furi = $forURI;
  for my $__uri ($__turi, $__furi) {
    $__uri =~ s{([^0-9A-Za-z!\$'()*,:;=?\@_./~-])}{sprintf '%%%02X', ord $1}ge;
  }
  $r = qq<tag:suika.fam.cx,2005-09:$__turi+$__furi>;
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #64)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #66)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #68)"
}

#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfurisToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #71)"

#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfurisToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #69)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #70)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #72)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #74)"
}
$r}
$Message::DOM::ImplFeature{q<Message::Util::DIS::ManakaiDISImplementation>}->{q<http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#core>}->{q<1.0>} ||= 1;
$Message::DOM::ImplFeature{q<Message::Util::DIS::ManakaiDISImplementation>}->{q<http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#core>}->{q<>} = 1;
$Message::DOM::ClassFeature{q<Message::Util::DIS::ManakaiDISImplementation>} = {'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#value', {'', '1', '1.0', '1'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#core', {'', '1', '1.0', '1'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#perl', {'', '1', '1.0', '1'}, 'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#core', {'', '1', '2.1', '1'}, 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#minimum', {'', '1', '3.0', '1'}};
$Message::DOM::ClassPoint{q<Message::Util::DIS::ManakaiDISImplementation>} = 8.1;
$Message::DOM::ManakaiDOMImplementationSource::SourceClass{q<Message::Util::DIS::ManakaiDISImplementation>} = 1;
$Message::DOM::ManakaiDOMImplementation::CompatClass{q<Message::Util::DIS::ManakaiDISImplementation>} = 1;
$Message::Util::ManakaiNode::ManakaiNodeRef::Prop{q<Message::Util::DIS::ManakaiDISImplementation>} = {};
package Message::Util::DIS::ManakaiDISParser;
our $VERSION = 20050928.0929;
push our @ISA, 'Message::Markup::SuikaWikiConfig21::ManakaiSWCFGParser', 'Message::Markup::IFLatest::SWCFGParser', 'Message::Util::IF::DISParser', 'Message::Util::IFLatest::DISParser';
sub parse ($$) {
my ($self, $input) = @_;

{
#line 1 "/document (lib/Message/DOM/DOMLS.dis)/IFCls3Def[@QName=LSInput][@QName=ManakaiDOMLSInput][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@type=DISLang|InputProcessor]/PerlCDef [b] (Chunk #81)"

#line 1 "/document (lib/Message/DOM/DOMLS.dis)/IFCls3Def[@QName=LSInput][@QName=ManakaiDOMLSInput][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@type=DISLang|InputProcessor]/PerlCDef [bc] (Chunk #79)"
if 
#line 1 "/document (lib/Message/DOM/DOMLS.dis)/IFCls3Def[@QName=LSInput][@QName=ManakaiDOMLSInput][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@type=DISLang|InputProcessor]/PerlCDef [u] (Chunk #75)"
(ref $input eq 'HASH') {
  $input = bless $input, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #76)"
'Message::DOM::DOMLS::ManakaiDOMLSInput'
#line 2 "/document (lib/Message/DOM/DOMLS.dis)/IFCls3Def[@QName=LSInput][@QName=ManakaiDOMLSInput][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@type=DISLang|InputProcessor]/PerlCDef [u] (Chunk #77)"
;
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #78)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #80)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #82)"
}
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISParser][@QName=ManakaiDISParser][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=parse][@type=DISLang:Method]/Return[@Type=DISDocument][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #103)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISParser][@QName=ManakaiDISParser][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=parse][@type=DISLang:Method]/Return[@Type=DISDocument][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #83)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #84)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #91)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISParser][@QName=ManakaiDISParser][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=parse][@type=DISLang:Method]/Return[@Type=DISDocument][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #89)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISParser][@QName=ManakaiDISParser][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=parse][@type=DISLang:Method]/Return[@Type=DISDocument][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #87)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISParser][@QName=ManakaiDISParser][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=parse][@type=DISLang:Method]/Return[@Type=DISDocument][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #85)"

  $r = $self->SUPER::parse ($input)
              ## NOTE: Method name directly written
              #< M::swcfg21:ManakaiSWCFGParser
              #  ::swcfg21:ForLatest.parse> ($input)

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #86)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #88)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #90)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #92)"
}

#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISParser][@QName=ManakaiDISParser][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=parse][@type=DISLang:Method]/Return[@Type=DISDocument][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #101)"

#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISParser][@QName=ManakaiDISParser][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=parse][@type=DISLang:Method]/Return[@Type=DISDocument][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #93)"
;
if (defined $r) {
  $r = bless $r, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #94)"
'Message::Util::DIS::ManakaiDISDocument'
#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISParser][@QName=ManakaiDISParser][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=parse][@type=DISLang:Method]/Return[@Type=DISDocument][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #95)"
;
  $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #96)"
default_element_type_namespace_uri
#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISParser][@QName=ManakaiDISParser][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=parse][@type=DISLang:Method]/Return[@Type=DISDocument][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #97)"

            (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #98)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--'
#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISParser][@QName=ManakaiDISParser][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=parse][@type=DISLang:Method]/Return[@Type=DISDocument][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #99)"
);
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #100)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #102)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #104)"
}
$r}
sub new ($$$) {
my ($self, $impl, $features) = @_;

{
#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeaturesString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [b] (Chunk #109)"

#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeaturesString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [bc] (Chunk #107)"
if 
#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeaturesString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #105)"
(CORE::defined $features) {
  if (CORE::ref ($features) eq 'HASH') {
    my $new = {};
    for my $fname (keys %{$features}) {
      if (CORE::ref ($features->{$fname}) eq 'HASH') {
        my $lfname = lc $fname;
        for my $fver (keys %{$features->{$fname}}) {
          $new->{$lfname}->{$fver} = $features->{$fname}->{$fver};
        }
      } else {
        $new->{lc $fname} = {(CORE::defined $features->{$fname}
                                ? $features->{$fname} : '') => 1};
      }
    }
    $features = $new;
  } else {
    my @f = split /\s+/, $features;
    $features = {};
    while (@f) {
      my $name = lc shift @f;
      if (@f and $f[0] =~ /^[\d\.]+$/) {
        $features->{$name}->{shift @f} = 1;
      } else {
        $features->{$name}->{''} = 1;
      }
    }
  }
} else {
  $features = {};
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #106)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #108)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #110)"
}
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISParser][@QName=ManakaiDISParser][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain|Object||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #129)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISParser][@QName=ManakaiDISParser][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain|Object||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #111)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #112)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #123)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISParser][@QName=ManakaiDISParser][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain|Object||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #121)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISParser][@QName=ManakaiDISParser][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain|Object||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #119)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISParser][@QName=ManakaiDISParser][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain|Object||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #113)"

  $r = $self->SUPER::new
               ($impl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #114)"
get_feature
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISParser][@QName=ManakaiDISParser][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain|Object||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #115)"

                   (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #116)"
'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#Core'
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISParser][@QName=ManakaiDISParser][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain|Object||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #117)"
 => '2.1'),
                $features);

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #118)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #120)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #122)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #124)"
}

#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISParser][@QName=ManakaiDISParser][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain|Object||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #127)"

#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISParser][@QName=ManakaiDISParser][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain|Object||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #125)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #126)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #128)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #130)"
}
$r}
$Message::DOM::ClassFeature{q<Message::Util::DIS::ManakaiDISParser>} = {'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#core', {'', '1', '1.0', '1'}, 'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#core', {'', '1', '2.1', '1'}};
$Message::DOM::ClassPoint{q<Message::Util::DIS::ManakaiDISParser>} = 3.1;
$Message::DOM::DOMLS::ParserClass{q<Message::Util::DIS::ManakaiDISParser>} = 1;
package Message::Util::DIS::ManakaiDISNode;
our $VERSION = 20050928.0929;
push our @ISA, 'Message::Util::IF::DISNode', 'Message::Util::IFLatest::DISNode';
use Message::Util::Error;
sub owner_dis_document ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #147)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerDISDocument][@type=DISLang:Attribute]/Get[@Type=DISDocument][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #145)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerDISDocument][@type=DISLang:Attribute]/Get[@Type=DISDocument][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #143)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerDISDocument][@type=DISLang:Attribute]/Get[@Type=DISDocument][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #131)"
$r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #132)"
Message::Util::DIS::ManakaiDISNode->_get_node_reference
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerDISDocument][@type=DISLang:Attribute]/Get[@Type=DISDocument][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #133)"

        ($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #134)"
'node'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerDISDocument][@type=DISLang:Attribute]/Get[@Type=DISDocument][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #135)"
}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #136)"
'swod'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerDISDocument][@type=DISLang:Attribute]/Get[@Type=DISDocument][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #137)"
})
  if $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #138)"
'node'
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerDISDocument][@type=DISLang:Attribute]/Get[@Type=DISDocument][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #139)"
}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #140)"
'swod'
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerDISDocument][@type=DISLang:Attribute]/Get[@Type=DISDocument][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #141)"
};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #142)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #144)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #146)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #148)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #149)"
my ($self) = @_;
report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISNode', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'owner_dis_document';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #150)"
}}
sub _get_node_reference ($$) {
my ($self, $object) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #189)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #169)"
my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #151)"
$class;
if ($object->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #152)"
'swnt'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #153)"
} eq '#element') {
  $class = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #154)"
'Message::Util::DIS::ManakaiDISElement'
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #155)"
;
} elsif ($object->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #156)"
'swnt'
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #157)"
} eq '#comment') {
  $class = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #158)"
'Message::Util::DIS::ManakaiDISComment'
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #159)"
;
} elsif ($object->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #160)"
'swnt'
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #161)"
} eq '#document') {
  $class = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #162)"
'Message::Util::DIS::ManakaiDISDocument'
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #163)"
;
} elsif ($object->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #164)"
'swnt'
#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #165)"
} eq '#fragment') {
  $class = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #166)"
'Message::Util::DIS::ManakaiDISDocumentFragment'
#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #167)"
;
} else {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #168)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #170)"

#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #173)"

#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #171)"
;
}

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #172)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #174)"

{
#line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [b] (Chunk #183)"

#line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [bc] (Chunk #181)"

#line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #175)"
$object->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #176)"
'rc'
#line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #177)"
}++;
$r = bless {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #178)"
'node'
#line 3 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #179)"
 => $object,
}, $class;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #180)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #182)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #184)"
}

#line 20 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #187)"

#line 20 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #185)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #186)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #188)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #190)"
}
$r}
sub lookup_namespace_uri ($$%) {
my ($self, $prefix, %opt) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #225)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #217)"
my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #191)"
$od = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #192)"
owner_dis_document
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #193)"
 || $self;
my $binds = $od->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #194)"
'node'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #195)"
}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #196)"
'swnsb'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #197)"
};
if (exists $binds->{$prefix}) {
  $r = $binds->{$prefix};
} else {
  ## From module list
  FIND: {
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #198)"

#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #199)"
try {local $Error::Depth = $Error::Depth + 3;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #200)"

      my 
#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #201)"
$db = $od->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #202)"
dis_database
#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #203)"
;
      for my $mod_uri (keys %{$db->{modDef}}) {
        my $mod = $db->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #204)"
get_module
#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #205)"
 ($mod_uri);
        if ($mod->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #206)"
local_name
              eq 
#line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #207)"
$prefix) {
          $r = $mod->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #208)"
target_namespace_uri
#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #209)"
;
          last FIND;
        }            
      }
    } catch 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #210)"
Message::Util::IFLatest::DISException with 
#line 16 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #211)"
{
      my $err = shift;
      $err->throw
        unless $err->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #212)"
'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype'
#line 19 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #213)"
} eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #214)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_ASSOCIATED_DB_ERR'
#line 19 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #215)"
;
    };
    if ($opt{make_new_binding}) {
      $r = $binds->{$prefix} = $prefix;
    } elsif ($opt{raise_prefix_exception}) {
      
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #216)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #218)"
report Message::Markup::SuikaWikiConfig21::ManakaiSWCFGException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $self, '-type' => 'NAMESPACE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'lookup_namespace_uri', 'http://www.w3.org/2001/04/infoset#prefix' => $prefix, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#UNDECLARED_NS_PREFIX_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISNode', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'prefix';

#line 30 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #223)"

#line 30 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #219)"
;
    } else {
      $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #220)"
undef
#line 32 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #221)"
;
    }
  } # FIND
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #222)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #224)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #226)"
}
$r}
sub lookup_namespace_prefix ($;$%) {
my ($self, $namespaceURI, %opt) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=swcfg21|SWCFGString||swcfg21|ForLatest][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #261)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=swcfg21|SWCFGString||swcfg21|ForLatest][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #259)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=swcfg21|SWCFGString||swcfg21|ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #227)"
$r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #228)"
undef
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=swcfg21|SWCFGString||swcfg21|ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #229)"
;
my $od = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #230)"
owner_document
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=swcfg21|SWCFGString||swcfg21|ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #231)"
 || $self;
my $binds = $od->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #232)"
'node'
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=swcfg21|SWCFGString||swcfg21|ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #233)"
}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #234)"
'swnsb'
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=swcfg21|SWCFGString||swcfg21|ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #235)"
};
if (defined $namespaceURI) {
  FIND: {
    for my $prefix (keys %$binds) {
      if (defined $binds->{$prefix} and
          $binds->{$prefix} eq $namespaceURI) {
        $r = $prefix;
        last FIND;
      }
    }

    ## From module list
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #236)"

#line 15 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=swcfg21|SWCFGString||swcfg21|ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #237)"
try {local $Error::Depth = $Error::Depth + 3;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #238)"

      my 
#line 15 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=swcfg21|SWCFGString||swcfg21|ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #239)"
$db = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #240)"
owner_dis_document
#line 15 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=swcfg21|SWCFGString||swcfg21|ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #241)"

                    ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #242)"
dis_database
#line 16 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=swcfg21|SWCFGString||swcfg21|ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #243)"
;
      for my $mod_uri (keys %{$db->{modDef}}) {
        my $mod = $db->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #244)"
get_module
#line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=swcfg21|SWCFGString||swcfg21|ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #245)"
 ($mod_uri);
        my $mod_ln = $mod->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #246)"
local_name
#line 19 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=swcfg21|SWCFGString||swcfg21|ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #247)"
;
        next if exists $binds->{$mod_ln};
        my $ns_uri = $mod->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #248)"
target_namespace_uri
#line 21 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=swcfg21|SWCFGString||swcfg21|ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #249)"
;
        $ns_uri = '' unless defined $ns_uri;
        if ($ns_uri eq $namespaceURI) {
          $r = $mod_ln;
          last FIND;
        }
      }
    } catch 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #250)"
Message::Util::IFLatest::DISException with 
#line 28 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=swcfg21|SWCFGString||swcfg21|ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #251)"
{
      my $err = shift;
      $err->throw
        unless $err->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #252)"
'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype'
#line 31 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=swcfg21|SWCFGString||swcfg21|ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #253)"
} eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #254)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_ASSOCIATED_DB_ERR'
#line 31 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=swcfg21|SWCFGString||swcfg21|ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #255)"
;
    };

    last FIND unless $opt{make_new_binding};
    ## Not found
    if ($namespaceURI =~ /(\w+)$/) {
      my $prefix = $1;
      unless (exists $binds->{$prefix}) {
        $binds->{$prefix} = $namespaceURI;
        $r = $prefix;
        last FIND;
      }
    }
    my $i = 1;
    {
      unless (exists $binds->{'ns'.$i}) {
        $binds->{$r = 'ns'.$i} = $namespaceURI;
        last FIND;
      }
      $i++;
      redo;
    }
  } # FIND
} else {  ## Null namespace
  FIND: {
    if (exists $binds->{'nu'.'ll'} and not defined $binds->{'nu'.'ll'}) {
      $r = 'nu'.'ll';
      last FIND;
    }
    for my $prefix (keys %$binds) {
      if (not defined $prefix) {
        $r = $prefix;
        last FIND;
      }
    }
    last FIND unless $opt{make_new_binding};
    ## Not found
    my $i = '';
    {
      unless (exists $binds->{'nu'.'ll'.$i}) {
        $binds->{$r = 'nu'.'ll'.$i} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #256)"
undef
#line 71 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=swcfg21|SWCFGString||swcfg21|ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #257)"
;
        last FIND;
      }
      $i++;
      redo;
    }
  }
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #258)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #260)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #262)"
}
$r}
$Message::DOM::ClassFeature{q<Message::Util::DIS::ManakaiDISNode>} = {'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#core', {'', '1', '1.0', '1'}};
$Message::DOM::ClassPoint{q<Message::Util::DIS::ManakaiDISNode>} = 1;
package Message::Util::DIS::ManakaiNSResolverDIS;
our $VERSION = 20050928.0929;
push our @ISA, 'Message::Util::IF::NSResolverDIS', 'Message::Util::IFLatest::NSResolverDIS';
sub tfpqnames_to_uri ($$;$$%) {
my ($self, $tfpqnames, $defaultTypeURI, $defaultForURI, %opt) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #331)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #265)"
my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #263)"
($typeq, $forq, @forpq) = split /\s*[:|][:|]\s*/, $tfpqnames;
my ($typeURI, $forURI);
my $forpURI = [];
undef $forq if defined $forq and $forq eq '+';
if (defined $forq) {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #264)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #266)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #281)"
local $Error::Depth = $Error::Depth + 1;

{
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #279)"

#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #277)"

#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #267)"

    $typeURI = $typeq eq ''
               ? defined $defaultTypeURI ? $defaultTypeURI
                                         : 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #268)"
'http://suika.fam.cx/~wakaba/archive/2004/dom/main#any'
               : 
#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #269)"
$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #270)"
qname_to_uri
#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #271)"
 ($typeq, %opt);
    if (length $forq) {
      $forURI = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #272)"
qname_to_uri
#line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #273)"
 ($forq, %opt);
    } else {
      $forURI = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #274)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all'
#line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #275)"
;
    }
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #276)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #278)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #280)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #282)"
}

#line 16 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #285)"

#line 16 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #283)"
;
} else {  ## "For" omitted
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #284)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #286)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #297)"
local $Error::Depth = $Error::Depth + 1;

{
#line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #295)"

#line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #293)"

#line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #287)"

    $typeURI = $typeq eq ''
               ? defined $defaultTypeURI ? $defaultTypeURI
                                         : 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #288)"
'http://suika.fam.cx/~wakaba/archive/2004/dom/main#any'
               : 
#line 21 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #289)"
$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #290)"
qname_to_uri
#line 21 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #291)"
 ($typeq, %opt);
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #292)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #294)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #296)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #298)"
}

#line 23 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #303)"

#line 23 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #299)"
;
  $forURI = defined $defaultForURI ? $defaultForURI
                                   : 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #300)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all'
#line 25 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #301)"
;
}

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #302)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #304)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #313)"
local $Error::Depth = $Error::Depth + 1;

{
#line 27 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #311)"

#line 27 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #309)"

  for 
#line 27 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #305)"
my $forpq (@forpq) {
    push @$forpURI, $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #306)"
qname_to_uri
#line 28 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #307)"

                                         ($forpq, %opt);
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #308)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #310)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #312)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #314)"
}

#line 32 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #317)"

#line 32 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #315)"
;

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #316)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #318)"

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=tfpurisToURI][@type=dis2pm:BlockCode]/PerlDef [b] (Chunk #325)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=tfpurisToURI][@type=dis2pm:BlockCode]/PerlDef [bc] (Chunk #323)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=tfpurisToURI][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #319)"
($forURI eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #320)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' and 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=tfpurisToURI][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #321)"
@{$forpURI} == 0) {
  $r = $typeURI;
} elsif (@{$forpURI}) {
  my $__turi = $typeURI;
  my $__furi = $forURI;
  for my $__uri ($__turi, $__furi) {
    $__uri =~ s{([^0-9A-Za-z!\$'()*,:;=?\@_./~-])}{sprintf '%%%02X', ord $1}ge;
  }
  my @__fp;
  for my $__uri (@{$forpURI}) {
    my $__fpuri = $__uri;
    $__fpuri =~ s{([^0-9A-Za-z!\$'()*,:;=?\@_./~-])}
                 {sprintf '%%%02X', ord $1}ge;
    push @__fp, $__fpuri;
  }
  $r = qq<tag:suika.fam.cx,2005-09:$__turi+$__furi+>.join ('+', @__fp);
} else {
  my $__turi = $typeURI;
  my $__furi = $forURI;
  for my $__uri ($__turi, $__furi) {
    $__uri =~ s{([^0-9A-Za-z!\$'(),*:;=?\@_./~-])}{sprintf '%%%02X', ord $1}ge;
  }
  $r = qq<tag:suika.fam.cx,2005-09:$__turi+$__furi>;
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #322)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #324)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #326)"
}

#line 34 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #329)"

#line 34 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #327)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #328)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #330)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #332)"
}
$r}
sub qname_to_pair ($$%) {
my ($self, $qname, %opt) = @_;
my $r = [];

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=qnameToPair][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #355)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=qnameToPair][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #335)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=qnameToPair][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #333)"
$qname =~ s/^\s+//; $qname =~ s/\s+$//;
my ($prefix, $lname) = split /\s*[:|]\s*/, $qname, 2;

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #334)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #336)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #349)"
local $Error::Depth = $Error::Depth + 1;

{
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=qnameToPair][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #347)"

#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=qnameToPair][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #345)"

  if 
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=qnameToPair][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #337)"
(defined $lname) {
    $r = [$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #338)"
prefix_to_uri
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=qnameToPair][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #339)"
 ($prefix), $lname];
  } else {  ## In default namespace
    $r = [$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #340)"
prefix_to_uri
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=qnameToPair][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #341)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #342)"
undef
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=qnameToPair][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #343)"
), $prefix];
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #344)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #346)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #348)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #350)"
}

#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=qnameToPair][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #353)"

#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=qnameToPair][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #351)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #352)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #354)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #356)"
}
$r}
sub qname_to_uri ($$%) {
my ($self, $qname, %opt) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=qnameToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #379)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=qnameToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #359)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=qnameToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #357)"
$qname =~ s/^\s+//; $qname =~ s/\s+$//;
my ($prefix, $lname) = split /\s*[:|]\s*/, $qname, 2;

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #358)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #360)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #373)"
local $Error::Depth = $Error::Depth + 1;

{
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=qnameToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #371)"

#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=qnameToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #369)"

  if 
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=qnameToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #361)"
(defined $lname) {
    $r = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #362)"
prefix_to_uri
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=qnameToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #363)"
 ($prefix) . $lname;
  } else {  ## In default namespace
    if (defined $opt{default_namespace_uri}) {
      $r = $opt{default_namespace_uri} . $prefix;
    } else {
      $r = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #364)"
prefix_to_uri
#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=qnameToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #365)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #366)"
undef
#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=qnameToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #367)"
) . $prefix;
    }
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #368)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #370)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #372)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #374)"
}

#line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=qnameToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #377)"

#line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=qnameToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #375)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #376)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #378)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #380)"
}
$r}
sub tfqnames_to_uri ($$;$$%) {
my ($self, $tfqnames, $defaultTypeURI, $defaultForURI, %opt) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #435)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #383)"
my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #381)"
($typeq, $forq) = split /\s*[:|][:|]\s*/, $tfqnames, 2;
my ($typeURI, $forURI);
if (defined $forq) {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #382)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #384)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #395)"
local $Error::Depth = $Error::Depth + 1;

{
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #393)"

#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #391)"

#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #385)"

    $typeURI = $typeq eq ''
               ? defined $defaultTypeURI ? $defaultTypeURI
                                         : 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #386)"
'http://suika.fam.cx/~wakaba/archive/2004/dom/main#any'
               : 
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #387)"
$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #388)"
qname_to_uri
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #389)"
 ($typeq, %opt);
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #390)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #392)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #394)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #396)"
}

#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #403)"

#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #397)"
;
  if (length $forq) {
    $forURI = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #398)"
qname_to_uri
#line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #399)"
 ($forq, %opt);
  } else {
    $forURI = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #400)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all'
#line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #401)"
;
  }
} else {  ## "For" omitted
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #402)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #404)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #415)"
local $Error::Depth = $Error::Depth + 1;

{
#line 16 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #413)"

#line 16 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #411)"

#line 16 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #405)"

    $typeURI = $typeq eq ''
               ? defined $defaultTypeURI ? $defaultTypeURI
                                         : 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #406)"
'http://suika.fam.cx/~wakaba/archive/2004/dom/main#any'
               : 
#line 19 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #407)"
$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #408)"
qname_to_uri
#line 19 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #409)"
 ($typeq, %opt);
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #410)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #412)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #414)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #416)"
}

#line 21 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #421)"

#line 21 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #417)"
;
  $forURI = defined $defaultForURI ? $defaultForURI
                                   : 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #418)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all'
#line 23 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #419)"
;
}

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #420)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #422)"

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [b] (Chunk #429)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [bc] (Chunk #427)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #423)"
($forURI eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #424)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #425)"
) {
  $r = $typeURI;
} else {
  ## NOTE: [RFC 3986]
  ##       fragment    := *(pchar / "/" / "?")
  ##       pchar       := unreserved / pct-encoded / sub-delims / [:@]
  ##       unreserved  := ALPHA / DIGIT / [._~-]
  ##       sub-delims  := [!$&'()*+,;=]
  ## NOTE: [XPointer Framework]
  ##       SchemeData  := *EscapedData
  ##       EscapedData := NormalChar / "^(" / "^)" / "^^"
  ##                    / "(" SchemeData ")"
  ##       NormalChar  := UnicodeChar - [()^]
  my $__turi = $typeURI;
  my $__furi = $forURI;
  for my $__uri ($__turi, $__furi) {
    $__uri =~ s{([^0-9A-Za-z!\$'()*,:;=?\@_./~-])}{sprintf '%%%02X', ord $1}ge;
  }
  $r = qq<tag:suika.fam.cx,2005-09:$__turi+$__furi>;
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #426)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #428)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #430)"
}

#line 25 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #433)"

#line 25 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #431)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #432)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #434)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #436)"
}
$r}
sub prefix_to_uri ($;$%) {
my ($self, $prefix, %opt) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #485)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #439)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #437)"
(defined $prefix) {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #438)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #440)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #449)"
local $Error::Depth = $Error::Depth + 1;

{
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #447)"

#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #445)"

#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #441)"

    $r = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #442)"
lookup_namespace_uri
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #443)"
 ($prefix);
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #444)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #446)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #448)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #450)"
}

#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #453)"

#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #451)"
;
  unless (defined $r) {
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #452)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #454)"
report Message::Markup::SuikaWikiConfig21::ManakaiSWCFGException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $opt{node}, '-type' => 'NAMESPACE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'prefix_to_uri', 'http://www.w3.org/2001/04/infoset#prefix' => $prefix, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#UNDECLARED_NS_PREFIX_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiNSResolverDIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'prefix';

#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #465)"

#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #455)"
;
  }
} elsif (defined $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #456)"
'node'
#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #457)"
}
                      ->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #458)"
'dns'
#line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #459)"
}) {
  $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #460)"
'node'
#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #461)"
}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #462)"
'dns'
#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #463)"
};
} else {  ## Default namespace
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #464)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #466)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #479)"
local $Error::Depth = $Error::Depth + 1;

{
#line 16 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #477)"

#line 16 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #475)"

#line 16 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #467)"

    $r = ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #468)"
owner_dis_document
#line 17 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #469)"
 || $self)
               ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #470)"
module_element
#line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #471)"

               ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #472)"
defining_namespace_uri
#line 19 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #473)"
;
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #474)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #476)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #478)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #480)"
}

#line 20 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #483)"

#line 20 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #481)"
;
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #482)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #484)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #486)"
}
$r}
$Message::DOM::ClassFeature{q<Message::Util::DIS::ManakaiNSResolverDIS>} = {'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#core', {'', '1', '1.0', '1'}};
$Message::DOM::ClassPoint{q<Message::Util::DIS::ManakaiNSResolverDIS>} = 1;
package Message::Util::DIS::ManakaiDISElement;
our $VERSION = 20050928.0929;
push our @ISA, 'Message::Util::DIS::ManakaiNSResolverDIS', 'Message::Util::DIS::ManakaiDISNode', 'Message::Markup::SuikaWikiConfig21::ManakaiSWCFGElement', 'Message::Util::DIS::Perl::ManakaiDISElementPerl', 'Message::Util::IF::DISElement', 'Message::Util::IFLatest::DISElement';
sub dis_get_attribute_list ($$%) {
my ($self, $attrName, %opt) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disGetAttributeList][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #499)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disGetAttributeList][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #497)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disGetAttributeList][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #487)"
$r = bless [], 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #488)"
'Message::Util::DIS::ManakaiDISElementList'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disGetAttributeList][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #489)"
;
for my $c (@{$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #490)"
dis_child_elements
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disGetAttributeList][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #491)"

                          (for_arg => $opt{for_arg}, forp_arg => $opt{forp_arg},
                           database_arg => $opt{database_arg})}) {
  if ($c->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #492)"
expanded_uri eq 
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disGetAttributeList][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #493)"
$attrName and
      $c->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #494)"
media_type_match
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disGetAttributeList][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #495)"

                          ($opt{media_type}, $opt{default_media_type},
                           for_arg => $opt{for_arg}, forp_arg => $opt{forp_arg},
                           database_arg => $opt{database_arg})) {
    push @$r, $c;
  }
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #496)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #498)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #500)"
}
$r}
sub dis_child_elements ($%) {
my ($self, %opt) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #537)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #505)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #501)"
$r = bless [], 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #502)"
'Message::Util::DIS::ManakaiDISElementList'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #503)"
;    

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #504)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #506)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #531)"
local $Error::Depth = $Error::Depth + 1;

{
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #529)"

#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #511)"

  C: 
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #507)"
for my $cn (@{$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #508)"
child_nodes
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #509)"
}) {
    ## $cn is an #element.
    my $dn;
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #510)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #512)"

{
#line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [b] (Chunk #521)"

#line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [bc] (Chunk #519)"

#line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #513)"
$cn->{'node'}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #514)"
'rc'
#line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #515)"
}++;
$dn = bless {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #516)"
'node'
#line 3 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #517)"
 => $cn->{'node'},
}, 'Message::Util::DIS::ManakaiDISElement';
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #518)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #520)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #522)"
}

#line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #527)"

#line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #523)"
;
    next C unless $dn->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #524)"
for_match
#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #525)"

                              ($opt{for_arg}, $opt{forp_arg},
                               database_arg => $opt{database_arg});
    push @$r, $dn;
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #526)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #528)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #530)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #532)"
}

#line 17 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #535)"

#line 17 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #533)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #534)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #536)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #538)"
}
$r}
sub is_resource_element ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #559)"
my ($self) = @_;
my $r = 0;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isResourceElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #557)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isResourceElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #539)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #540)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #551)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isResourceElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #549)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isResourceElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #547)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isResourceElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #541)"

  $r = ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #542)"
expanded_uri eq 
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isResourceElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #543)"

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #544)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ResourceDef'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isResourceElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #545)"
);

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #546)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #548)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #550)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #552)"
}

#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isResourceElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #555)"

#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isResourceElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #553)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #554)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #556)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #558)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #560)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #561)"
my ($self) = @_;
report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISElement', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'is_resource_element';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #562)"
}}
sub is_property_element ($%) {
my ($self, %opt) = @_;
my $r = 0;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isPropertyElement][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #593)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isPropertyElement][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #563)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #564)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #587)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isPropertyElement][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #585)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isPropertyElement][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #583)"

  my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isPropertyElement][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #565)"
$xn = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #566)"
expanded_uri
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isPropertyElement][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #567)"
;
  if ($xn eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #568)"
'http://www.w3.org/1999/02/22-rdf-syntax-ns#type'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isPropertyElement][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #569)"
) {
    $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #570)"
1
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isPropertyElement][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #571)"
;
  } else {
    my $rdef = ($opt{database_arg} or
                $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #572)"
owner_dis_document
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isPropertyElement][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #573)"

                     ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #574)"
dis_database
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isPropertyElement][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #575)"
)
                     ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #576)"
get_resource
#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isPropertyElement][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #577)"
 ($xn);
    $r = $rdef->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #578)"
is_type_uri
#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isPropertyElement][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #579)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #580)"
'http://www.w3.org/1999/02/22-rdf-syntax-ns#Property'
#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isPropertyElement][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #581)"
);
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #582)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #584)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #586)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #588)"
}

#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isPropertyElement][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #591)"

#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isPropertyElement][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #589)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #590)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #592)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #594)"
}
$r}
sub element_type_match ($$) {
my ($self, $etype) = @_;
my $r = 0;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=elementTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #619)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=elementTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #595)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #596)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #613)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=elementTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #611)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=elementTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #609)"

  my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=elementTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #597)"
$et = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #598)"
expanded_uri
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=elementTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #599)"
;
  my $rdef = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #600)"
owner_dis_document
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=elementTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #601)"

                           ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #602)"
dis_database
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=elementTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #603)"

                           ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #604)"
get_resource
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=elementTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #605)"
 ($et);
  $r = $rdef->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #606)"
is_subset_of_uri
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=elementTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #607)"
 ($etype);

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #608)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #610)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #612)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #614)"
}

#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=elementTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #617)"

#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=elementTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #615)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #616)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #618)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #620)"
}
$r}
sub unlink_from_document ($$) {
my ($self, $databaseArg) = @_;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #665)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #621)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #622)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #659)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #657)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #655)"

  my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #623)"
$ods = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #624)"
'node'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #625)"
}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #626)"
'swod'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #627)"
};
  $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #628)"
'node'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #629)"
}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #630)"
'swnsb'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #631)"
}
    = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #632)"
get_namespace_binding_list
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #633)"
 ($databaseArg);
  $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #634)"
'node'
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #635)"
}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #636)"
'dns'
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #637)"
}
    = ${$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #638)"
get_default_namespace_uri_ref
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #639)"
};
  my @nodes = ($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #640)"
'node'
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #641)"
});
  while (defined (my $node = shift @nodes)) {
    CORE::delete $node->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #642)"
'swod'
#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #643)"
};
    push @nodes, grep {$_} @{$node->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #644)"
'swcn'
#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #645)"
}},
                           $node->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #646)"
'shadow'
#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #647)"
},
                           $node->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #648)"
'shadowsib'
#line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #649)"
};
  }
  $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #650)"
'node'
#line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #651)"
}
       ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #652)"
_orphanate
#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #653)"
;

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #654)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #656)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #658)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #660)"
}

#line 16 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #663)"

#line 16 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #661)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #662)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #664)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #666)"
}
}
sub media_type_uri ($%) {
my ($self, %opt) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeURI][@Type=MediaTypeURI][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #687)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeURI][@Type=MediaTypeURI][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #667)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #668)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #681)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeURI][@Type=MediaTypeURI][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #679)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeURI][@Type=MediaTypeURI][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #677)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeURI][@Type=MediaTypeURI][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #669)"

  $r = $opt{default_media_type};
  my $ctn = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #670)"
get_attribute_ns
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeURI][@Type=MediaTypeURI][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #671)"

                      (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #672)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--'
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeURI][@Type=MediaTypeURI][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #673)"
, 'ContentType');
  $r = $ctn->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #674)"
qname_value_uri if 
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeURI][@Type=MediaTypeURI][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #675)"
$ctn;

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #676)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #678)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #680)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #682)"
}

#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeURI][@Type=MediaTypeURI][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #685)"

#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeURI][@Type=MediaTypeURI][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #683)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #684)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #686)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #688)"
}
$r}
sub clone ($) {
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@type=DISLang:Method]/Return[@Type=DISElement][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #695)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@type=DISLang:Method]/Return[@Type=DISElement][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #693)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@type=DISLang:Method]/Return[@Type=DISElement][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #689)"
$r = bless $self->SUPER::clone, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #690)"
'Message::Util::DIS::ManakaiDISElement'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@type=DISLang:Method]/Return[@Type=DISElement][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #691)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #692)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #694)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #696)"
}
$r}
sub media_type_match ($$;$%) {
my ($self, $mediaType, $defaultMediaType, %opt) = @_;
my $r = 0;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #735)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #699)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #697)"
(defined $mediaType) {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #698)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #700)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #727)"
local $Error::Depth = $Error::Depth + 1;

{
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #725)"

#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #723)"

    my 
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #701)"
$ctn = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #702)"
get_attribute_ns
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #703)"

                          (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #704)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--'
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #705)"
, 'ContentType');
    my $ct;
    $ct = $ctn->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #706)"
qname_value_uri if 
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #707)"
$ctn;
    $ct = $defaultMediaType unless defined $ct;
    my $res = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #708)"
owner_dis_document
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #709)"

                         ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #710)"
dis_database
#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #711)"

                         ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #712)"
get_resource
#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #713)"
 ($ct);
    $res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #714)"
is_referred
#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #715)"
 ($ctn or $self);
    unless ($res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #716)"
is_subset_of_uri
#line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #717)"
 ($mediaType)) {
      $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #718)"
0
#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #719)"
;
    } else {
      $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #720)"
1
#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #721)"
;
    }
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #722)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #724)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #726)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #728)"
}

#line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #733)"

#line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #729)"
;
} else {
  $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #730)"
1
#line 20 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #731)"
;
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #732)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #734)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #736)"
}
$r}
sub qname_value_uri ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #759)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #757)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #737)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #738)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #751)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #749)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #747)"

  my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #739)"
$v = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #740)"
value
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #741)"
;
  if (defined $v and not ref $v eq 'ARRAY') {
    $r = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #742)"
qname_to_uri
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #743)"
 ($v, node => $self);
  } else {
    $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #744)"
undef
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #745)"
;
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #746)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #748)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #750)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #752)"
}

#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #755)"

#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #753)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #754)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #756)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #758)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #760)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #761)"
my ($self) = @_;
report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISElement', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'qname_value_uri';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #762)"
}}
sub preserve_node_path ($) {
my ($self) = @_;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=preserveNodePath][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #781)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=preserveNodePath][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #763)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #764)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #775)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=preserveNodePath][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #773)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=preserveNodePath][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #771)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=preserveNodePath][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #765)"

  $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #766)"
flag
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=preserveNodePath][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #767)"
 (nodePath => $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #768)"
node_path
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=preserveNodePath][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #769)"

    (key => [qw/QName Name Type type/]));

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #770)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #772)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #774)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #776)"
}

#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=preserveNodePath][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #779)"

#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=preserveNodePath][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #777)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #778)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #780)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #782)"
}
}
sub qname_value_namespace_uri ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #807)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueNamespaceURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #805)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueNamespaceURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #783)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #784)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #799)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueNamespaceURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #797)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueNamespaceURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #795)"

  my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueNamespaceURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #785)"
$v = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #786)"
value
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueNamespaceURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #787)"
;
  if (defined $v and not ref $v eq 'ARRAY') {
    my ($p, $v) = split /\s*[:|]\s*/, $v, 2;
    $r = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #788)"
prefix_to_uri
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueNamespaceURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #789)"

                                    (defined $v ? $p : 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #790)"
undef
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueNamespaceURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #791)"
);
  } else {
    $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #792)"
undef
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueNamespaceURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #793)"
;
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #794)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #796)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #798)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #800)"
}

#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueNamespaceURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #803)"

#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueNamespaceURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #801)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #802)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #804)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #806)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #808)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #809)"
my ($self) = @_;
report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISElement', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'qname_value_namespace_uri';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #810)"
}}
sub for_match ($$;$%) {
my ($self, $forArg, $forpArg, %opt) = @_;
my $r = 0;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #935)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #815)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #811)"
$forArg = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #812)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' unless 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #813)"
defined $forArg;
$forpArg ||= [];

FORMATCH: {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #814)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #816)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #929)"
local $Error::Depth = $Error::Depth + 1;

{
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #927)"

#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #925)"

    my 
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #817)"
$for_res = ($opt{database_arg} ||=
                   $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #818)"
owner_dis_document
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #819)"

                        ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #820)"
dis_database
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #821)"
)
                        ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #822)"
get_for
#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #823)"
 ($forArg);
    my $forp_res = [map {
                          $opt{database_arg}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #824)"
get_for
#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #825)"
 ($_)
                        } @{$forpArg}];

    my @ce = @{$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #826)"
dis_all_child_elements
#line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #827)"
};
    for my $ce (@ce) {
      my $et = $ce->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #828)"
expanded_uri
#line 15 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #829)"
;
      if ($et eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #830)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ForCheck'
#line 16 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #831)"
) {
        my $fors = [split /\s+/, $ce->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #832)"
value
#line 17 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #833)"
];
        FCs: for my $f (@$fors) {
          if ($f =~ /^!=(.+)$/) {        ## -- NOT EQUAL TO
            my $uri = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #834)"
qname_to_uri
#line 20 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #835)"
 ($1);
            my $for = $opt{database_arg}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #836)"
get_for
#line 21 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #837)"
 ($uri);
            $for->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #838)"
is_referred
#line 22 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #839)"
 ($ce);
            for my $arg_res ($for_res, @{$forp_res}) {
              if ($arg_res eq $for) {
                $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #840)"
0
#line 25 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #841)"
;
                last FORMATCH;
              }
            }
          } elsif ($f =~ /^!(.+)$/) {    ## -- NOT ISA
            my $uri = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #842)"
qname_to_uri
#line 30 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #843)"
 ($1);
            my $for = $opt{database_arg}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #844)"
get_for
#line 31 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #845)"
 ($uri);
            $for->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #846)"
is_referred
#line 32 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #847)"
 ($ce);
            for my $arg_res ($for_res, @{$forp_res}) {
              if ($arg_res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #848)"
isa_uri
#line 34 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #849)"
 ($uri)) {
                $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #850)"
0
#line 35 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #851)"
;
                last FORMATCH;
              }
            }
          } elsif ($f =~ /^=(.+)$/) {    ## -- EQUAL TO
            my $uri = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #852)"
qname_to_uri
#line 40 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #853)"
 ($1);
            my $for = $opt{database_arg}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #854)"
get_for
#line 41 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #855)"
 ($uri);
            $for->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #856)"
is_referred
#line 42 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #857)"
 ($ce);
            for my $arg_res ($for_res, @{$forp_res}) {
              if ($arg_res eq $for) {
                next FCs;
              }
            }
            $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #858)"
0
#line 48 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #859)"
;
            last FORMATCH;
          } else {                       ## -- ISA
            my $uri = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #860)"
qname_to_uri
#line 51 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #861)"
 ($f);
            my $for = $opt{database_arg}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #862)"
get_for
#line 52 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #863)"
 ($uri);
            $for->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #864)"
is_referred
#line 53 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #865)"
 ($ce);
            for my $arg_res ($for_res, @{$forp_res}) {
              if ($arg_res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #866)"
isa_uri
#line 55 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #867)"
 ($uri)) {
                next FCs;
              }
            }
            $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #868)"
0
#line 59 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #869)"
;
            last FORMATCH;
          }
        } # FCs
      } # dis:ForCheck
    } # children

    my $has_for = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #870)"
0
#line 66 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #871)"
;
    for my $ce (@ce) {
      if ($ce->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #872)"
expanded_uri eq
          
#line 68 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #873)"

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #874)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--For'
#line 68 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #875)"
) {
        my $fors = [split /\s+/, $ce->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #876)"
value
#line 69 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #877)"
];
        my $ok = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #878)"
1
#line 70 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #879)"
;
        $has_for = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #880)"
1
#line 71 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #881)"
;
        AFOR: for my $f (@$fors) {
          if ($f =~ /^!=(.+)$/) {         ## -- NOT EQUAL TO
            my $uri = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #882)"
qname_to_uri
#line 74 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #883)"
 ($1);
            my $for = $opt{database_arg}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #884)"
get_for
#line 75 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #885)"
 ($uri);
            $for->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #886)"
is_referred
#line 76 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #887)"
 ($ce);
            if ($for eq $for_res) {
              $ok = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #888)"
0
#line 78 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #889)"
;
              last AFOR;
            }
          } elsif ($f =~ /^!(.+)$/) {     ## -- NOT ISA
            my $uri = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #890)"
qname_to_uri
#line 82 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #891)"
 ($1);
            my $for = $opt{database_arg}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #892)"
get_for
#line 83 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #893)"
 ($uri);
            $for->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #894)"
is_referred
#line 84 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #895)"
 ($ce);
            if ($for_res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #896)"
isa_uri
#line 85 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #897)"
 ($uri)) {
              $ok = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #898)"
0
#line 86 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #899)"
;
              last AFOR;
            }
          } elsif ($f =~ /^=(.+)$/) {     ## -- EQUAL TO
            my $uri = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #900)"
qname_to_uri
#line 90 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #901)"
 ($1);
            my $for = $opt{database_arg}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #902)"
get_for
#line 91 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #903)"
 ($uri);
            $for->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #904)"
is_referred
#line 92 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #905)"
 ($ce);
            unless ($for eq $for_res) {
              $ok = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #906)"
0
#line 94 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #907)"
;
              last AFOR;
            }
          } else {                        ## -- ISA
            my $uri = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #908)"
qname_to_uri
#line 98 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #909)"
 ($f);
            my $for = $opt{database_arg}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #910)"
get_for
#line 99 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #911)"
 ($uri);
            $for->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #912)"
is_referred
#line 100 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #913)"
 ($ce);
            unless ($for_res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #914)"
isa_uri
#line 101 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #915)"
($uri)){
              $ok = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #916)"
0
#line 102 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #917)"
;
              last AFOR;
            }
          }
        } # AFOR
        if ($ok) {
          $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #918)"
1
#line 108 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #919)"
;
          last FORMATCH;
        }
      } # dis:For
    } # $ce
    $r = $has_for ? 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #920)"
0 : 
#line 113 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #921)"

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #922)"
1
#line 113 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #923)"
;
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #924)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #926)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #928)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #930)"
}

#line 120 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #933)"

#line 120 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #931)"
;
} # FORMATCH
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #932)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #934)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #936)"
}
$r}
sub get_default_namespace_uri_ref ($) {
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getDefaultNamespaceURIRef][@Type=DISPerl|SCALAR||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #969)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getDefaultNamespaceURIRef][@Type=DISPerl|SCALAR||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #947)"
my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getDefaultNamespaceURIRef][@Type=DISPerl|SCALAR||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #937)"
$ods = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #938)"
'node'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getDefaultNamespaceURIRef][@Type=DISPerl|SCALAR||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #939)"
}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #940)"
'swod'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getDefaultNamespaceURIRef][@Type=DISPerl|SCALAR||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #941)"
};
if ($ods->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #942)"
'dns'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getDefaultNamespaceURIRef][@Type=DISPerl|SCALAR||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #943)"
}) {
  $r = \ ($ods->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #944)"
'dns'
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getDefaultNamespaceURIRef][@Type=DISPerl|SCALAR||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #945)"
});
} else {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #946)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #948)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #963)"
local $Error::Depth = $Error::Depth + 1;

{
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getDefaultNamespaceURIRef][@Type=DISPerl|SCALAR||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #961)"

#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getDefaultNamespaceURIRef][@Type=DISPerl|SCALAR||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #959)"

#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getDefaultNamespaceURIRef][@Type=DISPerl|SCALAR||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #949)"

    $r = \($ods->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #950)"
'dns'
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getDefaultNamespaceURIRef][@Type=DISPerl|SCALAR||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #951)"
}
       = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #952)"
owner_dis_document
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getDefaultNamespaceURIRef][@Type=DISPerl|SCALAR||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #953)"

              ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #954)"
module_element
#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getDefaultNamespaceURIRef][@Type=DISPerl|SCALAR||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #955)"

              ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #956)"
defining_namespace_uri
#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getDefaultNamespaceURIRef][@Type=DISPerl|SCALAR||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #957)"
);
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #958)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #960)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #962)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #964)"
}

#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getDefaultNamespaceURIRef][@Type=DISPerl|SCALAR||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #967)"

#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getDefaultNamespaceURIRef][@Type=DISPerl|SCALAR||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #965)"
;
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #966)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #968)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #970)"
}
$r}
sub dis_get_attribute ($$%) {
my ($self, $attrName, %opt) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disGetAttribute][@type=DISLang:Method]/Return[@Type=DISElement][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #981)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disGetAttribute][@type=DISLang:Method]/Return[@Type=DISElement][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #979)"
C: 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disGetAttribute][@type=DISLang:Method]/Return[@Type=DISElement][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #971)"
for my $c (@{$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #972)"
dis_child_elements
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disGetAttribute][@type=DISLang:Method]/Return[@Type=DISElement][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #973)"

                          (for_arg => $opt{for_arg}, forp_arg => $opt{forp_arg},
                           database_arg => $opt{database_arg})}) {
  if ($c->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #974)"
expanded_uri eq 
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disGetAttribute][@type=DISLang:Method]/Return[@Type=DISElement][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #975)"
$attrName and
      $c->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #976)"
media_type_match
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disGetAttribute][@type=DISLang:Method]/Return[@Type=DISElement][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #977)"

                          ($opt{media_type}, $opt{default_media_type},
                           for_arg => $opt{for_arg}, forp_arg => $opt{forp_arg},
                           database_arg => $opt{database_arg})) {
    $r = $c;
    last C;
  }
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #978)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #980)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #982)"
}
$r}
sub dis_all_child_elements ($) {
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1017)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #987)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #983)"
$r = bless [], 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #984)"
'Message::Util::DIS::ManakaiDISElementList'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #985)"
;    

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #986)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #988)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1011)"
local $Error::Depth = $Error::Depth + 1;

{
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1009)"

#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #993)"

  for 
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #989)"
my $cn (@{$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #990)"
child_nodes
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #991)"
}) {
    ## $cn is an #element.
    my $dn;
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #992)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #994)"

{
#line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [b] (Chunk #1003)"

#line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [bc] (Chunk #1001)"

#line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #995)"
$cn->{'node'}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #996)"
'rc'
#line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #997)"
}++;
$dn = bless {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #998)"
'node'
#line 3 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #999)"
 => $cn->{'node'},
}, 'Message::Util::DIS::ManakaiDISElement';
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1000)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1002)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1004)"
}

#line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1007)"

#line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1005)"
;
    push @$r, $dn;
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1006)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1008)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1010)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1012)"
}

#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1015)"

#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1013)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1014)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1016)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1018)"
}
$r}
sub get_namespace_binding_list ($$) {
my ($self, $databaseArg) = @_;
my $r = {};

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getNamespaceBindingList][@Type=DISPerl|HASH||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1047)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getNamespaceBindingList][@Type=DISPerl|HASH||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1045)"
my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getNamespaceBindingList][@Type=DISPerl|HASH||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1019)"
$ods = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1020)"
'node'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getNamespaceBindingList][@Type=DISPerl|HASH||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1021)"
}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1022)"
'swod'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getNamespaceBindingList][@Type=DISPerl|HASH||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1023)"
};
if ($ods->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1024)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#allNSBindings'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getNamespaceBindingList][@Type=DISPerl|HASH||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1025)"
}) {
  $r = $ods->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1026)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#allNSBindings'
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getNamespaceBindingList][@Type=DISPerl|HASH||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1027)"
};
} else {
  if ($databaseArg) {
    for my $mod_uri (keys %{$databaseArg->{modDef}}) {
      my $mod = $databaseArg->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1028)"
get_module
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getNamespaceBindingList][@Type=DISPerl|HASH||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1029)"
 ($mod_uri);
      $ods->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1030)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#allNSBindings'
#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getNamespaceBindingList][@Type=DISPerl|HASH||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1031)"
}
          ->{$mod->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1032)"
local_name
#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getNamespaceBindingList][@Type=DISPerl|HASH||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1033)"
}
        = $mod->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1034)"
target_namespace_uri
#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getNamespaceBindingList][@Type=DISPerl|HASH||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1035)"
;
    }
  }
  for my $prefix (keys %{$ods->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1036)"
'swnsb'
#line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getNamespaceBindingList][@Type=DISPerl|HASH||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1037)"
}}) {
    $ods->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1038)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#allNSBindings'
#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getNamespaceBindingList][@Type=DISPerl|HASH||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1039)"
}->{$prefix}
        = $ods->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1040)"
'swnsb'
#line 15 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getNamespaceBindingList][@Type=DISPerl|HASH||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1041)"
}->{$prefix};
  }
  $r = $ods->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1042)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#allNSBindings'
#line 17 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getNamespaceBindingList][@Type=DISPerl|HASH||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1043)"
};
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1044)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1046)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1048)"
}
$r}
sub get_feature ($$$) {
my ($self, $feature, $version) = @_;

{
#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [b] (Chunk #1053)"

#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [bc] (Chunk #1051)"

#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #1049)"
$feature = lc $feature;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1050)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1052)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1054)"
}

{
#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [b] (Chunk #1059)"

#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [bc] (Chunk #1057)"

#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #1055)"
$version = '' unless defined $version;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1056)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1058)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1060)"
}
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1079)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1063)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1061)"
$feature =~ s/^\+//;
CLASS: for my $class (grep {
  $Message::Util::DIS::ManakaiDISElement::CompatClass{$_}
} keys %Message::Util::DIS::ManakaiDISElement::CompatClass) {
  if ($Message::DOM::ClassFeature{$class}->{$feature}->{$version}) {
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1062)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1064)"

{
#line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [b] (Chunk #1073)"

#line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [bc] (Chunk #1071)"

#line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1065)"
$self->{'node'}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1066)"
'rc'
#line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1067)"
}++;
$r = bless {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1068)"
'node'
#line 3 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1069)"
 => $self->{'node'},
}, $class;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1070)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1072)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1074)"
}

#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1077)"

#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1075)"
;
    last CLASS;
  }
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1076)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1078)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1080)"
}
$r}
sub tfqnames_value_uri ($;$$%) {
my ($self, $defaultTypeURI, $defaultForURI, %opt) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1111)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1085)"
my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1081)"
$v = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1082)"
value
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1083)"
;
if (defined $v and not ref $v eq 'ARRAY') {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1084)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1086)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1103)"
local $Error::Depth = $Error::Depth + 1;

{
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1101)"

#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1099)"

    if 
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1087)"
($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1088)"
media_type_match
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1089)"

                         (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1090)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#TFPQNames'
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1091)"
, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1092)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#TFPQNames'
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1093)"
,
                          for_arg => $opt{for_arg}, forp_arg => $opt{forp_arg},
                          database_arg => $opt{database_arg})) {
      $r = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1094)"
tfpqnames_to_uri
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1095)"

                          ($v, $defaultTypeURI, $defaultForURI,
                           node => $self);
    } else {
      $r = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1096)"
tfqnames_to_uri
#line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1097)"

                          ($v, $defaultTypeURI, $defaultForURI,
                           node => $self);
    }
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1098)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1100)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1102)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1104)"
}

#line 16 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1109)"

#line 16 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1105)"
;
} else {
  $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1106)"
undef
#line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1107)"
;
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1108)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1110)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1112)"
}
$r}
sub qname_value_local_name ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1133)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueLocalName][@type=DISLang:Attribute]/Get[@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1131)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueLocalName][@type=DISLang:Attribute]/Get[@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1113)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1114)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1125)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueLocalName][@type=DISLang:Attribute]/Get[@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1123)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueLocalName][@type=DISLang:Attribute]/Get[@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1121)"

  my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueLocalName][@type=DISLang:Attribute]/Get[@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1115)"
$v = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1116)"
value
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueLocalName][@type=DISLang:Attribute]/Get[@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1117)"
;
  if (defined $v and not ref $v eq 'ARRAY') {
    my ($n, $v) = split /\s*[:|]\s*/, $v, 2;
    $r = defined $v ? $v : $n;
  } else {
    $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1118)"
undef
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueLocalName][@type=DISLang:Attribute]/Get[@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1119)"
;
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1120)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1122)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1124)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1126)"
}

#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueLocalName][@type=DISLang:Attribute]/Get[@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1129)"

#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueLocalName][@type=DISLang:Attribute]/Get[@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1127)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1128)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1130)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1132)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1134)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1135)"
my ($self) = @_;
report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISElement', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'qname_value_local_name';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1136)"
}}
sub qname_value_prefix ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1159)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValuePrefix][@type=DISLang:Attribute]/Get[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1157)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValuePrefix][@type=DISLang:Attribute]/Get[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1137)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1138)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1151)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValuePrefix][@type=DISLang:Attribute]/Get[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1149)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValuePrefix][@type=DISLang:Attribute]/Get[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1147)"

  my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValuePrefix][@type=DISLang:Attribute]/Get[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1139)"
$v = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1140)"
value
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValuePrefix][@type=DISLang:Attribute]/Get[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1141)"
;
  if (defined $v and not ref $v eq 'ARRAY') {
    my ($p, $l) = split /\s*[:|]\s*/, $v, 2;
    $r = defined $l ? $p : 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1142)"
undef
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValuePrefix][@type=DISLang:Attribute]/Get[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1143)"
;
  } else {
    $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1144)"
undef
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValuePrefix][@type=DISLang:Attribute]/Get[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1145)"
;
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1146)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1148)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1150)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1152)"
}

#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValuePrefix][@type=DISLang:Attribute]/Get[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1155)"

#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValuePrefix][@type=DISLang:Attribute]/Get[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1153)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1154)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1156)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1158)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1160)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1161)"
my ($self) = @_;
report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISElement', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'qname_value_prefix';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1162)"
}}
$Message::DOM::ClassFeature{q<Message::Util::DIS::ManakaiDISElement>} = {'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#core', {'', '1', '1.0', '1'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#perl', {'', '1', '1.0', '1'}, 'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#core', {'', '1', '2.1', '1'}};
$Message::DOM::ClassPoint{q<Message::Util::DIS::ManakaiDISElement>} = 8.2;
$Message::Util::DIS::ManakaiDISElement::CompatClass{q<Message::Util::DIS::ManakaiDISElement>} = 1;
$Message::Util::ManakaiNode::ManakaiNodeRef::Prop{q<Message::Util::DIS::ManakaiDISElement>} = {'s0', ['shadow', 'shadowsib'], 'a1', ['swflag', 'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#option'], 's', ['swcn'], 'i', ['swod'], 'o', ['p']};
package Message::Util::DIS::ManakaiDISModuleElement;
our $VERSION = 20050928.0929;
push our @ISA, 'Message::Util::DIS::ManakaiDISElement', 'Message::Util::IF::DISElement', 'Message::Util::IF::DISModuleElement', 'Message::Util::IFLatest::DISElement', 'Message::Util::IFLatest::DISModuleElement';
sub default_for_uri ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1191)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1189)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1163)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1164)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1183)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1181)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1179)"

  my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1165)"
$df = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1166)"
get_attribute_ns
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1167)"

                                 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1168)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1169)"
, 'DefaultFor');
  if ($df) {
    $r = (bless $df, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1170)"
'Message::Util::DIS::ManakaiDISElement'
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1171)"
)
         ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1172)"
qname_value_uri
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1173)"

      || 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1174)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all'
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1175)"
;
  } else {
    $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1176)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all'
#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1177)"
;
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1178)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1180)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1182)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1184)"
}

#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1187)"

#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1185)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1186)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1188)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1190)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1192)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1213)"
my ($self, $given) = @_;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [b] (Chunk #1211)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [bc] (Chunk #1193)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1194)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1205)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [b] (Chunk #1203)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [bc] (Chunk #1201)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #1195)"

  $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1196)"
set_attribute_ns
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #1197)"

                             (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1198)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--'
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #1199)"
, 'DefaultFor' => $given);

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1200)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1202)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1204)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1206)"
}

#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [bc] (Chunk #1209)"

#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #1207)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1208)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1210)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1212)"
}

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1214)"
}}
sub require_element ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1239)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=requireElement][@Type=DISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1237)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=requireElement][@Type=DISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1215)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1216)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1231)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=requireElement][@Type=DISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1229)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=requireElement][@Type=DISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1227)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=requireElement][@Type=DISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1217)"

  $r = bless $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1218)"
get_attribute_ns
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=requireElement][@Type=DISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1219)"

                           (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1220)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--'
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=requireElement][@Type=DISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1221)"
, 'Require', make_new_node => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1222)"
1
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=requireElement][@Type=DISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1223)"
),
             
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1224)"
'Message::Util::DIS::ManakaiDISElement'
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=requireElement][@Type=DISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1225)"
;

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1226)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1228)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1230)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1232)"
}

#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=requireElement][@Type=DISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1235)"

#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=requireElement][@Type=DISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1233)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1234)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1236)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1238)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1240)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1241)"
my ($self) = @_;
report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISModuleElement', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'require_element';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1242)"
}}
sub defining_namespace_uri ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1269)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1267)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1243)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1244)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1261)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1259)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1253)"

  my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1245)"
$df = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1246)"
get_attribute_ns
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1247)"

                                 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1248)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1249)"
, 'Namespace');
  if ($df) {
    $r = $df->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1250)"
value
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1251)"
;
  } else {
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1252)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1254)"

#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1257)"

#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1255)"
;
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1256)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1258)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1260)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1262)"
}

#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1265)"

#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1263)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1264)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1266)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1268)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1270)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1291)"
my ($self, $given) = @_;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [b] (Chunk #1289)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [bc] (Chunk #1271)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1272)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1283)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [b] (Chunk #1281)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [bc] (Chunk #1279)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #1273)"

  $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1274)"
set_attribute_ns
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #1275)"

                             (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1276)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--'
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #1277)"
, 'Namespace' => $given);

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1278)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1280)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1282)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1284)"
}

#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [bc] (Chunk #1287)"

#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #1285)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1286)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1288)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1290)"
}

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1292)"
}}
$Message::DOM::ClassFeature{q<Message::Util::DIS::ManakaiDISModuleElement>} = {'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#core', {'', '1', '1.0', '1'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#perl', {'', '1', '1.0', '1'}, 'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#core', {'', '1', '2.1', '1'}};
$Message::DOM::ClassPoint{q<Message::Util::DIS::ManakaiDISModuleElement>} = 9.2;
package Message::Util::DIS::ManakaiDISElementList;
our $VERSION = 20050928.0929;
push our @ISA, 'Message::Util::IF::DISElementList', 'Message::Util::IFLatest::DISElementList';
$Message::DOM::ClassFeature{q<Message::Util::DIS::ManakaiDISElementList>} = {'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#core', {'', '1', '1.0', '1'}};
$Message::DOM::ClassPoint{q<Message::Util::DIS::ManakaiDISElementList>} = 1;
package Message::Util::DIS::ManakaiDISComment;
our $VERSION = 20050928.0929;
push our @ISA, 'Message::Util::DIS::ManakaiDISNode', 'Message::Markup::SuikaWikiConfig21::ManakaiSWCFGComment', 'Message::Util::IF::DISComment', 'Message::Util::IFLatest::DISComment';
$Message::DOM::ClassFeature{q<Message::Util::DIS::ManakaiDISComment>} = {'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#core', {'', '1', '1.0', '1'}, 'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#core', {'', '1', '2.1', '1'}};
$Message::DOM::ClassPoint{q<Message::Util::DIS::ManakaiDISComment>} = 6.2;
$Message::Util::ManakaiNode::ManakaiNodeRef::Prop{q<Message::Util::DIS::ManakaiDISComment>} = {'a1', ['swflag', 'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#option'], 's', ['swcn'], 'i', ['swod'], 'o', ['p']};
package Message::Util::DIS::ManakaiDISDocumentFragment;
our $VERSION = 20050928.0929;
push our @ISA, 'Message::Util::DIS::ManakaiDISNode', 'Message::Markup::SuikaWikiConfig21::ManakaiSWCFGDocumentFragment', 'Message::Util::IF::DISDocumentFragment', 'Message::Util::IFLatest::DISDocumentFragment';
$Message::DOM::ClassFeature{q<Message::Util::DIS::ManakaiDISDocumentFragment>} = {'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#core', {'', '1', '1.0', '1'}, 'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#core', {'', '1', '2.1', '1'}};
$Message::DOM::ClassPoint{q<Message::Util::DIS::ManakaiDISDocumentFragment>} = 6.2;
$Message::Util::ManakaiNode::ManakaiNodeRef::Prop{q<Message::Util::DIS::ManakaiDISDocumentFragment>} = {'a1', ['swflag', 'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#option'], 's', ['swcn'], 'i', ['swod'], 'o', ['shadowo', 'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#shadowParent', 'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#shadowSiblingOf', 'p']};
package Message::Util::DIS::ManakaiDISDocument;
our $VERSION = 20050928.0929;
push our @ISA, 'Message::Util::DIS::ManakaiDISNode', 'Message::Markup::SuikaWikiConfig21::ManakaiSWCFGDocument', 'Message::Util::IF::DISDocument', 'Message::Util::IFLatest::DISDocument';
sub dis_child_elements ($%) {
my ($self, %opt) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1331)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1297)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1293)"
$r = bless [], 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1294)"
'Message::Util::DIS::ManakaiDISElementList'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1295)"
;    

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1296)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1298)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1325)"
local $Error::Depth = $Error::Depth + 1;

{
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1323)"

#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1305)"

  C: 
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1299)"
for my $cn (@{$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1300)"
child_nodes
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1301)"
}) {
    next C unless $cn->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1302)"
node_type eq 
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1303)"
'#element';
    my $dn;
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1304)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1306)"

{
#line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [b] (Chunk #1315)"

#line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [bc] (Chunk #1313)"

#line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1307)"
$cn->{'node'}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1308)"
'rc'
#line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1309)"
}++;
$dn = bless {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1310)"
'node'
#line 3 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1311)"
 => $cn->{'node'},
}, 'Message::Util::DIS::ManakaiDISElement';
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1312)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1314)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1316)"
}

#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1321)"

#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1317)"
;
    next C unless $dn->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1318)"
for_match
#line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1319)"

                                      ($opt{for_arg}, $opt{forp_arg},
                                       database_arg => $opt{database_arg});
    push @$r, $dn;
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1320)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1322)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1324)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1326)"
}

#line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1329)"

#line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1327)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1328)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1330)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1332)"
}
$r}
sub module_element ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1357)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=moduleElement][@Type=DISModuleElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1355)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=moduleElement][@Type=DISModuleElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1333)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1334)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1347)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=moduleElement][@Type=DISModuleElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1345)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=moduleElement][@Type=DISModuleElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1343)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=moduleElement][@Type=DISModuleElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1335)"

  $r = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1336)"
get_attribute_ns
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=moduleElement][@Type=DISModuleElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1337)"

                           (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1338)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--'
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=moduleElement][@Type=DISModuleElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1339)"
, 'Module', make_new_node => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1340)"
1
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=moduleElement][@Type=DISModuleElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1341)"
);

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1342)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1344)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1346)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1348)"
}

#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=moduleElement][@Type=DISModuleElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1353)"

#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=moduleElement][@Type=DISModuleElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1349)"
;
$r = bless $r, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1350)"
'Message::Util::DIS::ManakaiDISModuleElement'
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=moduleElement][@Type=DISModuleElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1351)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1352)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1354)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1356)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1358)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1359)"
my ($self) = @_;
report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'module_element';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1360)"
}}
sub dis_database ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1379)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDatabase][@Type=DISDatabase][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1377)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDatabase][@Type=DISDatabase][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1371)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDatabase][@Type=DISDatabase][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1361)"
($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1362)"
'node'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDatabase][@Type=DISDatabase][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1363)"
}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1364)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#db'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDatabase][@Type=DISDatabase][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1365)"
}) {
  $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1366)"
'node'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDatabase][@Type=DISDatabase][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1367)"
}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1368)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#db'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDatabase][@Type=DISDatabase][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1369)"
};
} else {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1370)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1372)"
report Message::Util::DIS::ManakaiDISException -object => $self, '-type' => 'INVALID_STATE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_ASSOCIATED_DB_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'dis_database';

#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDatabase][@Type=DISDatabase][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1375)"

#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDatabase][@Type=DISDatabase][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1373)"
;
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1374)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1376)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1378)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1380)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1395)"
my ($self, $given) = @_;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDatabase][@Type=DISDatabase][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [b] (Chunk #1393)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDatabase][@Type=DISDatabase][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [bc] (Chunk #1391)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDatabase][@Type=DISDatabase][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #1381)"
$self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1382)"
'node'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDatabase][@Type=DISDatabase][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #1383)"
}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1384)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#db'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDatabase][@Type=DISDatabase][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #1385)"
} = $given;
require Scalar::Util;
Scalar::Util::weaken ($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1386)"
'node'
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDatabase][@Type=DISDatabase][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #1387)"
}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1388)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#db'
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDatabase][@Type=DISDatabase][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #1389)"
});
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1390)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1392)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1394)"
}

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1396)"
}}
sub add_namespace_binding ($$;$) {
my ($self, $prefix, $namespaceURI) = @_;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addNamespaceBinding][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1409)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addNamespaceBinding][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1407)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addNamespaceBinding][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1397)"
(defined $namespaceURI) {
  $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1398)"
'node'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addNamespaceBinding][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1399)"
}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1400)"
'swnsb'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addNamespaceBinding][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1401)"
}->{$prefix}
    = $namespaceURI;
} else {
  CORE::delete $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1402)"
'node'
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addNamespaceBinding][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1403)"
}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1404)"
'swnsb'
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addNamespaceBinding][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1405)"
}
                    ->{$prefix};
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1406)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1408)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1410)"
}
}
sub dis_all_child_elements ($) {
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1447)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1415)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1411)"
$r = bless [], 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1412)"
'Message::Util::DIS::ManakaiDISElementList'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1413)"
;    

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1414)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1416)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1441)"
local $Error::Depth = $Error::Depth + 1;

{
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1439)"

#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1423)"

  C: 
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1417)"
for my $cn (@{$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1418)"
child_nodes
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1419)"
}) {
    next C unless $cn->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1420)"
node_type eq 
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1421)"
'#element';
    my $dn;
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1422)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1424)"

{
#line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [b] (Chunk #1433)"

#line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [bc] (Chunk #1431)"

#line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1425)"
$cn->{'node'}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1426)"
'rc'
#line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1427)"
}++;
$dn = bless {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1428)"
'node'
#line 3 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1429)"
 => $cn->{'node'},
}, 'Message::Util::DIS::ManakaiDISElement';
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1430)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1432)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1434)"
}

#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1437)"

#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1435)"
;
    push @$r, $dn;
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1436)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1438)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1440)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1442)"
}

#line 15 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1445)"

#line 15 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1443)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1444)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1446)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1448)"
}
$r}
$Message::DOM::ClassFeature{q<Message::Util::DIS::ManakaiDISDocument>} = {'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#core', {'', '1', '1.0', '1'}, 'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#core', {'', '1', '2.1', '1'}};
$Message::DOM::ClassPoint{q<Message::Util::DIS::ManakaiDISDocument>} = 6.2;
$Message::Util::ManakaiNode::ManakaiNodeRef::Prop{q<Message::Util::DIS::ManakaiDISDocument>} = {'s2', ['swetb'], 'a1', ['swflag', 'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#option'], 's', ['swcn'], 'i', ['swod'], 'o', ['p']};
package Message::Util::DIS::ManakaiDISDatabase;
our $VERSION = 20050928.0929;
push our @ISA, 'Message::Util::DIS::Perl::ManakaiDISDatabasePerl', 'Message::Util::Error::DOMException::ManakaiDefaultExceptionHandler', 'Message::Util::IF::DISDatabase', 'Message::Util::IFLatest::DISDatabase';
sub get_source_file ($$) {
my ($self, $fileName) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getSourceFile][@type=DISLang:Method]/Return[@Type=DISDocument][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1455)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getSourceFile][@type=DISLang:Method]/Return[@Type=DISDocument][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1453)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getSourceFile][@type=DISLang:Method]/Return[@Type=DISDocument][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1449)"
$r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1450)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceFile'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getSourceFile][@type=DISLang:Method]/Return[@Type=DISDocument][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1451)"
}->{$fileName};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1452)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1454)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1456)"
}
$r}
sub get_module ($$%) {
my ($self, $moduleURI, %opt) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getModule][@type=DISLang:Method]/Return[@Type=DISModule][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1477)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getModule][@type=DISLang:Method]/Return[@Type=DISModule][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1459)"
my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getModule][@type=DISLang:Method]/Return[@Type=DISModule][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1457)"
$modURI;
if (defined $opt{for_arg}) {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1458)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1460)"

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [b] (Chunk #1467)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [bc] (Chunk #1465)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1461)"
($opt{for_arg} eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1462)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1463)"
) {
  $modURI = $moduleURI;
} else {
  ## NOTE: [RFC 3986]
  ##       fragment    := *(pchar / "/" / "?")
  ##       pchar       := unreserved / pct-encoded / sub-delims / [:@]
  ##       unreserved  := ALPHA / DIGIT / [._~-]
  ##       sub-delims  := [!$&'()*+,;=]
  ## NOTE: [XPointer Framework]
  ##       SchemeData  := *EscapedData
  ##       EscapedData := NormalChar / "^(" / "^)" / "^^"
  ##                    / "(" SchemeData ")"
  ##       NormalChar  := UnicodeChar - [()^]
  my $__turi = $moduleURI;
  my $__furi = $opt{for_arg};
  for my $__uri ($__turi, $__furi) {
    $__uri =~ s{([^0-9A-Za-z!\$'()*,:;=?\@_./~-])}{sprintf '%%%02X', ord $1}ge;
  }
  $modURI = qq<tag:suika.fam.cx,2005-09:$__turi+$__furi>;
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1464)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1466)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1468)"
}

#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getModule][@type=DISLang:Method]/Return[@Type=DISModule][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1475)"

#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getModule][@type=DISLang:Method]/Return[@Type=DISModule][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1469)"
;
} else {
  $modURI = $moduleURI;
}
if (defined $self->{modDef}->{$modURI}) {
  $r = $self->{modDef}->{$modURI};
} else {
  $r = $self->{modDef}->{$modURI}
     = bless {
         uri => $modURI,
         db => $self,
         for => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1470)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all'
#line 15 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getModule][@type=DISLang:Method]/Return[@Type=DISModule][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1471)"
,
         forp => [],
       }, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1472)"
'Message::Util::DIS::ManakaiDISModuleDefinition'
#line 17 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getModule][@type=DISLang:Method]/Return[@Type=DISModule][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1473)"
;
  require Scalar::Util;
  Scalar::Util::weaken ($r->{db});
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1474)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1476)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1478)"
}
$r}
sub load_resource ($$$$$%) {
my ($self, $mod, $parentResource, $dynParent, $el, %opt) = @_;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1749)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1483)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1479)"
$opt{for_arg} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1480)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' unless 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1481)"
defined $opt{for_arg};
$opt{forp_arg} ||= [];

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1482)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1484)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1743)"
local $Error::Depth = $Error::Depth + 1;

{
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1741)"

#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1489)"

#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1485)"

  ## -- Node names

  ## Unique resource identifier generated from node id
  my $node_id = $el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1486)"
node_id_ref
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1487)"
;
  my $node_uri;
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1488)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1490)"

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=tfpurisToURI][@type=dis2pm:BlockCode]/PerlDef [b] (Chunk #1497)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=tfpurisToURI][@type=dis2pm:BlockCode]/PerlDef [bc] (Chunk #1495)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=tfpurisToURI][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1491)"
($opt{for_arg} eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1492)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' and 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=tfpurisToURI][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1493)"
@{$opt{forp_arg}} == 0) {
  $node_uri = $$node_id;
} elsif (@{$opt{forp_arg}}) {
  my $__turi = $$node_id;
  my $__furi = $opt{for_arg};
  for my $__uri ($__turi, $__furi) {
    $__uri =~ s{([^0-9A-Za-z!\$'()*,:;=?\@_./~-])}{sprintf '%%%02X', ord $1}ge;
  }
  my @__fp;
  for my $__uri (@{$opt{forp_arg}}) {
    my $__fpuri = $__uri;
    $__fpuri =~ s{([^0-9A-Za-z!\$'()*,:;=?\@_./~-])}
                 {sprintf '%%%02X', ord $1}ge;
    push @__fp, $__fpuri;
  }
  $node_uri = qq<tag:suika.fam.cx,2005-09:$__turi+$__furi+>.join ('+', @__fp);
} else {
  my $__turi = $$node_id;
  my $__furi = $opt{for_arg};
  for my $__uri ($__turi, $__furi) {
    $__uri =~ s{([^0-9A-Za-z!\$'(),*:;=?\@_./~-])}{sprintf '%%%02X', ord $1}ge;
  }
  $node_uri = qq<tag:suika.fam.cx,2005-09:$__turi+$__furi>;
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1494)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1496)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1498)"
}

#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1517)"

#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1499)"
;

  my $al_node = $el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1500)"
dis_get_attribute
#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1501)"

                              (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1502)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AliasFor'
#line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1503)"
, for_arg => $opt{for_arg},
                               forp_arg => $opt{forp_arg},
                               database_arg => $self);
  my $al_canon_uri;
  if ($al_node) {
    $al_canon_uri = $al_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1504)"
tfqnames_value_uri
#line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1505)"

                           ($$node_id, $opt{for_arg},
                            for_arg => $self->{for},
                            forp_arg => $self->{forp},
                            database_arg => $self);
  }

  ## User defined resource identifiers
  my $qn_node = $el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1506)"
dis_get_attribute
#line 26 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1507)"

                              (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1508)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--QName'
#line 27 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1509)"
, for_arg => $opt{for_arg},
                               forp_arg => $opt{forp_arg}, 
                               database_arg => $self);
  my $res;
  ALD: {
  if ($qn_node) {
    my $qn_uri = $qn_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1510)"
qname_value_uri
#line 33 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1511)"
;
    $res = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1512)"
get_resource
#line 34 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1513)"

                        ($qn_uri, for_arg => $opt{for_arg});
    if ($res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1514)"
is_defined
#line 36 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1515)"
) {
      last ALD if defined $al_canon_uri and
                  $res->{aliasURI}->{$al_canon_uri};
      
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1516)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1518)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1529)"
local $Error::Depth = $Error::Depth - 1;

{
#line 39 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1527)"

#line 39 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1521)"

#line 39 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1519)"

        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1520)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1522)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $qn_node, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'load_resource', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#anotherSourceNode' => $res->{src}, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#RESOURCE_ALREADY_DEFINED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISDatabase', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $qn_uri;

#line 44 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1525)"

#line 44 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1523)"
;
      
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1524)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1526)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1528)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1530)"
}

#line 45 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1543)"

#line 45 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1531)"
;
    }
    $res->{localName} = $qn_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1532)"
qname_value_local_name
#line 47 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1533)"
;
    $res->{namespaceURI} = $qn_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1534)"
qname_value_namespace_uri
#line 48 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1535)"
;
  } else { ## Anonymous or local
    my $n_node = $el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1536)"
dis_get_attribute
#line 50 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1537)"

                              (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1538)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Name'
#line 51 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1539)"
, for_arg => $opt{for_arg},
                               forp_arg => $opt{forp_arg},
                               database_arg => $self);
    if ($n_node) {
      if ($parentResource) {
        my $puri = $parentResource->{uri};
        my $ru;
        my $ln = $n_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1540)"
value
#line 58 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1541)"
;
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1542)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1544)"

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=getChildResourceURI][@type=dis2pm:BlockCode]/PerlDef [b] (Chunk #1549)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=getChildResourceURI][@type=dis2pm:BlockCode]/PerlDef [bc] (Chunk #1547)"
my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=getChildResourceURI][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1545)"
$__parent = $puri;
my $__ln = $ln;
for my $__uri ($__parent, $__ln) {
  $__uri =~ s{([^0-9A-Za-z!\$'(),*:;=?\@_./~-])}{sprintf '%%%02X', ord $1}ge;
}
$ru = qq<data:suika.fam.cx,2005-09::$__parent+$__ln>;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1546)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1548)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1550)"
}

#line 64 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1571)"

#line 64 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1551)"
;
        $res = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1552)"
get_resource
#line 65 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1553)"

                            ($ru, for_arg => $opt{for_arg});
        $res->{localName} = $n_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1554)"
value
#line 67 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1555)"
;
        $res->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1556)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isAnon'
#line 68 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1557)"
} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1558)"
1
#line 68 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1559)"
;
      } else {  ## Root local name resource
        my $ln = $n_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1560)"
value
#line 70 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1561)"
;
        my $ns_uri = $mod->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1562)"
source_element
#line 71 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1563)"

                         ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1564)"
defining_namespace_uri
#line 72 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1565)"
;
        my $qn_uri = $ns_uri . $ln;
        $res = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1566)"
get_resource
#line 74 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1567)"

                            ($qn_uri, for_arg => $opt{for_arg});
        if ($res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1568)"
is_defined
#line 76 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1569)"
) {
          
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1570)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1572)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1583)"
local $Error::Depth = $Error::Depth - 1;

{
#line 77 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1581)"

#line 77 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1575)"

#line 77 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1573)"

            
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1574)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1576)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $n_node, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'load_resource', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#anotherSourceNode' => $res->source_element, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#RESOURCE_ALREADY_DEFINED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISDatabase', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $res->uri;

#line 83 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1579)"

#line 83 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1577)"
;
         
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1578)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1580)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1582)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1584)"
}

#line 84 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1665)"

#line 84 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1585)"
;
        }
        $res->{namespaceURI} = $ns_uri;
        $res->{localName} = $ln;
      }
    } else {
      $res = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1586)"
get_resource
#line 90 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1587)"
 ($node_uri);
      $res->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1588)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isAnon'
#line 91 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1589)"
} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1590)"
1
#line 91 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1591)"
;
    }
  } # anon
  $res->{for} = $opt{for_arg};
  $res->{forp} = $opt{forp_arg};
  $res->{src} = $el;
  $res->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1592)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#definingModule'
#line 97 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1593)"
} = \ ($mod->{uri});
  $mod->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1594)"
add_resource_list
#line 98 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1595)"
 ($res);
  $res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1596)"
parent_resource
#line 99 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1597)"

    ($parentResource) if $parentResource;
  $res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1598)"
dynamic_parent_resource
#line 101 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1599)"

    ($dynParent) if $dynParent;
  unless ($res->{uri} eq $node_uri) {
    my $nu_res = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1600)"
get_resource
#line 104 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1601)"
 ($node_uri);
    $res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1602)"
merge_as_alias
#line 105 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1603)"
 ($nu_res);
  }
  $res->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1604)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isDefined'
#line 107 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1605)"
} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1606)"
1
#line 107 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1607)"
;
  $res->{seq} = $self->{seq}++;
  $res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1608)"
source_node_id_ref
#line 109 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1609)"
 ($node_id);
  
  ## -- Alias
  if ($al_node) {
    my $canon_res = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1610)"
get_resource
#line 113 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1611)"
 ($al_canon_uri);
    $canon_res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1612)"
is_referred
#line 114 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1613)"
 ($al_node);
    $canon_res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1614)"
merge_as_alias
#line 115 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1615)"
 ($res, node => $al_node);
    $res = $canon_res;
  }
  } # ALD

  ## -- Registers as child
  $parentResource->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1616)"
_add_child_resource
#line 121 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1617)"
 ($res)
     if $parentResource;
  $dynParent->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1618)"
_add_dynamic_child_resource
#line 123 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1619)"
 ($res)
     if $dynParent;

  my $is_multires = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1620)"
0
#line 126 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1621)"
;
  my @props;
  my @cres;
  my @ce0 = @{$el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1622)"
dis_child_elements
#line 129 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1623)"

                            (for_arg => $opt{for_arg}, forp_arg => $opt{forp_arg},
                             database_arg => $self)};
  my $has_type = $al_node;
  while (@ce0) {
    my $ce = shift @ce0;
    if ($ce->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1624)"
element_type_match
#line 135 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1625)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1626)"
'http://www.w3.org/1999/02/22-rdf-syntax-ns#type'
#line 135 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1627)"
,
                             database_arg => $self)) {
      $has_type = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1628)"
1
#line 137 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1629)"
;
      my $type_uri = $ce->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1630)"
qname_value_uri
#line 138 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1631)"
;
      my $type = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1632)"
get_resource
#line 139 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1633)"
 ($type_uri);
      $res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1634)"
add_property_resource_ulist
#line 140 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1635)"

                                       (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1636)"
'http://www.w3.org/1999/02/22-rdf-syntax-ns#type'
#line 141 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1637)"
, $type);
      $type->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1638)"
is_referred
#line 142 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1639)"
 ($ce);
      if ($type->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1640)"
is_subset_of_uri
#line 143 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1641)"

                                       (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1642)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--MultipleResource'
#line 144 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1643)"
)) {
        $is_multires = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1644)"
1
#line 145 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1645)"
;
      }
    } elsif ($ce->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1646)"
element_type_match
#line 147 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1647)"

                                           (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1648)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--subsetOf'
#line 148 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1649)"
,
                                 database_arg => $self)) {
      my $sres = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1650)"
get_resource
#line 150 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1651)"

                          ($ce->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1652)"
tfqnames_value_uri
#line 151 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1653)"

                                            ($$node_id, $opt{for_arg},
                            for_arg => $opt{for_arg}, forp_arg => $opt{forp_arg},
                            database_arg => $self));
      $res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1654)"
add_super_resource
#line 155 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1655)"
 ($sres);
    } elsif ($ce->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1656)"
is_resource_element
#line 156 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1657)"
) {
      push @cres, $ce;
    } elsif ($ce->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1658)"
element_type_match
#line 158 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1659)"

                                          (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1660)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--dataType'
#line 159 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1661)"
,
                                 database_arg => $self)) {
      my $uri = $ce->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1662)"
qname_value_uri
#line 161 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1663)"
;
      
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1664)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1666)"

{
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #1675)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #1673)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #1667)"
$res->{'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--dataType'} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1668)"
Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #1669)"

                (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1670)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI'
#line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #1671)"
, $uri);
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1672)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1674)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1676)"
}

#line 167 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1689)"

#line 167 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1677)"
;
      my $type = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1678)"
get_resource
#line 168 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1679)"
 ($uri);
      $type->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1680)"
is_referred
#line 169 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1681)"
 ($ce);
    } elsif ($ce->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1682)"
element_type_match
#line 170 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1683)"

                          (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1684)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--multipleProperties'
#line 171 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1685)"
,
                                 database_arg => $self)) {
      my $uri = $ce->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1686)"
qname_value_uri
#line 173 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1687)"
;
      
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1688)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1690)"

{
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #1699)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #1697)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #1691)"
$res->{'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--multipleProperties'} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1692)"
Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #1693)"

                (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1694)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI'
#line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #1695)"
, $uri);
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1696)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1698)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1700)"
}

#line 177 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1707)"

#line 177 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1701)"
;              
      my $type = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1702)"
get_resource
#line 178 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1703)"
 ($uri);
      $type->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1704)"
is_referred
#line 179 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1705)"
 ($ce);
    } else {
      ## Property and invalid element is not checked, since not
      ## all property definitions has loaded at this stage. 
      push @props, $ce;
    }
  } # @ce0

  unless ($has_type) {
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1706)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1708)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1713)"
local $Error::Depth = $Error::Depth - 1;

{
#line 188 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1711)"

#line 188 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1709)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1710)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $el, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'load_resource', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_RDF_TYPE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISDatabase', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $res->{uri};

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1712)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1714)"
}

#line 191 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1739)"

#line 191 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1715)"
;
  }

  ## -- Child resources
  unless ($is_multires) {
    for my $re (@cres) {
      unless ($al_node) {
        $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1716)"
load_resource
#line 198 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1717)"

                             ($mod, $res, $res, $re,
                              for_arg => $opt{for_arg}, forp_arg => $opt{forp_arg},
                              on_resource_read => $opt{on_resource_read});
      } else {
        my $ac = $re->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1718)"
dis_get_attribute
#line 203 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1719)"

                            (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1720)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--aliasChild'
#line 204 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1721)"
, for_arg => $opt{for_arg},
                             forp_arg => $opt{forp_arg},
                             database_arg => $self);
        if ($ac and $ac->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1722)"
value
#line 207 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1723)"
) {
          $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1724)"
load_resource
#line 208 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1725)"

                             ($mod, $res, $res, $re,
                              for_arg => $opt{for_arg}, forp_arg => $opt{forp_arg},
                              on_resource_read => $opt{on_resource_read});
        }
      }
    }
  }

  ## -- Multiple representations
  if ($is_multires) {
    for my $pe (@props) {
      if ($pe->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1726)"
element_type_match
#line 220 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1727)"

                                       (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1728)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--resourceFor'
#line 221 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1729)"
,
                                 database_arg => $self)) {
        my $for_uri = $pe->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1730)"
qname_value_uri
#line 223 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1731)"
;
        my $for = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1732)"
get_for
#line 224 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1733)"
 ($for_uri);
        $for->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1734)"
is_referred
#line 225 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1735)"
 ($pe);
        $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1736)"
load_resource
#line 226 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1737)"

                        ($mod, $parentResource, $res, $el,
                         for_arg => $opt{for_arg},
                         forp_arg => [@{$opt{forp_arg}}, $for_uri],
                         on_resource_read => $opt{on_resource_read});
      }
    }
  }
  ($opt{on_resource_read} or sub {})->($self, $res);

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1738)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1740)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1742)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1744)"
}

#line 235 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1747)"

#line 235 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1745)"
; # DEEP
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1746)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1748)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1750)"
}
}
sub get_for ($;$) {
my ($self, $forURI) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=DISFor][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1791)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=DISFor][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1757)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=DISFor][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1751)"
$forURI = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1752)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' unless 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=DISFor][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1753)"
defined $forURI;
if (defined $self->{forDef}->{$forURI}) {
  $r = $self->{forDef}->{$forURI};
} elsif (defined $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1754)"
'rm'
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=DISFor][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1755)"
}->{$forURI}) {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1756)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1758)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1771)"
local $Error::Depth = $Error::Depth + 1;

{
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=DISFor][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1769)"

#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=DISFor][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1767)"

#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=DISFor][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1759)"

    $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1760)"
_pl_load_dis_database_module
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=DISFor][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1761)"

      ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1762)"
get_module
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=DISFor][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1763)"

         (${$self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1764)"
'rm'
#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=DISFor][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1765)"
}->{$forURI}}));
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1766)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1768)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1770)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1772)"
}

#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=DISFor][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1775)"

#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=DISFor][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1773)"
;
  unless (defined $self->{forDef}->{$forURI}) {
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1774)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1776)"
report Message::Util::DIS::ManakaiDISException -object => $self, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'get_for', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#RESOURCE_NOT_DEFINED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISDatabase', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $forURI, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#moduleURI' => ${$self->{'rm'}
                               ->{$forURI}};

#line 15 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=DISFor][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1789)"

#line 15 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=DISFor][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1777)"
;
  }
  $r = $self->{forDef}->{$forURI};
} else {
  $r = $self->{forDef}->{$forURI}
     = bless {
         uri => $forURI,
         isa => {
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1778)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all'
#line 22 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=DISFor][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1779)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1780)"
1
#line 22 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=DISFor][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1781)"
},
         revISA => {},
         db => $self,
       }, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1782)"
'Message::Util::DIS::ManakaiDISForDefinition'
#line 25 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=DISFor][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1783)"
;
  $self->{forDef}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1784)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all'
#line 26 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=DISFor][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1785)"
}->{revISA}->{$forURI} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1786)"
1
#line 26 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=DISFor][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1787)"
;
  require Scalar::Util;
  Scalar::Util::weaken ($r->{db});
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1788)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1790)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1792)"
}
$r}
sub read_properties ($%) {
my ($self, %opt) = @_;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1813)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1793)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1794)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1807)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1805)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1803)"

  for 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1795)"
my $fd (values %{$self->{modDef}},
              values %{$self->{forDef}},
              values %{$self->{resDef}}) {
    if ($fd->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1796)"
is_defined
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1797)"
) {
      $fd->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1798)"
read_properties
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1799)"

        (on_resource_read => $opt{on_resource_read});
    }
  }
  CORE::delete $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1800)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceFile'
#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1801)"
};

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1802)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1804)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1806)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1808)"
}

#line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1811)"

#line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1809)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1810)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1812)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1814)"
}
}
sub load_for ($$$) {
my ($self, $mod, $el) = @_;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1921)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1815)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1816)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1915)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1913)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1823)"

  my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1817)"
$qn_node = $el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1818)"
get_attribute_ns
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1819)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1820)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1821)"
, 'QName');
  unless ($qn_node) {
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1822)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1824)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1835)"
local $Error::Depth = $Error::Depth - 1;

{
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1833)"

#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1827)"

#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1825)"

      
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1826)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1828)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $el, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'load_for', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_FOR_QNAME_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISDatabase';

#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1831)"

#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1829)"
;
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1830)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1832)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1834)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1836)"
}

#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1879)"

#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1837)"
;
  }
  $qn_node = bless $qn_node, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1838)"
'Message::Util::DIS::ManakaiDISElement'
    if 
#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1839)"
$qn_node->isa (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1840)"
'Message::Markup::SuikaWikiConfig21::ManakaiSWCFGElement'
#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1841)"
);
  my $qn_uri = $qn_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1842)"
qname_value_uri
#line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1843)"
;
  my $for = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1844)"
get_for
#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1845)"
 ($qn_uri);

  unless ($for->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1846)"
is_defined
#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1847)"
) {
    ## -- Initializes "For" Definition Object
    $for->{src} = $el;
    $for->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1848)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isDefined'
#line 17 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1849)"
} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1850)"
1
#line 17 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1851)"
;
    $for->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1852)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#definingModule'
#line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1853)"
} = \ ($mod->{uri});

    for my $ce (@{$el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1854)"
dis_all_child_elements
#line 20 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1855)"
}) {
      my $xn = $ce->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1856)"
expanded_uri
#line 21 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1857)"
;
      if ($xn eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1858)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ISA' or 
#line 22 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1859)"
$xn eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1860)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Implement'
#line 22 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1861)"
) {
        my $sfor = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1862)"
get_for
#line 23 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1863)"

                    ($ce->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1864)"
qname_value_uri
#line 24 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1865)"
);
        $for->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1866)"
add_isa
#line 25 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1867)"
 ($sfor);
        $sfor->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1868)"
is_referred
#line 26 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1869)"
 ($ce);
        ## TODO: warn if dis:Implement
      } elsif ({
                 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1870)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Description'
#line 29 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1871)"
 => 1,
                 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1872)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ImplNote'
#line 30 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1873)"
 => 1,
                 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1874)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--FullName'
#line 31 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1875)"
 => 1,
                 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1876)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--QName'
#line 32 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1877)"
 => 1,
               }->{$xn}) {
        # 
      } else {
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1878)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1880)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1891)"
local $Error::Depth = $Error::Depth - 1;

{
#line 38 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1889)"

#line 38 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1883)"

#line 38 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1881)"

          
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1882)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1884)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $ce, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'load_for', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#ELEMENT_NOT_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISDatabase', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => $xn, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $qn_uri;

#line 43 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1887)"

#line 43 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1885)"
;
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1886)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1888)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1890)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1892)"
}

#line 44 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1895)"

#line 44 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1893)"
;
      }
    }
  } else {
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1894)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1896)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1907)"
local $Error::Depth = $Error::Depth - 1;

{
#line 48 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1905)"

#line 48 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1899)"

#line 48 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1897)"

      
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1898)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1900)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $el, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'load_for', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#anotherSourceNode' => $el, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#FOR_ALREADY_DEFINED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISDatabase', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $qn_uri;

#line 53 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1903)"

#line 53 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1901)"
;
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1902)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1904)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1906)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1908)"
}

#line 54 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1911)"

#line 54 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1909)"
;
  } # isDefine?

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1910)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1912)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1914)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1916)"
}

#line 56 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1919)"

#line 56 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1917)"
; # DEEP
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1918)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1920)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1922)"
}
}
sub check_undefined_resource ($) {
my ($self) = @_;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1943)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1929)"
for 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1923)"
my $fd (values %{$self->{forDef}}) {
  if (my $ref = $fd->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1924)"
is_referred and
      
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1925)"
not $fd->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1926)"
is_defined
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1927)"
) {
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1928)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1930)"
report Message::Util::DIS::ManakaiDISException -object => $self, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'check_undefined_resource', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNodePath' => $ref, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#FOR_NOT_DEFINED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISDatabase', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $fd->uri;

#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1937)"

#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1931)"
;
  }
}
for my $fd (values %{$self->{resDef}}) {
  if (my $ref = $fd->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1932)"
is_referred and
      
#line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1933)"
not $fd->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1934)"
is_defined
#line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1935)"
) {
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1936)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1938)"
report Message::Util::DIS::ManakaiDISException -object => $self, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'check_undefined_resource', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNodePath' => $ref, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#RESOURCE_NOT_DEFINED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISDatabase', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $fd->uri;

#line 16 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1941)"

#line 16 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1939)"
;
  }
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1940)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1942)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1944)"
}
}
sub free ($) {
my ($self) = @_;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=free][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1953)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=free][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1951)"
for 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=free][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1945)"
my $file (values %{$self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1946)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceFile'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=free][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1947)"
}}) {
  $file->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1948)"
free
    if 
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=free][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1949)"
$file;
}
CORE::delete $self->{modDef};
CORE::delete $self->{forDef};
CORE::delete $self->{resDef};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1950)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1952)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1954)"
}
}
sub load_module ($$$%) {
my ($self, $doc, $resolver, %opt) = @_;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleResolver][@QName=ManakaiDISModuleResolver][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@type=DISLang|InputProcessor]/PerlDef [b] (Chunk #1961)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleResolver][@QName=ManakaiDISModuleResolver][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@type=DISLang|InputProcessor]/PerlDef [bc] (Chunk #1959)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleResolver][@QName=ManakaiDISModuleResolver][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@type=DISLang|InputProcessor]/PerlDef [u] (Chunk #1955)"
$resolver = bless $resolver, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1956)"
'Message::Util::DIS::ManakaiDISModuleResolver'
           if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleResolver][@QName=ManakaiDISModuleResolver][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@type=DISLang|InputProcessor]/PerlDef [u] (Chunk #1957)"
ref $resolver eq 'CODE';
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1958)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1960)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1962)"
}

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2215)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1969)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1963)"
$resolver = bless $resolver, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1964)"
'Message::Util::DIS::ManakaiDISModuleResolver'
              if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1965)"
ref $resolver eq 'CODE'; 
## -- Module Name, URI
$opt{for_arg} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1966)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' unless 
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1967)"
defined $opt{for_arg};
my $mod_node;
my $mod_name_node;

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1968)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1970)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2209)"
local $Error::Depth = $Error::Depth + 1;

{
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2207)"

#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1979)"

#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1971)"

  $mod_node = $doc->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1972)"
module_element
#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1973)"
;
  $mod_name_node = $mod_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1974)"
get_attribute_ns
#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1975)"

                                         (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1976)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--'
#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1977)"
, 'QName');
  unless ($mod_name_node) {
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1978)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1980)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1991)"
local $Error::Depth = $Error::Depth - 1;

{
#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1989)"

#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1983)"

#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1981)"

      
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1982)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1984)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $mod_node, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'load_module', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_MODULE_QNAME_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISDatabase';

#line 15 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1987)"

#line 15 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1985)"
;
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1986)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1988)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1990)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1992)"
}

#line 16 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2019)"

#line 16 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1993)"
;
  }
  $mod_name_node = bless $mod_name_node, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1994)"
'Message::Util::DIS::ManakaiDISElement'
    if 
#line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1995)"
$mod_name_node->isa (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1996)"
'Message::Markup::SuikaWikiConfig21::ManakaiSWCFGElement'
#line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1997)"
);
  my $mod_name_uri = $mod_name_node
                        ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1998)"
qname_value_uri
#line 20 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1999)"
;
  my $mod = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2000)"
get_module
#line 21 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2001)"

                           ($mod_name_uri, for_arg => $opt{for_arg});

  unless ($mod->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2002)"
is_defined
#line 24 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2003)"
) {
    ## -- Initializes Module Definition Object
    $mod->{localName} = $mod_name_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2004)"
qname_value_local_name
#line 26 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2005)"
;
    $mod->{namespaceURI} = $mod_name_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2006)"
qname_value_namespace_uri
#line 27 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2007)"
;
    $mod->{for} = $opt{for_arg};
    $mod->{src} = $mod_node;
    $mod->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2008)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isDefined'
#line 30 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2009)"
} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2010)"
1
#line 30 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2011)"
;
    $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2012)"
set_source_file
#line 31 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2013)"
 ($mod_name_uri => $doc);

    $mod->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2014)"
target_namespace_uri
#line 33 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2015)"

              ($mod_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2016)"
defining_namespace_uri
#line 34 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2017)"
);

    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2018)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2020)"

{
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #2027)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #2025)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2021)"
$mod->{'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceFile'} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2022)"
Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2023)"

                ('http://suika.fam.cx/~wakaba/archive/2004/dis/Core#String', $doc->flag ('http://suika.fam.cx/~wakaba/archive/2005/swcfg21#fileName'), base_type => 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#String');
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2024)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2026)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2028)"
}

#line 45 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2059)"

#line 45 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2029)"
;
    
    ## -- Loads "for" definition
    my $root_elements
               = $doc->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2030)"
dis_all_child_elements
#line 49 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2031)"
;
    if ($mod->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2032)"
for_uri eq 
#line 50 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2033)"

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2034)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all'
#line 50 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2035)"
) {
      R: for my $el (@$root_elements) {
        next R unless $el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2036)"
expanded_uri eq 
#line 52 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2037)"

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2038)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ForDef'
#line 52 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2039)"
;
        $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2040)"
load_for
#line 53 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2041)"
 ($mod, $el);
      }
    }

    ## -- Loads "for all"
    my $rmod = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2042)"
get_module
#line 58 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2043)"

                       ($mod_name_uri,
                        for_arg => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2044)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all'
#line 60 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2045)"
);
    unless ($rmod->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2046)"
is_defined
#line 61 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2047)"
) {
      my $rdoc = $resolver->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2048)"
uri_to_document
#line 62 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2049)"

                       ($self, $rmod->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2050)"
uri
#line 63 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2051)"
,
                        $mod->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2052)"
namespace_uri
#line 64 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2053)"
,
                        $mod->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2054)"
local_name
#line 65 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2055)"
,
                        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2056)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all'
#line 66 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2057)"
);
      unless ($rdoc) {
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2058)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2060)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2071)"
local $Error::Depth = $Error::Depth - 1;

{
#line 69 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2069)"

#line 69 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2063)"

#line 69 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2061)"

          
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2062)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2064)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $mod->source_element, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'load_module', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISDatabase', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#namespaceURI' => $mod->namespace_uri, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#for' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#localName' => $mod->local_name, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#UNABLE_TO_GET_MODULE_ERR', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $rmod->uri;

#line 77 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2067)"

#line 77 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2065)"
;
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2066)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2068)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2070)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2072)"
}

#line 78 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2131)"

#line 78 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2073)"
;
      }
      $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2074)"
load_module
#line 80 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2075)"

                    ($rdoc, $resolver, for_arg => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2076)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all'
#line 81 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2077)"
,
                     on_resource_read => $opt{on_resource_read});
    } # Unless "for all" loaded

    ## -- Loads Required Modules
    ##    NOTE:: "dis:For" is not allowed since "dis:ForDef" is not read
    my $req_node = $mod_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2078)"
require_element
#line 87 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2079)"
;
    for my $rm (@{$req_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2080)"
dis_all_child_elements
#line 88 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2081)"
}) {
      next unless $rm->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2082)"
expanded_uri eq 
#line 89 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2083)"

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2084)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Module'
#line 89 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2085)"
;
      my ($uri, $nuri, $ln, $for);
      my $mqn = $rm->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2086)"
get_attribute_ns
#line 91 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2087)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2088)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--'
#line 91 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2089)"
, 'QName');
      if ($mqn) {
        my $mqv = $mqn->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2090)"
value
#line 93 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2091)"
;
        my $mqp = ($mqn->isa (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2092)"
'Message::Markup::SuikaWikiConfig21::ManakaiSWCFGElement'
#line 94 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2093)"
)
                   ? (bless $mqn, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2094)"
'Message::Util::DIS::ManakaiDISElement'
#line 95 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2095)"
) : $mqn)
                  ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2096)"
qname_to_pair
#line 96 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2097)"
 ($mqv, node => $mqn);
        ($nuri, $ln) = @$mqp;
      } else {
        my $mn = $rm->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2098)"
get_attribute_ns
#line 99 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2099)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2100)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--'
#line 99 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2101)"
, 'Name');
        if ($mn) {
          $nuri = $mod->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2102)"
namespace_uri
#line 101 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2103)"
;
          $ln = $mn->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2104)"
value
#line 102 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2105)"
;
        } else {
          $nuri = $mod->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2106)"
namespace_uri
#line 104 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2107)"
;
          $ln = $mod->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2108)"
local_name
#line 105 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2109)"
;
        }
      }
      my $wfn = $rm->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2110)"
get_attribute_ns
#line 108 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2111)"

                                      (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2112)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--'
#line 109 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2113)"
, 'WithFor');
      if ($wfn) {
        $for = ($wfn->isa (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2114)"
'Message::Markup::SuikaWikiConfig21::ManakaiSWCFGElement'
#line 111 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2115)"
)
                   ? (bless $wfn, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2116)"
'Message::Util::DIS::ManakaiDISElement'
#line 112 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2117)"
) : $wfn)
               ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2118)"
qname_value_uri
#line 113 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2119)"
;
      } else {
        $for = $mod->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2120)"
for_uri
#line 115 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2121)"
;
      }
      my $rmod = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2122)"
get_module
#line 117 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2123)"

                               ($nuri . $ln, for_arg => $for);
      unless ($rmod->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2124)"
is_defined
#line 119 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2125)"
) {
        my $rdoc = $resolver->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2126)"
uri_to_document
#line 120 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2127)"

                               ($self, $rmod->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2128)"
uri
#line 121 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2129)"
,
                                $nuri, $ln, $for);
        unless ($rdoc) {
          
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2130)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2132)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2143)"
local $Error::Depth = $Error::Depth - 1;

{
#line 126 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2141)"

#line 126 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2135)"

#line 126 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2133)"

            
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2134)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2136)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $rm, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'load_module', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISDatabase', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#namespaceURI' => $nuri, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#for' => $for, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#localName' => $ln, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#UNABLE_TO_GET_MODULE_ERR', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $rmod->uri;

#line 133 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2139)"

#line 133 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2137)"
;
          
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2138)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2140)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2142)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2144)"
}

#line 134 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2167)"

#line 134 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2145)"
;
        }
        $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2146)"
load_module
#line 136 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2147)"

                               ($rdoc, $resolver, for_arg => $for,
                                on_resource_read => $opt{on_resource_read});
      }
    } # Child Module elements
    
    ## -- Loads child resources
    $root_elements = $doc->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2148)"
dis_child_elements
#line 143 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2149)"

                                 (for_arg => $opt{for_arg},
                                  database_arg => $self);
    for my $el (@$root_elements) {
      if ($el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2150)"
is_resource_element
#line 147 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2151)"
) {
        $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2152)"
load_resource
#line 148 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2153)"

                                 ($mod, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2154)"
undef
#line 149 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2155)"
, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2156)"
undef
#line 149 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2157)"
, $el,
                                  for_arg => $opt{for_arg},
                                  on_resource_read => $opt{on_resource_read});
      } else {
        my $et = $el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2158)"
expanded_uri
#line 153 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2159)"
;
        if ({
                 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2160)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ForDef'
#line 155 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2161)"
 => 1,
                 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2162)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Module'
#line 156 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2163)"
 => 1,
                 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2164)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ImplNote'
#line 157 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2165)"
 => 1,
            }->{$et}) {
          # 
        } else {
          
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2166)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2168)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2179)"
local $Error::Depth = $Error::Depth - 1;

{
#line 161 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2177)"

#line 161 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2171)"

#line 161 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2169)"

            
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2170)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2172)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $el, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'load_module', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#ELEMENT_NOT_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISDatabase', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => $et, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $mod->{uri};

#line 166 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2175)"

#line 166 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2173)"
;
          
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2174)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2176)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2178)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2180)"
}

#line 167 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2189)"

#line 167 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2181)"
;
        }
      } # element types
    }
    
    my $dn = $mod_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2182)"
get_attribute_ns
#line 172 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2183)"

                                   (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2184)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--'
#line 173 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2185)"
, 'Namespace');
    unless ($dn and defined $dn->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2186)"
value
#line 174 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2187)"
) {
      
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2188)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2190)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2201)"
local $Error::Depth = $Error::Depth - 1;

{
#line 175 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2199)"

#line 175 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2193)"

#line 175 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2191)"

        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2192)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2194)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $mod_node, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'load_module', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_REQUIRED_ATTR_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISDatabase', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Namespace';

#line 179 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2197)"

#line 179 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2195)"
;
      
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2196)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2198)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2200)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2202)"
}

#line 180 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2205)"

#line 180 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2203)"
;
    }
  } # Unless this module loaded

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2204)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2206)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2208)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2210)"
}

#line 183 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2213)"

#line 183 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2211)"
; # Deep
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2212)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2214)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2216)"
}
}
sub get_feature ($$$) {
my ($self, $feature, $version) = @_;

{
#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [b] (Chunk #2221)"

#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [bc] (Chunk #2219)"

#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #2217)"
$feature = lc $feature;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2218)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2220)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2222)"
}

{
#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [b] (Chunk #2227)"

#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [bc] (Chunk #2225)"

#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #2223)"
$version = '' unless defined $version;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2224)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2226)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2228)"
}
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2233)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2231)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2229)"
$feature =~ s/^\+//;
CLASS: for my $class (grep {
  $Message::Util::DIS::ManakaiDISDatabase::CompatClass{$_}
} keys %Message::Util::DIS::ManakaiDISDatabase::CompatClass) {
  if ($Message::DOM::ClassFeature{$class}->{$feature}->{$version}) {
    $r = bless {o => $self}, $class;
    last CLASS;
  }
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2230)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2232)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2234)"
}
$r}
sub xcref_to_resource ($$$%) {
my ($self, $xcref, $contextNode, %opt) = @_;
my $r = [];

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2337)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2237)"
my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2235)"
($q1, $q2, $q3) = split /\s*\.\s*/, $xcref, 3;

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2236)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2238)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2331)"
local $Error::Depth = $Error::Depth + 1;

{
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2329)"

#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2279)"

  if 
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2239)"
(defined $q3) {
    $r->[2] = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2240)"
get_resource
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2241)"

                 ($contextNode->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2242)"
tfqnames_to_uri
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2243)"

                                  ($q3, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2244)"
undef
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2245)"
, $opt{for_arg}, node => $opt{node}));
    $r->[1] = $r->[2]->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2246)"
parent_resource
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2247)"
;
  } elsif (defined $q2) {
    if ($q2 =~ /:/) {
      $r->[1] = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2248)"
get_resource
#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2249)"

                 ($contextNode->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2250)"
tfqnames_to_uri
#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2251)"

                                  ($q2, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2252)"
undef
#line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2253)"
, $opt{for_arg}, node => $opt{node}));
    } else {
      $r->[0] = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2254)"
get_resource
#line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2255)"

                 ($contextNode->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2256)"
tfqnames_to_uri
#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2257)"

                                  ($q1, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2258)"
undef
#line 15 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2259)"
, $opt{for_arg}, node => $opt{node}));
      $r->[1] = $r->[0]->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2260)"
get_const_resource_by_name
#line 16 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2261)"
 ($q2);
    }
  } else {  ## $q1 only
    $r->[2] = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2262)"
get_resource
#line 19 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2263)"

                 ($contextNode->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2264)"
tfqnames_to_uri
#line 20 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2265)"

                                  ($q1, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2266)"
undef
#line 21 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2267)"
, $opt{for_arg}, node => $opt{node}));
    if ($r->[2]->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2268)"
is_type_uri
#line 22 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2269)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2270)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ExceptionOrWarningSubType'
#line 22 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2271)"
)) {
      $r->[1] = $r->[2]->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2272)"
parent_resource
#line 23 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2273)"
;
    } else {
      $r->[1] = $r->[2]; CORE::delete $r->[2];
    }
  }

  if ($r->[2] and
      not $r->[2]->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2274)"
is_type_uri
#line 30 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2275)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2276)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ExceptionOrWarningSubType'
#line 30 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2277)"
)) {
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2278)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2280)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2285)"
local $Error::Depth = $Error::Depth - 1;

{
#line 35 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2283)"

#line 35 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2281)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2282)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $opt{node}, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'xcref_to_resource', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISDatabase', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceCode' => $xcref, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#expectedType' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ExceptionOrWarningSubType', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#RESOURCE_NOT_DEFINED_ERR', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $r->[2]->{uri};

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2284)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2286)"
}

#line 40 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2295)"

#line 40 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2287)"
;
  }
  $r->[2]->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2288)"
is_referred
#line 42 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2289)"

                                       ($opt{node} or $contextNode)
    if $r->[2];
  
  if (not $r->[1] or
      not $r->[1]->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2290)"
is_type_uri
#line 47 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2291)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2292)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Const'
#line 47 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2293)"
)) {
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2294)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2296)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2301)"
local $Error::Depth = $Error::Depth - 1;

{
#line 49 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2299)"

#line 49 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2297)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2298)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $opt{node}, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'xcref_to_resource', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISDatabase', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceCode' => $xcref, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#expectedType' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Const', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#localName' => $r->[1]->{localName}, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#RESOURCE_NOT_DEFINED_ERR', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $r->[1]->{uri};

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2300)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2302)"
}

#line 55 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2315)"

#line 55 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2303)"
;
  }
  $r->[1]->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2304)"
is_referred
#line 57 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2305)"

                                       ($opt{node} or $contextNode);

  unless ($r->[0]) {
    my $cg = $r->[1]->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2306)"
parent_resource
#line 61 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2307)"
;
    $r->[0] = $cg->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2308)"
parent_resource if 
#line 62 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2309)"
$cg;
  }
  if (not $r->[0] or
      not $r->[0]->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2310)"
is_type_uri
#line 65 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2311)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2312)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#AnyExceptionAnyClass'
#line 65 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2313)"
)) {
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2314)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2316)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2321)"
local $Error::Depth = $Error::Depth - 1;

{
#line 67 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2319)"

#line 67 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2317)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2318)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $opt{node}, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'xcref_to_resource', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISDatabase', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceCode' => $xcref, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#expectedType' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#AnyExceptionAnyClass', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#localName' => $r->[0]->{localName}, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#RESOURCE_NOT_DEFINED_ERR', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $r->[0]->{uri};

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2320)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2322)"
}

#line 73 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2327)"

#line 73 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2323)"
;
  }
  $r->[0]->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2324)"
is_referred
#line 75 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2325)"

                                       ($opt{node} or $contextNode);

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2326)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2328)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2330)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2332)"
}

#line 77 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2335)"

#line 77 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2333)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2334)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2336)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2338)"
}
$r}
sub set_source_file ($$$) {
my ($self, $fileName, $doc) = @_;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=setSourceFile][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2345)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=setSourceFile][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2343)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=setSourceFile][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2339)"
$self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2340)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceFile'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=setSourceFile][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2341)"
}->{$fileName} = $doc;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2342)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2344)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2346)"
}
}
sub get_resource ($;$%) {
my ($self, $resourceURI, %opt) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2395)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2351)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2347)"
$resourceURI = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2348)"
'http://suika.fam.cx/~wakaba/archive/2004/dom/main#any' unless 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2349)"
defined $resourceURI;
my $resURI;
if (defined $opt{for_arg}) {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2350)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2352)"

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [b] (Chunk #2359)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [bc] (Chunk #2357)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #2353)"
($opt{for_arg} eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2354)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #2355)"
) {
  $resURI = $resourceURI;
} else {
  ## NOTE: [RFC 3986]
  ##       fragment    := *(pchar / "/" / "?")
  ##       pchar       := unreserved / pct-encoded / sub-delims / [:@]
  ##       unreserved  := ALPHA / DIGIT / [._~-]
  ##       sub-delims  := [!$&'()*+,;=]
  ## NOTE: [XPointer Framework]
  ##       SchemeData  := *EscapedData
  ##       EscapedData := NormalChar / "^(" / "^)" / "^^"
  ##                    / "(" SchemeData ")"
  ##       NormalChar  := UnicodeChar - [()^]
  my $__turi = $resourceURI;
  my $__furi = $opt{for_arg};
  for my $__uri ($__turi, $__furi) {
    $__uri =~ s{([^0-9A-Za-z!\$'()*,:;=?\@_./~-])}{sprintf '%%%02X', ord $1}ge;
  }
  $resURI = qq<tag:suika.fam.cx,2005-09:$__turi+$__furi>;
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2356)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2358)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2360)"
}

#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2365)"

#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2361)"
;
} else {
  $resURI = $resourceURI;
}

if (defined $self->{resDef}->{$resURI}) {
  $r = $self->{resDef}->{$resURI};
} elsif (defined $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2362)"
'rm'
#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2363)"
}->{$resURI}) {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2364)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2366)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2379)"
local $Error::Depth = $Error::Depth + 1;

{
#line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2377)"

#line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2375)"

#line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2367)"

    $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2368)"
_pl_load_dis_database_module
#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2369)"

      ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2370)"
get_module
#line 15 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2371)"

         (${$self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2372)"
'rm'
#line 16 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2373)"
}->{$resURI}}));
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2374)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2376)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2378)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2380)"
}

#line 17 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2383)"

#line 17 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2381)"
;
  unless (defined $self->{resDef}->{$resURI}) {
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2382)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2384)"
report Message::Util::DIS::ManakaiDISException -object => $self, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'get_resource', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#RESOURCE_NOT_DEFINED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISDatabase', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $resURI, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#moduleURI' => ${$self->{'rm'}
                               ->{$resURI}};

#line 23 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2393)"

#line 23 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2385)"
;
  }
  $r = $self->{resDef}->{$resURI};
} else {
  $r = $self->{resDef}->{$resURI}
     = bless {
         uri => $resURI,
         aliasURI => {$resURI => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2386)"
1
#line 30 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2387)"
},
         db => $self,
         for => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2388)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all'
#line 32 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2389)"
,
         forp => [],
         seq => -1,
       }, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2390)"
'Message::Util::DIS::ManakaiDISResourceDefinition'
#line 35 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2391)"
;
  require Scalar::Util;
  Scalar::Util::weaken ($r->{db});
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2392)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2394)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2396)"
}
$r}
$Message::DOM::ClassFeature{q<Message::Util::DIS::ManakaiDISDatabase>} = {'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#core', {'', '1', '1.0', '1'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#perl', {'', '1', '1.0', '1'}};
$Message::DOM::ClassPoint{q<Message::Util::DIS::ManakaiDISDatabase>} = 2;
$Message::Util::DIS::ManakaiDISDatabase::CompatClass{q<Message::Util::DIS::ManakaiDISDatabase>} = 1;
package Message::Util::DIS::ManakaiDISModuleResolver;
our $VERSION = 20050928.0929;
push our @ISA, 'Message::Util::IF::DISModuleResolver', 'Message::Util::IFLatest::DISModuleResolver';
sub uri_to_document ($$$$$$) {
my ($self, $disDB, $moduleURI, $moduleNamespaceURI, $moduleLocalName, $moduleFor) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleResolver][@QName=ManakaiDISModuleResolver][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=uriToDocument][@type=DISLang:Method]/Return[@Type=DISDocument][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2401)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleResolver][@QName=ManakaiDISModuleResolver][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=uriToDocument][@type=DISLang:Method]/Return[@Type=DISDocument][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2399)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleResolver][@QName=ManakaiDISModuleResolver][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=uriToDocument][@type=DISLang:Method]/Return[@Type=DISDocument][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2397)"
$r = $self->(@_);
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2398)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2400)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2402)"
}
$r}
$Message::DOM::ClassFeature{q<Message::Util::DIS::ManakaiDISModuleResolver>} = {'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#core', {'', '1', '1.0', '1'}};
$Message::DOM::ClassPoint{q<Message::Util::DIS::ManakaiDISModuleResolver>} = 1;
package Message::Util::DIS::ManakaiDISAnyResource;
our $VERSION = 20050928.0929;
push our @ISA, 'Message::DOM::DOMFeature::ManakaiHasFeatureByGetFeature', 'Message::Util::IF::DISAnyResource', 'Message::Util::IFLatest::DISAnyResource';
sub read_properties ($%) {
my ($self, %opt) = @_;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2937)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2403)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2404)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2931)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2929)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2485)"

  if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2405)"
(my $src = $self->{src}) {
    my $for = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2406)"
for_uri
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2407)"
;
    my $forp = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2408)"
forp_uri
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2409)"
;
    my $db = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2410)"
database
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2411)"
;
    for my $el (@{$src->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2412)"
dis_child_elements
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2413)"

                    (for_arg => $for,
                     forp_arg => $forp,
                     database_arg => $db)}) {
      my $xu = $el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2414)"
expanded_uri
#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2415)"
;
      if ({
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2416)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AliasFor'
#line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2417)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2418)"
1
#line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2419)"
,
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2420)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ContentType'
#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2421)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2422)"
1
#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2423)"
,
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2424)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--dataType'
#line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2425)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2426)"
1
#line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2427)"
,
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2428)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--For'
#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2429)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2430)"
1
#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2431)"
,
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2432)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ForCheck'
#line 15 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2433)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2434)"
1
#line 15 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2435)"
,
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2436)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Name'
#line 16 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2437)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2438)"
1
#line 16 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2439)"
,
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2440)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Namespace'
#line 17 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2441)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2442)"
1
#line 17 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2443)"
,
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2444)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--multipleProperties'
#line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2445)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2446)"
1
#line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2447)"
,
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2448)"
'http://www.w3.org/1999/02/22-rdf-syntax-ns#type'
#line 19 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2449)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2450)"
1
#line 19 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2451)"
,
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2452)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--QName'
#line 20 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2453)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2454)"
1
#line 20 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2455)"
,
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2456)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Require'
#line 21 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2457)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2458)"
1
#line 21 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2459)"
,
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2460)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--resourceFor'
#line 22 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2461)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2462)"
1
#line 22 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2463)"
,
      }->{$xu}) {
        #
      } elsif ($el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2464)"
is_property_element
#line 25 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2465)"

                                              (database_arg => $db)) {
        my $add_prop;
        $add_prop = sub ($$$) {
          my ($self, $el, $db) = @_;
          my $prop = $db->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2466)"
get_resource
#line 30 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2467)"

                        ($el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2468)"
expanded_uri
#line 31 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2469)"
);
          my $prop_uri = $prop->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2470)"
uri
#line 32 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2471)"
;
          my $prop_mult = $prop->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2472)"
multiple_properties_uri
#line 33 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2473)"
;
          my $new_value;
          my $base_type;
          my $copy_tree = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2474)"
0
#line 36 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2475)"
;
          
          my %mtopt = (for_arg => $for,
                       forp_arg => $forp,
                       default_media_type => $prop->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2476)"
default_lextype_uri
#line 40 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2477)"
,
                       database_arg => $db);
          my $new_value_type = $el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2478)"
media_type_uri
#line 42 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2479)"
(%mtopt);

          if ($el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2480)"
media_type_match
#line 44 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2481)"

              (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2482)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TypeQName'
#line 45 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2483)"
, $mtopt{default_media_type}, %mtopt)) {
            
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2484)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2486)"

{
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #2493)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #2491)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2487)"
$new_value = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2488)"
Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2489)"

                ($new_value_type, undef, base_type => $base_type = 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TypeQName');
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2490)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2492)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2494)"
}

#line 53 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2533)"

#line 53 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2495)"
;
            $new_value->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2496)"
local_name
#line 54 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2497)"

              ($el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2498)"
qname_value_local_name
#line 55 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2499)"
);
            $new_value->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2500)"
prefix
#line 56 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2501)"

              (my $prefix = $el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2502)"
qname_value_prefix
#line 57 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2503)"
);
            if (not defined $prefix) {
              if ($el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2504)"
media_type_match
#line 59 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2505)"

                            (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2506)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#LanguageTag'
#line 60 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2507)"
,
                             $mtopt{default_media_type}, %mtopt)) {
                $new_value->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2508)"
namespace_uri
#line 62 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2509)"

                  ('urn:x-suika-fam-cx:lang:');
              } elsif ($el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2510)"
media_type_match
#line 64 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2511)"

                            (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2512)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#ScriptTag'
#line 65 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2513)"
,
                             $mtopt{default_media_type}, %mtopt)) {
                $new_value->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2514)"
namespace_uri
#line 67 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2515)"

                  ('http://suika.fam.cx/~wakaba/archive/2005/5/script#');
              } else {
                $new_value->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2516)"
namespace_uri
#line 70 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2517)"

                  ($el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2518)"
qname_value_namespace_uri
#line 71 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2519)"
);
              }
            } else {
              $new_value->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2520)"
namespace_uri
#line 74 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2521)"

                ($el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2522)"
qname_value_namespace_uri
#line 75 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2523)"
);
            }
            ## TODO: Check whether defined
          } elsif ($el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2524)"
media_type_match
#line 78 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2525)"

               (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2526)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TFQNames'
#line 79 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2527)"
, $mtopt{default_media_type}, %mtopt) or
                   $el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2528)"
media_type_match
#line 80 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2529)"

          (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2530)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#TFPQNames'
#line 81 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2531)"
, $mtopt{default_media_type}, %mtopt)) {
            
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2532)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2534)"

{
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #2543)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #2541)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2535)"
$new_value = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2536)"
Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2537)"

                (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2538)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI'
#line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2539)"
, $el->tfqnames_value_uri
                      ($self->source_node_id,
                       $self->for_uri,
                       for_arg => $self->for_uri,
                       forp_arg => $self->forp_uri,
                       database_arg => $db));
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2540)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2542)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2544)"
}

#line 90 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2555)"

#line 90 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2545)"
;
            ## TODO: Check whether defined
            $new_value_type = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2546)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI'
#line 92 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2547)"
;
          } elsif ($el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2548)"
media_type_match
#line 93 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2549)"

                             (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2550)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl'
#line 94 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2551)"
, $mtopt{default_media_type},
                              %mtopt)) {
            $el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2552)"
preserve_node_path
#line 96 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2553)"
;
            
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2554)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2556)"

{
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValueRef][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #2563)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValueRef][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #2561)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValueRef][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2557)"
$new_value = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2558)"
Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value_ref
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValueRef][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2559)"

                ($new_value_type, $el->value_ref, base_type => $base_type = 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl');
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2560)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2562)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2564)"
}

#line 102 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2573)"

#line 102 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2565)"
;
            for my $p (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2566)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Type'
#line 103 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2567)"
, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2568)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--actualType'
#line 103 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2569)"
) {
              if (UNIVERSAL::isa ($self->{$p},
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2570)"
'Message::Util::IF::DVURIValue'
#line 104 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2571)"
)) {
                my $v;
                
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2572)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2574)"

{
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #2583)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #2581)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2575)"
$v = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2576)"
Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2577)"

                (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2578)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI'
#line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2579)"
, $self->{$p}->uri);
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2580)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2582)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2584)"
}

#line 109 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2615)"

#line 109 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2585)"
;
                $new_value->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2586)"
set_property
#line 110 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2587)"
 ($p => $v);
              }
            }
            $new_value->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2588)"
default_namespace_uri_ref
#line 113 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2589)"

              ($el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2590)"
get_default_namespace_uri_ref
#line 114 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2591)"
);
            $new_value->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2592)"
namespace_binding_list
#line 115 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2593)"

              ($el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2594)"
get_namespace_binding_list
#line 116 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2595)"
 ($db));
            $new_value->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2596)"
source_node_path
#line 117 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2597)"

              ($el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2598)"
flag
#line 118 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2599)"
 ('nodePath'));
          } elsif ($el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2600)"
media_type_match
#line 119 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2601)"

                           (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2602)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#disdoc'
#line 120 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2603)"
, $mtopt{default_media_type},
                            %mtopt) or
                   $el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2604)"
media_type_match
#line 122 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2605)"

                     (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2606)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#disdocInline'
#line 123 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2607)"
, $mtopt{default_media_type},
                            %mtopt) or
                   $el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2608)"
media_type_match
#line 125 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2609)"

                             (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2610)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#muf'
#line 126 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2611)"
, $mtopt{default_media_type},
                              %mtopt)) {
            $el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2612)"
preserve_node_path
#line 128 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2613)"
;
            
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2614)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2616)"

{
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValueRef][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #2623)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValueRef][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #2621)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValueRef][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2617)"
$new_value = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2618)"
Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value_ref
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValueRef][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2619)"

                ($new_value_type, $el->value_ref, base_type => $base_type = 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#disdoc');
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2620)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2622)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2624)"
}

#line 134 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2647)"

#line 134 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2625)"
;
            $new_value->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2626)"
default_namespace_uri_ref
#line 135 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2627)"

              ($el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2628)"
get_default_namespace_uri_ref
#line 136 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2629)"
);
            $new_value->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2630)"
namespace_binding_list
#line 137 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2631)"

              ($el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2632)"
get_namespace_binding_list
#line 138 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2633)"
 ($db));
            $new_value->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2634)"
source_node_path
#line 139 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2635)"

              ($el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2636)"
flag
#line 140 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2637)"
 ('nodePath'));
          } elsif ($el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2638)"
media_type_match
#line 141 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2639)"

                     (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2640)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#XCRef'
#line 142 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2641)"
,
                      $mtopt{default_media_type}, %mtopt)) {
            my $x = $db->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2642)"
xcref_to_resource
#line 144 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2643)"

                         ($el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2644)"
value
#line 145 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2645)"
,
                          $el, node => $el, for_arg => $self->{for});
            
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2646)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2648)"

{
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #2657)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #2655)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2649)"
$new_value = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2650)"
Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2651)"

                (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2652)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI'
#line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2653)"
, ($x->[2] or $x->[1] or $x->[0])
                       ->uri);
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2654)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2656)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2658)"
}

#line 151 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2687)"

#line 151 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2659)"
;
            $new_value->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2660)"
get_resource
#line 152 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2661)"
 ($db)
                      ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2662)"
is_referred
#line 153 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2663)"
 ($el);
            $new_value_type = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2664)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI'
#line 154 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2665)"
;
          } elsif ($el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2666)"
media_type_match
#line 155 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2667)"

                     (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2668)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#MemberRef'
#line 156 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2669)"
,
                      $mtopt{default_media_type}, %mtopt)) {
            my $v = $el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2670)"
value
#line 158 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2671)"
;
            $v =~ s/^\s+//;  $v =~ s/\s+$//;
            my ($clsq, $mem, $gs) = split /\s*\.\s*/, $v, 3;
            my $res;
            if (defined $mem) {
              my $cls = $db->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2672)"
get_resource
#line 163 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2673)"

                             ($el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2674)"
tfqnames_value_uri
#line 164 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2675)"

                      ($clsq, $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2676)"
source_node_id
#line 165 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2677)"
,
                       $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2678)"
for_uri
#line 166 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2679)"
, node => $el));
              $cls->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2680)"
is_referred
#line 167 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2681)"
 ($el);
              $res = $cls->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2682)"
get_child_resource_by_name_and_type
#line 168 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2683)"

                             ($mem, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2684)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#AnyMethod'
#line 169 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2685)"
);
              unless ($res) {
                
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2686)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2688)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2693)"
local $Error::Depth = $Error::Depth - 1;

{
#line 171 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2691)"

#line 171 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2689)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2690)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $el, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'read_properties', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISAnyResource', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceCode' => $v, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#expectedType' => 
                    defined $gs ? 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#Attribute'
                                : 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#Method'
                  , 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#localName' => $mem, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#RESOURCE_NOT_DEFINED_ERR', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => $el->expanded_uri, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#parentURI' => $cls->uri;

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2692)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2694)"
}

#line 182 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2703)"

#line 182 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2695)"
;
              }
              if (defined $gs) {
                $res = $res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2696)"
get_child_resource_by_type
#line 185 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2697)"

                         ($gs eq 'get' ? 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2698)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#AttributeGet'
                                       : 
#line 186 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2699)"

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2700)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#AttributeSet'
#line 186 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2701)"
);
                unless ($res) {
                  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2702)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2704)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2709)"
local $Error::Depth = $Error::Depth - 1;

{
#line 189 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2707)"

#line 189 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2705)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2706)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $el, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'read_properties', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISAnyResource', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceCode' => $v, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#expectedType' => 
                      $gs eq 'get' ? 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#AttributeGet'
                                   : 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#AttributeSet'
                    , 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#RESOURCE_NOT_DEFINED_ERR', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => $el->expanded_uri, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#parentURI' => $res->uri;

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2708)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2710)"
}

#line 199 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2723)"

#line 199 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2711)"
;
                }                        
              }
            } else {
              $res = $db->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2712)"
get_resource
#line 203 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2713)"

                             ($el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2714)"
tfqnames_value_uri
#line 204 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2715)"

                      ($clsq, $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2716)"
source_node_id
#line 205 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2717)"
,
                       $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2718)"
for_uri
#line 206 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2719)"
, node => $el));
            }
            $res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2720)"
is_referred
#line 208 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2721)"
 ($el);
            
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2722)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2724)"

{
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #2733)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #2731)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2725)"
$new_value = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2726)"
Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2727)"

                (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2728)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI'
#line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2729)"
, $el->uri);
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2730)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2732)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2734)"
}

#line 212 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2747)"

#line 212 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2735)"
;
            $new_value_type = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2736)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI'
#line 213 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2737)"
;
          } elsif ($el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2738)"
media_type_match
#line 214 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2739)"

                             (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2740)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis'
#line 215 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2741)"
, $mtopt{default_media_type},
                              %mtopt)) {
            $copy_tree = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2742)"
1
#line 217 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2743)"
;
            $el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2744)"
preserve_node_path
#line 218 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2745)"
;
            my $elc = $el->clone;
            
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2746)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2748)"

{
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #2755)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #2753)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2749)"
$new_value = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2750)"
Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2751)"

                ($new_value_type, $elc, base_type => $base_type = 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis');
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2752)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2754)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2756)"
}

#line 225 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2761)"

#line 225 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2757)"
;
            $elc->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2758)"
unlink_from_document
#line 226 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2759)"
 ($db);
          } else {
            
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2760)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2762)"

{
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #2769)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #2767)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2763)"
$new_value = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2764)"
Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2765)"

                ($new_value_type, $el->value, base_type => $base_type = 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#String');
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2766)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2768)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2770)"
}

#line 233 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2799)"

#line 233 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2771)"
;
          }

          unless ($copy_tree) {
          for my $ce (@{$el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2772)"
dis_child_elements
#line 237 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2773)"

                    (for_arg => $for,
                     forp_arg => $forp,
                     database_arg => $db)}) {
            my $xu = $ce->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2774)"
expanded_uri
#line 241 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2775)"
;
            if ({
              
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2776)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AliasFor'
#line 243 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2777)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2778)"
1
#line 243 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2779)"
,
              
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2780)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--For'
#line 244 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2781)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2782)"
1
#line 244 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2783)"
,
              
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2784)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ForCheck'
#line 245 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2785)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2786)"
1
#line 245 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2787)"
,
              
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2788)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ContentType'
#line 246 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2789)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2790)"
1
#line 246 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2791)"
,
              
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2792)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--resourceFor'
#line 247 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2793)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2794)"
1
#line 247 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2795)"
,
            }->{$xu}) {
              #
            } elsif ($ce->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2796)"
is_property_element
#line 250 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2797)"

                                (database_arg => $db)) {
              my $pr;
              
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2798)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2800)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2807)"
local $Error::Depth = $Error::Depth + 1;

{
#line 253 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2805)"

#line 253 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2803)"

#line 253 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2801)"

                $pr = $add_prop->($self, $ce, $db);
              
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2802)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2804)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2806)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2808)"
}

#line 255 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2815)"

#line 255 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2809)"
;
              if ($pr->{prop_mult} eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2810)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#OrderedList'
#line 256 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2811)"
) {
                my $cpv = $new_value->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2812)"
get_property
#line 257 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2813)"
 ($xu);
                if (not $cpv) {
                  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2814)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2816)"

{
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVOrderedList][@QName=ManakaiDVOrderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createOrderedList][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #2823)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVOrderedList][@QName=ManakaiDVOrderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createOrderedList][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #2821)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVOrderedList][@QName=ManakaiDVOrderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createOrderedList][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2817)"
$cpv = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2818)"
Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_ordered_list
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVOrderedList][@QName=ManakaiDVOrderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createOrderedList][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2819)"

  ($mtopt{default_media_type}, base_type => 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#String');
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2820)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2822)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2824)"
}

#line 263 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2835)"

#line 263 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2825)"
;
                  $new_value->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2826)"
set_property
#line 264 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2827)"
 ($xu => $cpv);
                }
                $cpv->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2828)"
add_item
#line 266 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2829)"
 ($pr->{new_value});
              } elsif ($pr->{prop_mult} eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2830)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#UnorderedList'
#line 267 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2831)"
) {
                my $cpv = $new_value->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2832)"
get_property
#line 268 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2833)"
 ($xu);
                if (not $cpv) {
                  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2834)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2836)"

{
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVUnorderedList][@QName=ManakaiDVUnorderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createUnorderedList][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #2843)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVUnorderedList][@QName=ManakaiDVUnorderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createUnorderedList][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #2841)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVUnorderedList][@QName=ManakaiDVUnorderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createUnorderedList][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2837)"
$cpv = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2838)"
Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_unordered_list
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVUnorderedList][@QName=ManakaiDVUnorderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createUnorderedList][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2839)"

  ($mtopt{default_media_type}, base_type => 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#String');
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2840)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2842)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2844)"
}

#line 274 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2853)"

#line 274 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2845)"
;
                  $new_value->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2846)"
set_property
#line 275 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2847)"
 ($xu => $cpv);
                }
                $cpv->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2848)"
add_item
#line 277 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2849)"
 ($pr->{new_value});
              } else {
                $new_value->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2850)"
set_property
#line 279 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2851)"

                                      ($xu => $pr->{new_value});
              }
            } else {
              
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2852)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2854)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2859)"
local $Error::Depth = $Error::Depth - 1;

{
#line 283 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2857)"

#line 283 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2855)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2856)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $ce, '-type' => 'NOT_SUPPORTED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'read_properties', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#UNSUPPORTED_ELEMENT_TYPE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISAnyResource', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => $xu;

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2858)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2860)"
}

#line 286 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2863)"

#line 286 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2861)"
;
            }
          }} # copy_tree

          {new_value => $new_value, base_type => $base_type,
           prop_uri => $prop_uri, prop_mult => $prop_mult,
           new_value_type => $new_value_type};
        };
        
        my $pr;
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2862)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2864)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2871)"
local $Error::Depth = $Error::Depth + 1;

{
#line 296 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2869)"

#line 296 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2867)"

#line 296 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2865)"

          $pr = $add_prop->($self, $el, $db);
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2866)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2868)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2870)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2872)"
}

#line 298 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2877)"

#line 298 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2873)"
;
        if ($pr->{prop_mult} eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2874)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#OrderedList'
#line 299 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2875)"
) {
          if (not $self->{$pr->{prop_uri}}) {
            
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2876)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2878)"

{
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVOrderedList][@QName=ManakaiDVOrderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createOrderedList][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #2885)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVOrderedList][@QName=ManakaiDVOrderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createOrderedList][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #2883)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVOrderedList][@QName=ManakaiDVOrderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createOrderedList][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2879)"
$self->{$pr->{prop_uri}} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2880)"
Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_ordered_list
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVOrderedList][@QName=ManakaiDVOrderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createOrderedList][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2881)"

  ($pr->{new_value_type}, base_type => $pr->{base_type} || 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#String');
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2882)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2884)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2886)"
}

#line 305 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2893)"

#line 305 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2887)"
;
          }
          $self->{$pr->{prop_uri}}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2888)"
add_item
#line 307 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2889)"

            ($pr->{new_value});
        } elsif ($pr->{prop_mult} eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2890)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#UnorderedList'
#line 309 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2891)"
) {
          if (not $self->{$pr->{prop_uri}}) {
            
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2892)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2894)"

{
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVUnorderedList][@QName=ManakaiDVUnorderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createUnorderedList][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #2901)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVUnorderedList][@QName=ManakaiDVUnorderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createUnorderedList][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #2899)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVUnorderedList][@QName=ManakaiDVUnorderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createUnorderedList][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2895)"
$self->{$pr->{prop_uri}} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2896)"
Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_unordered_list
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVUnorderedList][@QName=ManakaiDVUnorderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createUnorderedList][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2897)"

  ($pr->{new_value_type}, base_type => $pr->{base_type} || 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#String');
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2898)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2900)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2902)"
}

#line 315 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2917)"

#line 315 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2903)"
;
          }
          $self->{$pr->{prop_uri}}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2904)"
add_item
#line 317 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2905)"

            ($pr->{new_value});
        } else {
          $self->{$pr->{prop_uri}} = $pr->{new_value};
        }
        
        if ($el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2906)"
element_type_match
#line 323 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2907)"

                   (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2908)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Perl#propHashKey'
#line 324 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2909)"
, database_arg => $db)) {
          $db->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2910)"
pl_add_hash_key
#line 325 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2911)"

                   ($xu => $pr->{new_value}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2912)"
string_value
#line 326 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2913)"

                        => $self);
        }
      } elsif ($el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2914)"
is_resource_element
#line 329 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2915)"
) {
        ## TODO: Should rdf:type be validated?
      } else {
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2916)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2918)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2923)"
local $Error::Depth = $Error::Depth - 1;

{
#line 332 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2921)"

#line 332 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2919)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2920)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $el, '-type' => 'NOT_SUPPORTED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'read_properties', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#UNSUPPORTED_ELEMENT_TYPE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISAnyResource', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => $xu;

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2922)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2924)"
}

#line 335 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2927)"

#line 335 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2925)"
;
      }
    }
    CORE::delete $self->{src};
    ($opt{on_resource_read} or sub () {})->($self, $self);
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2926)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2928)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2930)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2932)"
}

#line 341 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2935)"

#line 341 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2933)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2934)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2936)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2938)"
}
}
sub owner_module_uri ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2949)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerModuleURI][@Type=DIS|AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2947)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerModuleURI][@Type=DIS|AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2945)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerModuleURI][@Type=DIS|AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2939)"
(defined $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2940)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#definingModule'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerModuleURI][@Type=DIS|AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2941)"
}) {
  $r = ${$self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2942)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#definingModule'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerModuleURI][@Type=DIS|AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2943)"
}};
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2944)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2946)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2948)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2950)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2951)"
my ($self) = @_;
report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISAnyResource', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'owner_module_uri';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2952)"
}}
sub namespace_uri ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2959)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=namespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2957)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=namespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2955)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=namespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2953)"
$r = $self->{namespaceURI};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2954)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2956)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2958)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2960)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2961)"
my ($self) = @_;
report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISAnyResource', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'namespace_uri';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2962)"
}}
sub source_element ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2969)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=sourceElement][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2967)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=sourceElement][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2965)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=sourceElement][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2963)"
$r = $self->{src};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2964)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2966)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2968)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2970)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2971)"
my ($self) = @_;
report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISAnyResource', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'source_element';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2972)"
}}
sub source_node_id_ref ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2981)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=sourceNodeIDRef][@Type=pl|SCALAR||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2979)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=sourceNodeIDRef][@Type=pl|SCALAR||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2977)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=sourceNodeIDRef][@Type=pl|SCALAR||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2973)"
$r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2974)"
'snid'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=sourceNodeIDRef][@Type=pl|SCALAR||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2975)"
};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2976)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2978)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2980)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2982)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2993)"
my ($self, $given) = @_;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=sourceNodeIDRef][@Type=pl|SCALAR||ManakaiDOM|all][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [b] (Chunk #2991)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=sourceNodeIDRef][@Type=pl|SCALAR||ManakaiDOM|all][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [bc] (Chunk #2989)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=sourceNodeIDRef][@Type=pl|SCALAR||ManakaiDOM|all][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #2983)"
(defined $given) {
  $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2984)"
'snid'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=sourceNodeIDRef][@Type=pl|SCALAR||ManakaiDOM|all][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #2985)"
} = $given;
} else {
  CORE::delete $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2986)"
'snid'
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=sourceNodeIDRef][@Type=pl|SCALAR||ManakaiDOM|all][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #2987)"
};
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2988)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2990)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2992)"
}

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2994)"
}}
sub for_uri ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3001)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=forURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2999)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=forURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2997)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=forURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2995)"
$r = $self->{for};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2996)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2998)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3000)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3002)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3003)"
my ($self) = @_;
report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISAnyResource', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'for_uri';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3004)"
}}
sub source_node_id ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3017)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=sourceNodeID][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3015)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=sourceNodeID][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3013)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=sourceNodeID][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3005)"
(defined $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3006)"
'snid'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=sourceNodeID][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3007)"
}) {
  $r = ${$self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3008)"
'snid'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=sourceNodeID][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3009)"
}};
} else {
  $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3010)"
undef
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=sourceNodeID][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3011)"
;
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3012)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3014)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3016)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3018)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3029)"
my ($self, $given) = @_;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=sourceNodeID][@Type=AnyURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [b] (Chunk #3027)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=sourceNodeID][@Type=AnyURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [bc] (Chunk #3025)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=sourceNodeID][@Type=AnyURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #3019)"
(defined $given) {
  $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3020)"
'snid'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=sourceNodeID][@Type=AnyURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #3021)"
} = \$given;
} else {
  CORE::delete $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3022)"
'snid'
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=sourceNodeID][@Type=AnyURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #3023)"
};
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3024)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3026)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3028)"
}

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3030)"
}}
sub is_defined ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3039)"
my ($self) = @_;
my $r = 0;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3037)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3035)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3031)"
$r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3032)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isDefined'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3033)"
};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3034)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3036)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3038)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3040)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3041)"
my ($self) = @_;
report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISAnyResource', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'is_defined';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3042)"
}}
sub is_referred ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3051)"
my ($self) = @_;
my $r = '';

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isReferred][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3049)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isReferred][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3047)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isReferred][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3043)"
$r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3044)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isReferred'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isReferred][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3045)"
};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3046)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3048)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3050)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3052)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3069)"
my ($self, $given) = @_;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isReferred][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [b] (Chunk #3067)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isReferred][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [bc] (Chunk #3065)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isReferred][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #3053)"
(defined $given) {
  if (ref $given) {
    if ($given->isa (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3054)"
'Message::Util::IF::DVValue'
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isReferred][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #3055)"
)) {
      $given = $given->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3056)"
source_node_path
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isReferred][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #3057)"
;
    } else {
      $given = $given->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3058)"
flag
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isReferred][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #3059)"
 ('nodePath') ||
               $given->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3060)"
node_path
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isReferred][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #3061)"

                  (key => [qw/QName Name type Type/]);
    }
  }
  $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3062)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isReferred'
#line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isReferred][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #3063)"
} = $given;
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3064)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3066)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3068)"
}

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3070)"
}}
sub owner_module ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3083)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerModule][@type=DISLang:Attribute]/Get[@Type=DISModule][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3081)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerModule][@type=DISLang:Attribute]/Get[@Type=DISModule][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3079)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerModule][@type=DISLang:Attribute]/Get[@Type=DISModule][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3071)"
$r = $self->{db}
          ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3072)"
get_module
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerModule][@type=DISLang:Attribute]/Get[@Type=DISModule][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3073)"

                   (${$self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3074)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#definingModule'
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerModule][@type=DISLang:Attribute]/Get[@Type=DISModule][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3075)"
}})
   if defined $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3076)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#definingModule'
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerModule][@type=DISLang:Attribute]/Get[@Type=DISModule][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3077)"
};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3078)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3080)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3082)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3084)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3085)"
my ($self) = @_;
report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISAnyResource', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'owner_module';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3086)"
}}
sub is_anonymous ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3095)"
my ($self) = @_;
my $r = 0;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isAnonymous][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3093)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isAnonymous][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3091)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isAnonymous][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3087)"
$r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3088)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isAnon'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isAnonymous][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3089)"
};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3090)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3092)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3094)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3096)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3097)"
my ($self) = @_;
report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISAnyResource', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'is_anonymous';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3098)"
}}
sub name_uri ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3105)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=nameURI][@Type=NameURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3103)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=nameURI][@Type=NameURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3101)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=nameURI][@Type=NameURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3099)"
(defined $self->{localName}) {
  $r = defined $self->{namespaceURI}
     ? $self->{namespaceURI} . $self->{localName}
     : $self->{localName};
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3100)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3102)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3104)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3106)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3107)"
my ($self) = @_;
report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISAnyResource', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'name_uri';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3108)"
}}
sub local_name ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3115)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=localName][@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3113)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=localName][@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3111)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=localName][@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3109)"
$r = $self->{localName};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3110)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3112)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3114)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3116)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3117)"
my ($self) = @_;
report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISAnyResource', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'local_name';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3118)"
}}
sub is_for_uri ($$) {
my ($self, $forURI) = @_;
my $r = 0;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3141)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3119)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3120)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3135)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3133)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3131)"

  C: 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3121)"
for my $this_for_uri ($self->{for}, @{$self->{forp}}) {
    if ($this_for_uri eq $forURI) { ## Shortcut
      $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3122)"
1
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3123)"
;
      last C;
    }
    my $this_for = $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3124)"
get_for
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3125)"

                                       ($this_for_uri);
    if ($this_for->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3126)"
isa_uri
#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3127)"
 ($forURI)) {
      $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3128)"
1
#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3129)"
;
      last C;
    }
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3130)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3132)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3134)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3136)"
}

#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3139)"

#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3137)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3138)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3140)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3142)"
}
$r}
sub uri ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3149)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=uri][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3147)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=uri][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3145)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=uri][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3143)"
$r = $self->{uri};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3144)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3146)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3148)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3150)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3151)"
my ($self) = @_;
report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISAnyResource', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'uri';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3152)"
}}
sub forp_uri ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3159)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=forpURI][@Type=ForURIList][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3157)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=forpURI][@Type=ForURIList][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3155)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=forpURI][@Type=ForURIList][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3153)"
$r = [@{$self->{forp}}];
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3154)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3156)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3158)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3160)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3161)"
my ($self) = @_;
report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISAnyResource', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'forp_uri';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3162)"
}}
sub database ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3169)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=database][@Type=DISDatabase][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3167)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=database][@Type=DISDatabase][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3165)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=database][@Type=DISDatabase][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3163)"
$r = $self->{db};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3164)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3166)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3168)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3170)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3171)"
my ($self) = @_;
report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISAnyResource', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'database';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3172)"
}}
sub owner_module_uri_ref ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3181)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerModuleURIRef][@Type=DISPerl|SCALAR||ManakaiDOM|Perl][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3179)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerModuleURIRef][@Type=DISPerl|SCALAR||ManakaiDOM|Perl][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3177)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerModuleURIRef][@Type=DISPerl|SCALAR||ManakaiDOM|Perl][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3173)"
$r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3174)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#definingModule'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerModuleURIRef][@Type=DISPerl|SCALAR||ManakaiDOM|Perl][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3175)"
};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3176)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3178)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3180)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3182)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3183)"
my ($self) = @_;
report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISAnyResource', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'owner_module_uri_ref';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3184)"
}}
sub is_same_resource ($$) {
my ($self, $anotherResource) = @_;
my $r = 0;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isSameResource][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3191)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isSameResource][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3189)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isSameResource][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3185)"
(UNIVERSAL::isa ($anotherResource,
                    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3186)"
'Message::Util::DIS::ManakaiDISAnyResource'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isSameResource][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3187)"
)) {
  $r = $self->{uri} eq $anotherResource->{uri};
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3188)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3190)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3192)"
}
$r}
sub uris ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3193)"
my ($self) = @_;
report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NOT_SUPPORTED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_IMPL_ATTR_NOT_IMPLEMENTED', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISAnyResource', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'uris';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3194)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3195)"
my ($self) = @_;
report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISAnyResource', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'uris';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3196)"
}}
sub uri_ref ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3203)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=uriRef][@Type=DISPerl|SCALAR||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3201)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=uriRef][@Type=DISPerl|SCALAR||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3199)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=uriRef][@Type=DISPerl|SCALAR||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3197)"
$r = \ ($self->{uri});
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3198)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3200)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3202)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3204)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3205)"
my ($self) = @_;
report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISAnyResource', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'uri_ref';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3206)"
}}
use overload bool => sub () {1}, 'eq', 'is_same_resource', fallback => 1;
$Message::DOM::ClassFeature{q<Message::Util::DIS::ManakaiDISAnyResource>} = {'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#core', {'', '1', '1.0', '1'}};
$Message::DOM::ClassPoint{q<Message::Util::DIS::ManakaiDISAnyResource>} = 1;
package Message::Util::DIS::ManakaiDISModuleDefinition;
our $VERSION = 20050928.0929;
push our @ISA, 'Message::Util::DIS::ManakaiDISPropertyAccessor', 'Message::Util::Error::DOMException::ManakaiDefaultExceptionHandler', 'Message::Util::DIS::Perl::ManakaiDISPerlModuleDefinition', 'Message::Util::DIS::Perl::ManakaiDISModulePerl', 'Message::Util::DIS::Perl::ManakaiDISAnyResourcePerl', 'Message::Util::DIS::ManakaiDISAnyResource', 'Message::DOM::IFLatest::GetFeature', 'Message::Util::IF::DISModule', 'Message::Util::IFLatest::DISModule';
sub owner_module ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3213)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerModule][@type=DISLang:Attribute]/Get[@Type=DISModule][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3211)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerModule][@type=DISLang:Attribute]/Get[@Type=DISModule][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3209)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerModule][@type=DISLang:Attribute]/Get[@Type=DISModule][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3207)"
$r = $self;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3208)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3210)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3212)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3214)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3215)"
my ($self) = @_;
report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISModuleDefinition', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'owner_module';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3216)"
}}
sub is_anonymous ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3225)"
my ($self) = @_;
my $r = 0;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isAnonymous][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3223)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isAnonymous][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3221)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isAnonymous][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3217)"
$r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3218)"
0
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isAnonymous][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3219)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3220)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3222)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3224)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3226)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3227)"
my ($self) = @_;
report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISModuleDefinition', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'is_anonymous';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3228)"
}}
sub get_feature ($$$) {
my ($self, $feature, $version) = @_;

{
#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [b] (Chunk #3233)"

#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [bc] (Chunk #3231)"

#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #3229)"
$feature = lc $feature;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3230)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3232)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3234)"
}

{
#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [b] (Chunk #3239)"

#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [bc] (Chunk #3237)"

#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #3235)"
$version = '' unless defined $version;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3236)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3238)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3240)"
}
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3245)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3243)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3241)"
$feature =~ s/^\+//;
CLASS: for my $class (grep {
  $Message::Util::DIS::ManakaiDISModuleDefinition::CompatClass{$_}
} keys %Message::Util::DIS::ManakaiDISModuleDefinition::CompatClass) {
  if ($Message::DOM::ClassFeature{$class}->{$feature}->{$version}) {
    $r = bless {o => $self}, $class;
    last CLASS;
  }
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3242)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3244)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3246)"
}
$r}
sub uris ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3253)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=uris][@Type=Perl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3251)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=uris][@Type=Perl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3249)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=uris][@Type=Perl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3247)"
$r = [$self->{uri}];
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3248)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3250)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3252)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3254)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3255)"
my ($self) = @_;
report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISModuleDefinition', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'uris';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3256)"
}}
sub get_resource_list ($) {
my ($self) = @_;
my $r = [];

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3277)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3257)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3258)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3271)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3269)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3267)"

  my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3259)"
$db = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3260)"
database
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3261)"
;
  $r = [map {
          $db->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3262)"
get_resource
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3263)"
 ($$_)
        } @{$self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3264)"
'mres'
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3265)"
}}];

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3266)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3268)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3270)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3272)"
}

#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3275)"

#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3273)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3274)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3276)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3278)"
}
$r}
sub target_namespace_uri ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3291)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=targetNamespaceURI][@Type=DIS|AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3289)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=targetNamespaceURI][@Type=DIS|AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3287)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=targetNamespaceURI][@Type=DIS|AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3279)"
$r = defined $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3280)"
'dns'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=targetNamespaceURI][@Type=DIS|AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3281)"
}
     ? ${$self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3282)"
'dns'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=targetNamespaceURI][@Type=DIS|AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3283)"
}} : 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3284)"
undef
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=targetNamespaceURI][@Type=DIS|AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3285)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3286)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3288)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3290)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3292)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3303)"
my ($self, $given) = @_;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=targetNamespaceURI][@Type=DIS|AnyURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [b] (Chunk #3301)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=targetNamespaceURI][@Type=DIS|AnyURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [bc] (Chunk #3299)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=targetNamespaceURI][@Type=DIS|AnyURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #3293)"
(defined $given) {
  $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3294)"
'dns'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=targetNamespaceURI][@Type=DIS|AnyURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #3295)"
} = \$given;
} else {
  CORE::delete $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3296)"
'dns'
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=targetNamespaceURI][@Type=DIS|AnyURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #3297)"
};
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3298)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3300)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3302)"
}

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3304)"
}}
sub add_resource_list ($$) {
my ($self, $disResource) = @_;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3323)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3305)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3306)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3317)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3315)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3313)"

  push 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3307)"
@{$self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3308)"
'mres'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3309)"
}||=[]},
       $disResource->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3310)"
uri_ref
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3311)"
;

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3312)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3314)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3316)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3318)"
}

#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3321)"

#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3319)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3320)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3322)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3324)"
}
}
$Message::DOM::ClassFeature{q<Message::Util::DIS::ManakaiDISModuleDefinition>} = {'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#core', {'', '1', '1.0', '1'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#perl', {'', '1', '1.0', '1'}};
$Message::DOM::ClassPoint{q<Message::Util::DIS::ManakaiDISModuleDefinition>} = 6;
$Message::Util::DIS::ManakaiDISModuleDefinition::CompatClass{q<Message::Util::DIS::ManakaiDISModuleDefinition>} = 1;
package Message::Util::DIS::ManakaiDISModuleLite;
our $VERSION = 20050928.0929;
push our @ISA, 'Message::Util::DIS::ManakaiDISAnyResource', 'Message::DOM::IFLatest::GetFeature', 'Message::Util::IF::DISAnyResourcePerl', 'Message::Util::IF::DISModulePerl', 'Message::Util::IF::DISResourcePerlModule', 'Message::Util::IFLatest::DISResourceProp';
sub AUTOLOAD ($) {
my ($self) = @_;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Method[@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3351)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Method[@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3327)"
my 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Method[@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3325)"
$al = our $AUTOLOAD;
$al =~ s/.+:://;
if ($al ne 'DESTROY') {


#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3326)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3328)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3339)"
local $Error::Depth = $Error::Depth + 1;

{
#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Method[@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3337)"

#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Method[@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3335)"

#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Method[@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3329)"

  $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3330)"
database
#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Method[@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3331)"

       ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3332)"
_pl_load_dis_database_module
#line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Method[@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3333)"
 ($self);

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3334)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3336)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3338)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3340)"
}

#line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Method[@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3345)"

#line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Method[@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3341)"
;        
if (ref $self eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3342)"
'Message::Util::DIS::ManakaiDISModuleLite'
#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Method[@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3343)"
) {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3344)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3346)"
report Message::Util::DIS::ManakaiDISException -object => $self, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'AUTOLOAD', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#RESOURCE_NOT_DEFINED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISModuleLite', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $self->uri, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#moduleURI' => $self->uri;

#line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Method[@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3349)"

#line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Method[@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3347)"
;
}

my $code = $self->can ($al);
if ($code) {
  goto &$code;
} else {
  require Carp;
  local $Carp::CarpLevel = $Error::Level;
  Carp::croak (qq<Can't locate method "$AUTOLOAD">);
}

} # $al
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3348)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3350)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3352)"
}
}
sub owner_module ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3359)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Attr[@Name=ownerModule][@type=DISLang:Attribute]/Get[@Type=DISModule][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3357)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Attr[@Name=ownerModule][@type=DISLang:Attribute]/Get[@Type=DISModule][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3355)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Attr[@Name=ownerModule][@type=DISLang:Attribute]/Get[@Type=DISModule][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3353)"
$r = $self;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3354)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3356)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3358)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3360)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3361)"
my ($self) = @_;
report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISModuleLite', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'owner_module';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3362)"
}}
sub is_anonymous ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3371)"
my ($self) = @_;
my $r = 0;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Attr[@Name=isAnonymous][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3369)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Attr[@Name=isAnonymous][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3367)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Attr[@Name=isAnonymous][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3363)"
$r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3364)"
0
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Attr[@Name=isAnonymous][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3365)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3366)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3368)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3370)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3372)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3373)"
my ($self) = @_;
report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISModuleLite', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'is_anonymous';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3374)"
}}
sub uris ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3381)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Attr[@Name=uris][@Type=Perl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3379)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Attr[@Name=uris][@Type=Perl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3377)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Attr[@Name=uris][@Type=Perl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3375)"
$r = [$self->{uri}];
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3376)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3378)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3380)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3382)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3383)"
my ($self) = @_;
report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISModuleLite', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'uris';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3384)"
}}
sub target_namespace_uri ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3397)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Attr[@Name=targetNamespaceURI][@Type=DIS|AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3395)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Attr[@Name=targetNamespaceURI][@Type=DIS|AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3393)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Attr[@Name=targetNamespaceURI][@Type=DIS|AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3385)"
$r = defined $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3386)"
'dns'
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Attr[@Name=targetNamespaceURI][@Type=DIS|AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3387)"
}
     ? ${$self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3388)"
'dns'
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Attr[@Name=targetNamespaceURI][@Type=DIS|AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3389)"
}} : 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3390)"
undef
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Attr[@Name=targetNamespaceURI][@Type=DIS|AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3391)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3392)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3394)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3396)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3398)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3399)"
my ($self) = @_;
report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISModuleLite', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'target_namespace_uri';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3400)"
}}
$Message::DOM::ClassFeature{q<Message::Util::DIS::ManakaiDISModuleLite>} = {'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#core', {'', '1', '1.0', '1'}};
$Message::DOM::ClassPoint{q<Message::Util::DIS::ManakaiDISModuleLite>} = 2;
package Message::Util::DIS::ManakaiDISForDefinition;
our $VERSION = 20050928.0929;
push our @ISA, 'Message::Util::DIS::Perl::ManakaiDISAnyResourcePerl', 'Message::Util::DIS::ManakaiDISAnyResource', 'Message::Util::Error::DOMException::ManakaiDefaultExceptionHandler', 'Message::Util::IF::DISFor', 'Message::Util::IFLatest::DISFor';
sub add_isa ($$) {
my ($self, $superFor) = @_;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3425)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3403)"
my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3401)"
@from = ($self->{uri},
            grep {$self->{revISA}->{$_}} keys %{$self->{revISA}});
my @to = ($superFor->{uri},
          grep {$superFor->{isa}->{$_}} keys %{$superFor->{isa}});

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3402)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3404)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3419)"
local $Error::Depth = $Error::Depth + 1;

{
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3417)"

#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3415)"

  for 
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3405)"
my $from (@from) {
    for my $to (@to) {
      $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3406)"
get_for
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3407)"

                              ($from)->{isa}->{$to} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3408)"
1
#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3409)"
;
      $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3410)"
get_for
#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3411)"

                              ($to)->{revISA}->{$from} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3412)"
1
#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3413)"
;
    }
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3414)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3416)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3418)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3420)"
}

#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3423)"

#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3421)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3422)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3424)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3426)"
}
}
sub name_uri ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3433)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=nameURI][@Type=NameURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3431)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=nameURI][@Type=NameURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3429)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=nameURI][@Type=NameURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3427)"
$r = $self->{uri};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3428)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3430)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3432)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3434)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3435)"
my ($self) = @_;
report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISForDefinition', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'name_uri';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3436)"
}}
sub is_anonymous ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3445)"
my ($self) = @_;
my $r = 0;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isAnonymous][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3443)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isAnonymous][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3441)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isAnonymous][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3437)"
$r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3438)"
1
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isAnonymous][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3439)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3440)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3442)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3444)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3446)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3447)"
my ($self) = @_;
report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISForDefinition', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'is_anonymous';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3448)"
}}
sub is_for_uri ($$) {
my ($self, $forURI) = @_;
my $r = 0;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3455)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3453)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3449)"
$r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3450)"
1
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3451)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3452)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3454)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3456)"
}
$r}
sub forp_uri ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3463)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=forpURI][@Type=ForURIList][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3461)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=forpURI][@Type=ForURIList][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3459)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=forpURI][@Type=ForURIList][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3457)"
$r = [];
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3458)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3460)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3462)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3464)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3465)"
my ($self) = @_;
report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISForDefinition', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'forp_uri';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3466)"
}}
sub isa_uri ($$) {
my ($self, $superURI) = @_;
my $r = 0;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isaURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3473)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isaURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3471)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isaURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3467)"
$r = $self->{uri} eq $superURI ? 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3468)"
1 : 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isaURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3469)"
$self->{isa}->{$superURI};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3470)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3472)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3474)"
}
$r}
sub for_uri ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3483)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=forURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3481)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=forURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3479)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=forURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3475)"
$r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3476)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=forURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3477)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3478)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3480)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3482)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3484)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3485)"
my ($self) = @_;
report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISForDefinition', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'for_uri';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3486)"
}}
sub get_feature ($$$) {
my ($self, $feature, $version) = @_;

{
#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [b] (Chunk #3491)"

#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [bc] (Chunk #3489)"

#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #3487)"
$feature = lc $feature;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3488)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3490)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3492)"
}

{
#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [b] (Chunk #3497)"

#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [bc] (Chunk #3495)"

#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #3493)"
$version = '' unless defined $version;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3494)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3496)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3498)"
}
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3503)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3501)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3499)"
$feature =~ s/^\+//;
CLASS: for my $class (grep {
  $Message::Util::DIS::ManakaiDISForDefinition::CompatClass{$_}
} keys %Message::Util::DIS::ManakaiDISForDefinition::CompatClass) {
  if ($Message::DOM::ClassFeature{$class}->{$feature}->{$version}) {
    $r = bless {o => $self}, $class;
    last CLASS;
  }
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3500)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3502)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3504)"
}
$r}
sub uris ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3511)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=uris][@Type=Perl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3509)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=uris][@Type=Perl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3507)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=uris][@Type=Perl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3505)"
$r = [$self->{uri}];
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3506)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3508)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3510)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3512)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3513)"
my ($self) = @_;
report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISForDefinition', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'uris';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3514)"
}}
$Message::DOM::ClassFeature{q<Message::Util::DIS::ManakaiDISForDefinition>} = {'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#core', {'', '1', '1.0', '1'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#perl', {'', '1', '1.0', '1'}};
$Message::DOM::ClassPoint{q<Message::Util::DIS::ManakaiDISForDefinition>} = 3;
$Message::Util::DIS::ManakaiDISForDefinition::CompatClass{q<Message::Util::DIS::ManakaiDISForDefinition>} = 1;
package Message::Util::DIS::ManakaiDISResourceDefinition;
our $VERSION = 20050928.0929;
push our @ISA, 'Message::Util::DIS::ManakaiDISResourceMV', 'Message::Util::DIS::Perl::ManakaiDISResourcePerl', 'Message::Util::DIS::Perl::ManakaiDISPerlModuleDefinition', 'Message::Util::DIS::Perl::ManakaiDISAnyResourcePerl', 'Message::Util::DIS::ManakaiDISPropertyAccessor', 'Message::Util::DIS::ManakaiDISAnyResource', 'Message::Util::Error::DOMException::ManakaiDefaultExceptionHandler', 'Message::Util::IF::DISResource', 'Message::Util::IFLatest::DISResource';
sub dis_data_type_value ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3545)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeValue][@type=DISLang:Attribute]/Get[@Type=dv|DVURIValue][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3543)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeValue][@type=DISLang:Attribute]/Get[@Type=dv|DVURIValue][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3515)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3516)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3533)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeValue][@type=DISLang:Attribute]/Get[@Type=dv|DVURIValue][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3531)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeValue][@type=DISLang:Attribute]/Get[@Type=dv|DVURIValue][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3529)"

  if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeValue][@type=DISLang:Attribute]/Get[@Type=dv|DVURIValue][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3517)"
(UNIVERSAL::isa ($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3518)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Type'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeValue][@type=DISLang:Attribute]/Get[@Type=dv|DVURIValue][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3519)"
}, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3520)"
'Message::Util::IF::DVURIValue'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeValue][@type=DISLang:Attribute]/Get[@Type=dv|DVURIValue][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3521)"
)) {
    $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3522)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Type'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeValue][@type=DISLang:Attribute]/Get[@Type=dv|DVURIValue][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3523)"
};
  } else {
    my $pr = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3524)"
dynamic_parent_resource
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeValue][@type=DISLang:Attribute]/Get[@Type=dv|DVURIValue][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3525)"
;
    $r = $pr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3526)"
dis_data_type_value if 
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeValue][@type=DISLang:Attribute]/Get[@Type=dv|DVURIValue][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3527)"
$pr;
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3528)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3530)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3532)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3534)"
}

#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeValue][@type=DISLang:Attribute]/Get[@Type=dv|DVURIValue][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3537)"

#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeValue][@type=DISLang:Attribute]/Get[@Type=dv|DVURIValue][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3535)"
;
unless ($r) {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3536)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3538)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $self->source_element, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_DIS_TYPE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISResourceDefinition', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'dis_data_type_value', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $self->uri;

#line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeValue][@type=DISLang:Attribute]/Get[@Type=dv|DVURIValue][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3541)"

#line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeValue][@type=DISLang:Attribute]/Get[@Type=dv|DVURIValue][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3539)"
;
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3540)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3542)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3544)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3546)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3547)"
my ($self) = @_;
report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISResourceDefinition', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'dis_data_type_value';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3548)"
}}
sub dis_is_null_value ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3561)"
my ($self) = @_;
my $r = 0;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3559)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3557)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3549)"
($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3550)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Value'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3551)"
}) {
  $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3552)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Value'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3553)"
}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3554)"
is_null
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3555)"
;
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3556)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3558)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3560)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3562)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3563)"
my ($self) = @_;
report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISResourceDefinition', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'dis_is_null_value';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3564)"
}}
sub parent_resource ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3589)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=parentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3587)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=parentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3565)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3566)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3581)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=parentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3579)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=parentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3577)"

  if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=parentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3567)"
($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3568)"
'puri'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=parentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3569)"
}) {
    $r = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3570)"
database
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=parentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3571)"

              ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3572)"
get_resource
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=parentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3573)"

                    (${$self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3574)"
'puri'
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=parentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3575)"
}});
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3576)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3578)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3580)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3582)"
}

#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=parentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3585)"

#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=parentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3583)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3584)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3586)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3588)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3590)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3613)"
my ($self, $given) = @_;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=parentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [b] (Chunk #3611)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=parentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [bc] (Chunk #3591)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3592)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3605)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=parentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [b] (Chunk #3603)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=parentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [bc] (Chunk #3601)"

  if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=parentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #3593)"
($given) {
    $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3594)"
'puri'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=parentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #3595)"
}
      = $given->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3596)"
uri_ref
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=parentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #3597)"
;
  } else {
    CORE::delete $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3598)"
'puri'
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=parentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #3599)"
};
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3600)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3602)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3604)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3606)"
}

#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=parentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [bc] (Chunk #3609)"

#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=parentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #3607)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3608)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3610)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3612)"
}

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3614)"
}}
sub add_super_resource ($$) {
my ($self, $superRes) = @_;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3639)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3617)"
my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3615)"
@from = ($self->{uri},
            grep {$self->{supOf}->{$_}} keys %{$self->{supOf}||{}});
my @to = ($superRes->{uri},
         grep {$superRes->{subOf}->{$_}} keys %{$superRes->{subOf}||{}});

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3616)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3618)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3633)"
local $Error::Depth = $Error::Depth + 1;

{
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3631)"

#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3629)"

  for 
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3619)"
my $from (@from) {
    for my $to (@to) {
      $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3620)"
get_resource
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3621)"

                              ($from)->{subOf}->{$to} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3622)"
1
#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3623)"
;
      $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3624)"
get_resource
#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3625)"

                              ($to)->{supOf}->{$from} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3626)"
1
#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3627)"
;
    }
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3628)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3630)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3632)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3634)"
}

#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3637)"

#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3635)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3636)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3638)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3640)"
}
}
sub dis_actual_data_type_value ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3677)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeValue][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3675)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeValue][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3641)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3642)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3665)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeValue][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3663)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeValue][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3661)"

  if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeValue][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3643)"
(UNIVERSAL::isa ($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3644)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--actualType'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeValue][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3645)"
},
                      
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3646)"
'Message::Util::IF::DVURIValue'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeValue][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3647)"
)) {
    $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3648)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--actualType'
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeValue][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3649)"
};
  } elsif (UNIVERSAL::isa ($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3650)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Type'
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeValue][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3651)"
},
                           
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3652)"
'Message::Util::IF::DVURIValue'
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeValue][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3653)"
)) {
    $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3654)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Type'
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeValue][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3655)"
};
  } else {
    my $pr = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3656)"
dynamic_parent_resource
#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeValue][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3657)"
;
    $r = $pr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3658)"
dis_actual_data_type_value if 
#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeValue][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3659)"
$pr;
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3660)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3662)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3664)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3666)"
}

#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeValue][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3669)"

#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeValue][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3667)"
;
unless ($r) {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3668)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3670)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $self->source_element, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_DIS_TYPE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISResourceDefinition', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'dis_actual_data_type_value', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $self->uri;

#line 17 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeValue][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3673)"

#line 17 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeValue][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3671)"
;
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3672)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3674)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3676)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3678)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3679)"
my ($self) = @_;
report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISResourceDefinition', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'dis_actual_data_type_value';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3680)"
}}
sub feature_name_list ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3717)"
my ($self) = @_;
my $r = [];

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3715)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3681)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3682)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3709)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3707)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3705)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3683)"

  $r = [map {lc} @{$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3684)"
get_property_text_list
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3685)"

                    (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3686)"
'http://suika.fam.cx/~wakaba/archive/2004/dom/feature#name'
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3687)"
)}];
  unless (@$r) {
    ## TODO: instance feature
    my $pr = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3688)"
parent_resource
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3689)"
;
    if ($pr) {
      if ($pr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3690)"
is_type_uri
#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3691)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3692)"
'http://suika.fam.cx/~wakaba/archive/2004/dom/feature#Feature'
#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3693)"
) and
          not $pr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3694)"
is_anonymous
#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3695)"
) {
        push @$r, @{$pr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3696)"
feature_name_list
#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3697)"
};
      }
    }
  }
  unless (@$r) {
    if ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3698)"
is_anonymous
#line 15 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3699)"
) {
      my $ln = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3700)"
local_name
#line 16 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3701)"
;
      push @$r, lc $ln if defined $ln;
    } else {
      push @$r, lc $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3702)"
name_uri
#line 19 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3703)"
;
    }
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3704)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3706)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3708)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3710)"
}

#line 22 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3713)"

#line 22 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3711)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3712)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3714)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3716)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3718)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3719)"
my ($self) = @_;
report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISResourceDefinition', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'feature_name_list';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3720)"
}}
sub is_type_uri ($$) {
my ($self, $typeURI) = @_;
my $r = 0;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3759)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3729)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3721)"
(not $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3722)"
'http://www.w3.org/1999/02/22-rdf-syntax-ns#type'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3723)"
}) {
  #
} elsif ($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3724)"
'http://www.w3.org/1999/02/22-rdf-syntax-ns#type'
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3725)"
}->{$typeURI}) {
  $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3726)"
1
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3727)"
;
} else {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3728)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3730)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3753)"
local $Error::Depth = $Error::Depth + 1;

{
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3751)"

#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3749)"

    C: 
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3731)"
for my $t_type_uri (grep {$self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3732)"
'http://www.w3.org/1999/02/22-rdf-syntax-ns#type'
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3733)"
}->{$_}}
                                keys %{$self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3734)"
'http://www.w3.org/1999/02/22-rdf-syntax-ns#type'
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3735)"
}}) {
      my $t_type = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3736)"
database
#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3737)"

                        ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3738)"
get_resource
#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3739)"
 ($t_type_uri);
      if ($t_type->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3740)"
is_subset_of_uri
#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3741)"
 ($typeURI)) {
        $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3742)"
add_peoperty_uri_ulist
#line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3743)"

                                    (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3744)"
'http://www.w3.org/1999/02/22-rdf-syntax-ns#type'
#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3745)"
, $typeURI);
        $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3746)"
1
#line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3747)"
;
        last C;
      }
    }
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3748)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3750)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3752)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3754)"
}

#line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3757)"

#line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3755)"
;
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3756)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3758)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3760)"
}
$r}
sub dynamic_parent_resource ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3785)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=dynamicParentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3783)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=dynamicParentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3761)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3762)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3777)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=dynamicParentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3775)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=dynamicParentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3773)"

  if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=dynamicParentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3763)"
($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3764)"
'dpuri'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=dynamicParentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3765)"
}) {
    $r = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3766)"
database
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=dynamicParentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3767)"

              ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3768)"
get_resource
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=dynamicParentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3769)"

                    (${$self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3770)"
'dpuri'
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=dynamicParentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3771)"
}});
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3772)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3774)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3776)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3778)"
}

#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=dynamicParentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3781)"

#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=dynamicParentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3779)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3780)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3782)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3784)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3786)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3809)"
my ($self, $given) = @_;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=dynamicParentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [b] (Chunk #3807)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=dynamicParentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [bc] (Chunk #3787)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3788)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3801)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=dynamicParentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [b] (Chunk #3799)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=dynamicParentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [bc] (Chunk #3797)"

  if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=dynamicParentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #3789)"
($given) {
    $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3790)"
'dpuri'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=dynamicParentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #3791)"
}
      = $given->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3792)"
uri_ref
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=dynamicParentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #3793)"
;
  } else {
    CORE::delete $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3794)"
'dpuri'
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=dynamicParentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #3795)"
};
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3796)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3798)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3800)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3802)"
}

#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=dynamicParentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [bc] (Chunk #3805)"

#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=dynamicParentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #3803)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3804)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3806)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3808)"
}

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3810)"
}}
sub is_subset_of_uri ($$) {
my ($self, $superURI) = @_;
my $r = 0;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isSubsetOfURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3815)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isSubsetOfURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3813)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isSubsetOfURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3811)"
$r = $self->{aliasURI}->{$superURI} || $self->{subOf}->{$superURI};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3812)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3814)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3816)"
}
$r}
sub _add_dynamic_child_resource ($$) {
my ($self, $disResource) = @_;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addDynamicChildResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3835)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addDynamicChildResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3817)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3818)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3829)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addDynamicChildResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3827)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addDynamicChildResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3825)"

  push 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addDynamicChildResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3819)"
@{$self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3820)"
'dcuris'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addDynamicChildResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3821)"
}||=[]},
       $disResource->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3822)"
uri_ref
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addDynamicChildResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3823)"
;

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3824)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3826)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3828)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3830)"
}

#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addDynamicChildResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3833)"

#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addDynamicChildResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3831)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3832)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3834)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3836)"
}
}
sub get_child_resource_list_by_type ($$) {
my ($self, $typeURI) = @_;
my $r = [];

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceListByType][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3859)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceListByType][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3837)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3838)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3853)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceListByType][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3851)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceListByType][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3849)"

  my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceListByType][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3839)"
$db = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3840)"
database
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceListByType][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3841)"
;
  $r = [grep {
          $_->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3842)"
is_type_uri
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceListByType][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3843)"
 ($typeURI)
        } map {
          $db->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3844)"
get_resource
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceListByType][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3845)"
 ($$_)
        } @{$self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3846)"
'curis'
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceListByType][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3847)"
}||[]}];

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3848)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3850)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3852)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3854)"
}

#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceListByType][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3857)"

#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceListByType][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3855)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3856)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3858)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3860)"
}
$r}
sub merge_as_alias ($$%) {
my ($self, $aliasResource, %opt) = @_;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3899)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3863)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3861)"
($self eq $aliasResource) {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3862)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3864)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $opt{node}, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'merge_as_alias', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#MERGE_ITSELF_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISResourceDefinition', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $self->{uri};

#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3877)"

#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3865)"
;
}
for my $uri ($aliasResource->{uri}, 
             grep {$aliasResource->{aliasURI}->{$_}}
                  keys %{$aliasResource->{aliasURI}}) {
  $self->{aliasURI}->{$uri} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3866)"
1
#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3867)"
;
  $self->{db}->{resDef}->{$uri} = $self;
  $self->{subOf}->{$uri} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3868)"
1
#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3869)"
;
  $self->{supOf}->{$uri} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3870)"
1
#line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3871)"
;
}
for my $uri (grep {$aliasResource->{subOf}->{$_}}
                  keys %{$aliasResource->{subOf}||{}}) {
  $self->{subOf}->{$uri} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3872)"
1
#line 17 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3873)"
;
}
for my $uri (grep {$aliasResource->{supOf}->{$_}}
                  keys %{$aliasResource->{supOf}||{}}) {
  $self->{supOf}->{$uri} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3874)"
1
#line 21 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3875)"
;
}
my @from = grep {$self->{supOf}->{$_}} keys %{$self->{supOf}||{}};
my @to   = grep {$self->{subOf}->{$_}} keys %{$self->{subOf}||{}};

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3876)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3878)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3893)"
local $Error::Depth = $Error::Depth + 1;

{
#line 25 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3891)"

#line 25 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3889)"

  for 
#line 25 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3879)"
my $from (@from) {
    for my $to (@to) {
      $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3880)"
get_resource
#line 27 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3881)"

                              ($from)->{subOf}->{$to} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3882)"
1
#line 28 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3883)"
;
      $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3884)"
get_resource
#line 29 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3885)"

                              ($to)->{supOf}->{$from} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3886)"
1
#line 30 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3887)"
;
    }
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3888)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3890)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3892)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3894)"
}

#line 34 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3897)"

#line 34 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3895)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3896)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3898)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3900)"
}
}
sub get_child_resource_by_type ($$) {
my ($self, $typeURI) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceByType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3923)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceByType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3901)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3902)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3917)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceByType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3915)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceByType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3913)"

  my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceByType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3903)"
$db = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3904)"
database
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceByType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3905)"
;
  C: for my $cr_uri (@{$self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3906)"
'curis'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceByType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3907)"
}||[]}) {
    my $cr = $db->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3908)"
get_resource
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceByType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3909)"
 ($$cr_uri);
    if ($cr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3910)"
is_type_uri
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceByType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3911)"
 ($typeURI)) {
      $r = $cr;
      last C;
    }
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3912)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3914)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3916)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3918)"
}

#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceByType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3921)"

#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceByType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3919)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3920)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3922)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3924)"
}
$r}
sub get_child_resource_by_name_and_type ($$$) {
my ($self, $localName, $typeURI) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3949)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3925)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3926)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3943)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3941)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3939)"

  my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3927)"
$db = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3928)"
database
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3929)"
;
  C: for my $cr_uri (@{$self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3930)"
'curis'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3931)"
}||[]}) {
    my $cr = $db->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3932)"
get_resource
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3933)"
 ($$cr_uri);
    my $ln = $cr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3934)"
local_name
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3935)"
;
    if (defined $ln and $ln eq $localName and
        $cr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3936)"
is_type_uri
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3937)"
 ($typeURI)) {
      $r = $cr;
      last C;
    }
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3938)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3940)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3942)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3944)"
}

#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3947)"

#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3945)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3946)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3948)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3950)"
}
$r}
sub dis_data_type_resource ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3985)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3983)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3951)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3952)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3973)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3971)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3969)"

  if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3953)"
(UNIVERSAL::isa ($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3954)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Type'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3955)"
}, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3956)"
'Message::Util::IF::DVURIValue'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3957)"
)) {
    $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3958)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Type'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3959)"
}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3960)"
get_resource
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3961)"

             ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3962)"
database
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3963)"
);
  } else {
    my $pr = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3964)"
dynamic_parent_resource
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3965)"
;
    $r = $pr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3966)"
dis_data_type_resource if 
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3967)"
$pr;
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3968)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3970)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3972)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3974)"
}

#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3977)"

#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3975)"
;
unless ($r) {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3976)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3978)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $self->source_element, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_DIS_TYPE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISResourceDefinition', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'dis_data_type_resource', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $self->uri;

#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3981)"

#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3979)"
;
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3980)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3982)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3984)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3986)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3987)"
my ($self) = @_;
report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISResourceDefinition', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'dis_data_type_resource';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3988)"
}}
sub get_const_resource_by_name ($$) {
my ($self, $localName) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4023)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3989)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3990)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4017)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4015)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4013)"

  my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3991)"
@constGroup;
  my $db = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3992)"
database
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3993)"
;
  C: for my $cr_uri (@{$self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3994)"
'curis'
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3995)"
}||[]}) {
    my $cr = $db->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3996)"
get_resource
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3997)"
 ($$cr_uri);
    my $ln = $cr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3998)"
local_name
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3999)"
;
    if ($ln and $ln eq $localName and
        $cr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4000)"
is_type_uri
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4001)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4002)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#Const'
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4003)"
)) {
      $r = $cr;
      last C;
    } elsif ($cr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4004)"
is_type_uri
#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4005)"

                        (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4006)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#ConstGroup'
#line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4007)"
)) {
      push @constGroup, $cr;
    }
  }
  unless ($r) {
    D: for my $cg (@constGroup) {
      $r = $cg->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4008)"
get_child_resource_by_name_and_type
#line 17 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4009)"

                     ($localName, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4010)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#Const'
#line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4011)"
);
      last D if $r;
    }
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4012)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4014)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4016)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4018)"
}

#line 23 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4021)"

#line 23 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4019)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4020)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4022)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4024)"
}
$r}
sub get_dynamic_child_resource_list ($) {
my ($self) = @_;
my $r = [];

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getDynamicChildResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4045)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getDynamicChildResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4025)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4026)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4039)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getDynamicChildResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4037)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getDynamicChildResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4035)"

  my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getDynamicChildResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4027)"
$db = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4028)"
database
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getDynamicChildResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4029)"
;
  $r = [map {
          $db->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4030)"
get_resource
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getDynamicChildResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4031)"
 ($$_)
        } @{$self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4032)"
'dcuris'
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getDynamicChildResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4033)"
}}];

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4034)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4036)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4038)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4040)"
}

#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getDynamicChildResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4043)"

#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getDynamicChildResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4041)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4042)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4044)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4046)"
}
$r}
sub is_feature_provided ($$) {
my ($self, $featureResourceURI) = @_;
my $r = 0;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4077)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4047)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4048)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4071)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4069)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4067)"

  my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4049)"
@f = @{$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4050)"
get_property_resource_list
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4051)"

                            (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4052)"
'http://suika.fam.cx/~wakaba/archive/2004/dom/main#implementFeature'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4053)"
,
                             isa_recursive => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4054)"
1
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4055)"
,
                             default_media_type => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4056)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TypeQName'
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4057)"
)};
  if (@f) {
    for my $f (@f) {
      if ($f->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4058)"
is_subset_of_uri
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4059)"

                   ($featureResourceURI)) {
        $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4060)"
1
#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4061)"
;
        last;
      }
    }
  } else {
    my $parent = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4062)"
parent_resource
#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4063)"
;
    $r = $parent->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4064)"
is_feature_provided
#line 15 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4065)"

                             ($featureResourceURI)
      if $parent;
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4066)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4068)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4070)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4072)"
}

#line 21 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4075)"

#line 21 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4073)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4074)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4076)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4078)"
}
$r}
sub default_lextype_uri ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4107)"
my ($self) = @_;
my $r = '';

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultLextypeURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4105)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultLextypeURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4079)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4080)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4099)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultLextypeURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4097)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultLextypeURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4095)"

  if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultLextypeURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4081)"
($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4082)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--dataType'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultLextypeURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4083)"
}) {
    $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4084)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--dataType'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultLextypeURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4085)"
}
              ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4086)"
get_resource
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultLextypeURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4087)"

                    ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4088)"
database
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultLextypeURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4089)"
)
              ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4090)"
uri
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultLextypeURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4091)"
;
  } else {
    $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4092)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#String'
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultLextypeURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4093)"
;
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4094)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4096)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4098)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4100)"
}

#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultLextypeURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4103)"

#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultLextypeURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4101)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4102)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4104)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4106)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4108)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4109)"
my ($self) = @_;
report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISResourceDefinition', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'default_lextype_uri';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4110)"
}}
sub _add_child_resource ($$) {
my ($self, $disResource) = @_;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addChildResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4129)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addChildResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4111)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4112)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4123)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addChildResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4121)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addChildResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4119)"

  push 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addChildResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4113)"
@{$self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4114)"
'curis'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addChildResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4115)"
}||=[]},
       $disResource->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4116)"
uri_ref
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addChildResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4117)"
;

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4118)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4120)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4122)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4124)"
}

#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addChildResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4127)"

#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addChildResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4125)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4126)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4128)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4130)"
}
}
sub dis_actual_data_type_resource ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4175)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4173)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4131)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4132)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4163)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4161)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4159)"

  if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4133)"
(UNIVERSAL::isa ($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4134)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--actualType'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4135)"
},
                      
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4136)"
'Message::Util::IF::DVURIValue'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4137)"
)) {
    $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4138)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--actualType'
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4139)"
}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4140)"
get_resource
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4141)"

            ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4142)"
database
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4143)"
);
  } elsif (UNIVERSAL::isa ($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4144)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Type'
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4145)"
},
                           
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4146)"
'Message::Util::IF::DVURIValue'
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4147)"
)) {
    $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4148)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Type'
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4149)"
}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4150)"
get_resource
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4151)"

            ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4152)"
database
#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4153)"
);
  } else {
    my $pr = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4154)"
dynamic_parent_resource
#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4155)"
;
    $r = $pr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4156)"
dis_actual_data_type_resource if 
#line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4157)"
$pr;
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4158)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4160)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4162)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4164)"
}

#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4167)"

#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4165)"
;
unless ($r) {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4166)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4168)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $self->source_element, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_DIS_TYPE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISResourceDefinition', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'dis_actual_data_type_resource', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $self->uri;

#line 19 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4171)"

#line 19 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4169)"
;
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4170)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4172)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4174)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4176)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4177)"
my ($self) = @_;
report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISResourceDefinition', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'dis_actual_data_type_resource';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4178)"
}}
sub multiple_properties_uri ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4207)"
my ($self) = @_;
my $r = '';

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=multiplePropertiesURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4205)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=multiplePropertiesURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4179)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4180)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4199)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=multiplePropertiesURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4197)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=multiplePropertiesURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4195)"

  if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=multiplePropertiesURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4181)"
($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4182)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--multipleProperties'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=multiplePropertiesURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4183)"
}) {
    $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4184)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--multipleProperties'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=multiplePropertiesURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4185)"
}
              ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4186)"
get_resource
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=multiplePropertiesURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4187)"

                    ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4188)"
database
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=multiplePropertiesURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4189)"
)
              ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4190)"
uri
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=multiplePropertiesURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4191)"
;
  } else {
    $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4192)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#OrderedList'
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=multiplePropertiesURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4193)"
;
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4194)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4196)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4198)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4200)"
}

#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=multiplePropertiesURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4203)"

#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=multiplePropertiesURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4201)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4202)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4204)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4206)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4208)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4209)"
my ($self) = @_;
report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISResourceDefinition', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'multiple_properties_uri';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4210)"
}}
sub get_feature ($$$) {
my ($self, $feature, $version) = @_;

{
#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [b] (Chunk #4215)"

#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [bc] (Chunk #4213)"

#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #4211)"
$feature = lc $feature;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4212)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4214)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4216)"
}

{
#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [b] (Chunk #4221)"

#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [bc] (Chunk #4219)"

#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #4217)"
$version = '' unless defined $version;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4218)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4220)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4222)"
}
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4227)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4225)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4223)"
$feature =~ s/^\+//;
CLASS: for my $class (grep {
  $Message::Util::DIS::ManakaiDISResourceDefinition::CompatClass{$_}
} keys %Message::Util::DIS::ManakaiDISResourceDefinition::CompatClass){
  if ($Message::DOM::ClassFeature{$class}->{$feature}->{$version}) {
    $r = bless {o => $self}, $class;
    last CLASS;
  }
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4224)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4226)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4228)"
}
$r}
sub get_child_resource_list ($) {
my ($self) = @_;
my $r = [];

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4249)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4229)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4230)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4243)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4241)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4239)"

  my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4231)"
$db = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4232)"
database
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4233)"
;
  $r = [map {
          $db->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4234)"
get_resource
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4235)"
 ($$_)
        } @{$self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4236)"
'curis'
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4237)"
}}];

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4238)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4240)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4242)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4244)"
}

#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4247)"

#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4245)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4246)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4248)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4250)"
}
$r}
sub uris ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4257)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=uris][@Type=Perl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4255)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=uris][@Type=Perl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4253)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=uris][@Type=Perl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4251)"
$r = [grep {$self->{aliasURI}->{$_}} keys %{$self->{aliasURI}}];
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4252)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4254)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4256)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4258)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4259)"
my ($self) = @_;
report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISResourceDefinition', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'uris';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4260)"
}}
sub owner_class_node_uri ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4293)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4291)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4267)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4261)"
(exists $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4262)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#ownerClass'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4263)"
}) {
  $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4264)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#ownerClass'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4265)"
};
} else {
  my $res = $self;
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4266)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4268)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4283)"
local $Error::Depth = $Error::Depth + 1;

{
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4281)"

#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4279)"

    RES: 
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4269)"
{
      if ($res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4270)"
is_type_uri
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4271)"

                     (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4272)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Class'
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4273)"
)) {
        $r = $res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4274)"
source_node_id
#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4275)"
;
      } else {
        $res = $res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4276)"
parent_resource
#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4277)"
;
        redo RES if $res;
      }
    }
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4278)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4280)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4282)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4284)"
}

#line 15 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4289)"

#line 15 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4285)"
;
  $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4286)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#ownerClass'
#line 16 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4287)"
} = $r;
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4288)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4290)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4292)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4294)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4295)"
my ($self) = @_;
report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISResourceDefinition', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'owner_class_node_uri';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4296)"
}}
use overload bool => sub () {1}, '<=>' => sub ($$) {
my ($self, $anotherResource) = @_;
my $r = 0;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain:unsigned-long::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4303)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain:unsigned-long::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4301)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain:unsigned-long::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4297)"
(UNIVERSAL::isa ($anotherResource,
                    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4298)"
'Message::Util::DIS::ManakaiDISResourceDefinition'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain:unsigned-long::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4299)"
)) {
  $r = $self->{seq} <=> $anotherResource->{seq};
} else {
  $r = $self->{uri} <=> $anotherResource;
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4300)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4302)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4304)"
}
$r}
, fallback => 1;
$Message::DOM::ClassFeature{q<Message::Util::DIS::ManakaiDISResourceDefinition>} = {'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#core', {'', '1', '1.0', '1'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#perl', {'', '1', '1.0', '1'}};
$Message::DOM::ClassPoint{q<Message::Util::DIS::ManakaiDISResourceDefinition>} = 7;
$Message::Util::DIS::ManakaiDISResourceDefinition::CompatClass{q<Message::Util::DIS::ManakaiDISResourceDefinition>} = 1;
package Message::Util::DIS::ManakaiDISResourceMV;
our $VERSION = 20050928.0929;
push our @ISA, 'Message::Util::IF::DISResourceMV', 'Message::Util::IFLatest::DISResourceMV';
sub mv_prefix ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4331)"
my ($self) = @_;
my $r = '';

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4329)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4305)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4306)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4323)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4321)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4319)"

  if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4307)"
(UNIVERSAL::isa ($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4308)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AppName'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4309)"
},
                      
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4310)"
'Message::Util::IF::DVQNameValue'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4311)"
)) {
    $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4312)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AppName'
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4313)"
}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4314)"
prefix
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4315)"
;
  }
  unless (defined $r) {
    my $nsuri = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4316)"
mv_namespace_uri
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4317)"
;
    if (defined $nsuri and $nsuri =~ /([A-Za-z]\w*)\W*$/) {
      $r = $1;
    } elsif (defined $nsuri) {
      $r = 'ns';
    }
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4318)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4320)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4322)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4324)"
}

#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4327)"

#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4325)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4326)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4328)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4330)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4332)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4333)"
my ($self) = @_;
report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISResourceMV', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'mv_prefix';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4334)"
}}
sub mv_owner_element_resource ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4367)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvOwnerElementResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4365)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvOwnerElementResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4335)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4336)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4359)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvOwnerElementResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4357)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvOwnerElementResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4355)"

  if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvOwnerElementResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4337)"
(exists $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4338)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvOwnerElementURI'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvOwnerElementResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4339)"
}) {
    $r = $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4340)"
get_resource
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvOwnerElementResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4341)"

                        ($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4342)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvOwnerElementURI'
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvOwnerElementResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4343)"
})
      if defined $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4344)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvOwnerElementURI'
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvOwnerElementResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4345)"
};
  } else {
    $r = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4346)"
parent_resource
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvOwnerElementResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4347)"
;
    undef $r unless $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4348)"
is_type_uri
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvOwnerElementResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4349)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4350)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Markup#AnyOwnerElement'
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvOwnerElementResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4351)"
);
    $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4352)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvOwnerElementURI'
#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvOwnerElementResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4353)"
} = $r->{uri} if $r;
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4354)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4356)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4358)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4360)"
}

#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvOwnerElementResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4363)"

#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvOwnerElementResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4361)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4362)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4364)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4366)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4368)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4369)"
my ($self) = @_;
report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISResourceMV', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'mv_owner_element_resource';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4370)"
}}
sub mv_namespace_uri ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4395)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4393)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4371)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4372)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4387)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4385)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4383)"

  if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4373)"
(UNIVERSAL::isa ($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4374)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AppName'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4375)"
},
                      
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4376)"
'Message::Util::IF::DVQNameValue'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4377)"
)) {
    $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4378)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AppName'
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4379)"
}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4380)"
namespace_uri
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4381)"
;
  } else {
    $r = $self->{namespaceURI};
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4382)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4384)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4386)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4388)"
}

#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4391)"

#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4389)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4390)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4392)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4394)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4396)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4397)"
my ($self) = @_;
report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISResourceMV', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'mv_namespace_uri';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4398)"
}}
sub mv_local_name ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4423)"
my ($self) = @_;
my $r = '';

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4421)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4399)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4400)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4415)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4413)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4411)"

  if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4401)"
(UNIVERSAL::isa ($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4402)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AppName'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4403)"
},
                      
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4404)"
'Message::Util::IF::DVQNameValue'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4405)"
)) {
    $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4406)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AppName'
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4407)"
}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4408)"
local_name
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4409)"
;
  } else {
    $r = $self->{localName};
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4410)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4412)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4414)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4416)"
}

#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4419)"

#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4417)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4418)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4420)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4422)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4424)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4425)"
my ($self) = @_;
report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISResourceMV', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'mv_local_name';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4426)"
}}
$Message::DOM::ClassFeature{q<Message::Util::DIS::ManakaiDISResourceMV>} = {'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#core', {'', '1', '1.0', '1'}};
$Message::DOM::ClassPoint{q<Message::Util::DIS::ManakaiDISResourceMV>} = 1;
package Message::Util::DIS::ManakaiDISPropertyAccessor;
our $VERSION = 20050928.0929;
push our @ISA, 'Message::Util::IF::DISResourceProp', 'Message::Util::IFLatest::DISResourceProp';
sub get_property_text ($$;$) {
my ($self, $propName, $default) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyText][@type=DISLang:Method]/Return[@Type=swcfg21:SWCFGString::swcfg21:ForLatest][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4439)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyText][@type=DISLang:Method]/Return[@Type=swcfg21:SWCFGString::swcfg21:ForLatest][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4437)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyText][@type=DISLang:Method]/Return[@Type=swcfg21:SWCFGString::swcfg21:ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4427)"
(defined $self->{$propName}) {
  $r = $self->{$propName}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4428)"
string_value
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyText][@type=DISLang:Method]/Return[@Type=swcfg21:SWCFGString::swcfg21:ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4429)"
;
  $r = $default unless defined $r;
} else {
  my $pr = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4430)"
database
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyText][@type=DISLang:Method]/Return[@Type=swcfg21:SWCFGString::swcfg21:ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4431)"

                ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4432)"
get_resource
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyText][@type=DISLang:Method]/Return[@Type=swcfg21:SWCFGString::swcfg21:ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4433)"
 ($propName);
  C: {
    for (map {$self->{$_}}
         grep {$pr->{aliasURI}->{$_} or $pr->{supOf}->{$_}}
         (keys %{$pr->{aliasURI}}, keys %{$pr->{supOf}||{}})) {
      if (defined $_) {
        $r = $_->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4434)"
string_value
#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyText][@type=DISLang:Method]/Return[@Type=swcfg21:SWCFGString::swcfg21:ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4435)"
;
        last C;
      }
    }
    $r = $default;
  } # C
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4436)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4438)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4440)"
}
$r}
sub add_property_resource_ulist ($$$) {
my ($self, $propName, $res) = @_;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyResourceUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4489)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyResourceUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4443)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyResourceUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4441)"
($self->{$propName}) {
  my $uriv;
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4442)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4444)"

{
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #4453)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #4451)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4445)"
$uriv = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4446)"
Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4447)"

                (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4448)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI'
#line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4449)"
, $res->uri);
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4450)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4452)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4454)"
}

#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyResourceUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4459)"

#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyResourceUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4455)"
;
  $self->{$propName}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4456)"
add_item
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyResourceUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4457)"
 ($uriv);
} else {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4458)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4460)"

{
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVUnorderedList][@QName=ManakaiDVUnorderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createUnorderedList][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #4467)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVUnorderedList][@QName=ManakaiDVUnorderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createUnorderedList][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #4465)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVUnorderedList][@QName=ManakaiDVUnorderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createUnorderedList][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4461)"
$self->{$propName} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4462)"
Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_unordered_list
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVUnorderedList][@QName=ManakaiDVUnorderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createUnorderedList][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4463)"

  ('http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI', base_type => 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI');
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4464)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4466)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4468)"
}

#line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyResourceUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4471)"

#line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyResourceUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4469)"
;
  my $uriv;
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4470)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4472)"

{
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #4481)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #4479)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4473)"
$uriv = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4474)"
Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4475)"

                (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4476)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI'
#line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4477)"
, $res->uri);
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4478)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4480)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4482)"
}

#line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyResourceUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4487)"

#line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyResourceUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4483)"
;
  $self->{$propName}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4484)"
add_item
#line 19 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyResourceUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4485)"
 ($uriv);
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4486)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4488)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4490)"
}
}
sub get_property_text_list ($$%) {
my ($self, $propName, %opt) = @_;
my $r = [];

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyTextList][@type=DISLang:Method]/Return[@Type=Perl|ARRAY||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4501)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyTextList][@type=DISLang:Method]/Return[@Type=Perl|ARRAY||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4499)"
my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyTextList][@type=DISLang:Method]/Return[@Type=Perl|ARRAY||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4491)"
$pr = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4492)"
database
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyTextList][@type=DISLang:Method]/Return[@Type=Perl|ARRAY||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4493)"

              ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4494)"
get_resource
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyTextList][@type=DISLang:Method]/Return[@Type=Perl|ARRAY||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4495)"
 ($propName);
$r = [map {$_->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4496)"
string_value
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyTextList][@type=DISLang:Method]/Return[@Type=Perl|ARRAY||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4497)"
}
      map {@$_}
      grep {$_}
      map {$self->{$_}}
      grep {$pr->{aliasURI}->{$_} or $pr->{supOf}->{$_}}
      (keys %{$pr->{aliasURI}}, keys %{$pr->{supOf}||{}})];
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4498)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4500)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4502)"
}
$r}
sub add_property_resource_list ($$$) {
my ($self, $propName, $res) = @_;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4551)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4505)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4503)"
($self->{$propName}) {
  my $uriv;
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4504)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4506)"

{
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #4515)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #4513)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4507)"
$uriv = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4508)"
Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4509)"

                (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4510)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI'
#line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4511)"
, $res->uri);
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4512)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4514)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4516)"
}

#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4521)"

#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4517)"
;
  $self->{$propName}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4518)"
add_item
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4519)"
 ($uriv);
} else {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4520)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4522)"

{
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVOrderedList][@QName=ManakaiDVOrderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createOrderedList][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #4529)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVOrderedList][@QName=ManakaiDVOrderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createOrderedList][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #4527)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVOrderedList][@QName=ManakaiDVOrderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createOrderedList][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4523)"
$self->{$propName} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4524)"
Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_ordered_list
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVOrderedList][@QName=ManakaiDVOrderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createOrderedList][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4525)"

  ('http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI', base_type => 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI');
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4526)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4528)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4530)"
}

#line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4533)"

#line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4531)"
;
  my $uriv;
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4532)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4534)"

{
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #4543)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #4541)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4535)"
$uriv = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4536)"
Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4537)"

                (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4538)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI'
#line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4539)"
, $res->uri);
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4540)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4542)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4544)"
}

#line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4549)"

#line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4545)"
;
  $self->{$propName}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4546)"
add_item
#line 19 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4547)"
 ($uriv);
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4548)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4550)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4552)"
}
}
sub get_property_boolean ($$$) {
my ($self, $propName, $default) = @_;
my $r = 0;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyBoolean][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4573)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyBoolean][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4571)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyBoolean][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4553)"
(ref $self->{$propName}) {
  $r = $self->{$propName}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4554)"
value
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyBoolean][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4555)"
 ? 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4556)"
1 : 
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyBoolean][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4557)"

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4558)"
0
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyBoolean][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4559)"
;
  $r = $default unless defined $r;
} else {
  my $pr = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4560)"
database
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyBoolean][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4561)"

                ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4562)"
get_resource
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyBoolean][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4563)"
 ($propName);
  C: {
    for (map {$self->{$_}}
         grep {$pr->{aliasURI}->{$_} or $pr->{supOf}->{$_}}
         (keys %{$pr->{aliasURI}}, keys %{$pr->{supOf}||{}})) {
      if (defined $_) {
        $r = $_->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4564)"
value
#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyBoolean][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4565)"
 ? 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4566)"
1 : 
#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyBoolean][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4567)"

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4568)"
0
#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyBoolean][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4569)"
;
        last C;
      }
    }
    $r = $default;
  } # C
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4570)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4572)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4574)"
}
$r}
sub get_property_value ($$) {
my ($self, $propName) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyValue][@type=DISLang:Method]/Return[@Type=dv|DVValue][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4583)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyValue][@type=DISLang:Method]/Return[@Type=dv|DVValue][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4581)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyValue][@type=DISLang:Method]/Return[@Type=dv|DVValue][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4575)"
($self->{$propName}) {
  $r = $self->{$propName}->[0];
} else {
  my $pr = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4576)"
database
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyValue][@type=DISLang:Method]/Return[@Type=dv|DVValue][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4577)"

                ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4578)"
get_resource
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyValue][@type=DISLang:Method]/Return[@Type=dv|DVValue][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4579)"
 ($propName);
  A: for (grep {$pr->{aliasURI}->{$_} or $pr->{supOf}->{$_}}
          (keys %{$pr->{aliasURI}}, keys %{$pr->{supOf}||{}})) {
    my $v = $self->{$_};
    if ($v) {
      $r = $v->[0];
      last A;
    }
  }
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4580)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4582)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4584)"
}
$r}
sub add_peoperty_uri_ulist ($$$) {
my ($self, $propName, $uri) = @_;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyURIUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4643)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyURIUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4585)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4586)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4637)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyURIUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4635)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyURIUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4589)"

  if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyURIUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4587)"
($self->{$propName}) {
    my $uriv;
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4588)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4590)"

{
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #4599)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #4597)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4591)"
$uriv = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4592)"
Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4593)"

                (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4594)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI'
#line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4595)"
, $uri);
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4596)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4598)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4600)"
}

#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyURIUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4605)"

#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyURIUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4601)"
;
    $self->{$propName}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4602)"
add_item
#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyURIUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4603)"
 ($uriv);
  } else {
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4604)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4606)"

{
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVUnorderedList][@QName=ManakaiDVUnorderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createUnorderedList][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #4613)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVUnorderedList][@QName=ManakaiDVUnorderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createUnorderedList][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #4611)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVUnorderedList][@QName=ManakaiDVUnorderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createUnorderedList][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4607)"
$self->{$propName} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4608)"
Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_unordered_list
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVUnorderedList][@QName=ManakaiDVUnorderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createUnorderedList][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4609)"

  ('http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI', base_type => 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI');
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4610)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4612)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4614)"
}

#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyURIUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4617)"

#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyURIUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4615)"
;
    my $uriv;
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4616)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4618)"

{
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #4627)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #4625)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4619)"
$uriv = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4620)"
Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4621)"

                (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4622)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI'
#line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4623)"
, $uri);
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4624)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4626)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4628)"
}

#line 19 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyURIUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4633)"

#line 19 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyURIUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4629)"
;
    $self->{$propName}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4630)"
add_item
#line 20 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyURIUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4631)"
 ($uriv);
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4632)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4634)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4636)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4638)"
}

#line 22 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyURIUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4641)"

#line 22 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyURIUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4639)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4640)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4642)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4644)"
}
}
sub get_property_resource_list ($$%) {
my ($self, $propName, %opt) = @_;
my $r = [];

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4755)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4647)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4645)"
$r = [];

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4646)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4648)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4671)"
local $Error::Depth = $Error::Depth + 1;

{
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4669)"

#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4667)"

  my 
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4649)"
$v = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4650)"
get_property_value_list
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4651)"
 ($propName);
  my $db = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4652)"
database
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4653)"
;
  for my $a (@$v) {
    if ($a->isa (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4654)"
'Message::Util::IF::DVURIValue'
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4655)"
)) {
      push @$r, $a->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4656)"
get_resource
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4657)"
 ($db);
    }
    if ($opt{isa_recursive}) {
      my $b = $a->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4658)"
get_property
#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4659)"

                       (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4660)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#stopISARecursive'
#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4661)"
);
      if ($b and $b->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4662)"
value
#line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4663)"
) {
        $opt{isa_recursive} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4664)"
0
#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4665)"
;
      }
    }
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4666)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4668)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4670)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4672)"
}

#line 17 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4675)"

#line 17 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4673)"
;

if ($opt{recursive}) {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4674)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4676)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4691)"
local $Error::Depth = $Error::Depth + 1;

{
#line 20 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4689)"

#line 20 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4687)"

#line 20 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4677)"

    $opt{___recursive_isa_done} ||= {$self->{uri} => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4678)"
1
#line 21 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4679)"
};
    my @p_res = @$r;
    for my $p_res (@p_res) {
      next if $opt{___recursive_isa_done}->{$p_res->{uri}};
      $opt{___recursive_isa_done}->{$p_res->{uri}} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4680)"
1
#line 25 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4681)"
;
      push @$r, @{$p_res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4682)"
get_property_resource_list
#line 26 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4683)"

                                  ($propName, recursive => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4684)"
1
#line 27 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4685)"
,
                                   recursive_isa => $opt{recursive_isa},
                 ___recursive_isa_done => $opt{___recursive_isa_done},
                 default_media_type => $opt{default_media_type})};
    }
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4686)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4688)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4690)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4692)"
}

#line 32 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4695)"

#line 32 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4693)"
;
}
if ($opt{recursive_isa}) {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4694)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4696)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4713)"
local $Error::Depth = $Error::Depth + 1;

{
#line 35 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4711)"

#line 35 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4709)"

#line 35 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4697)"

    $opt{___recursive_isa_done} ||= {$self->{uri} => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4698)"
1
#line 36 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4699)"
};
    my @p_res = @$r;
    for my $p_res (@p_res) {
      next if $opt{___recursive_isa_done}->{$p_res->{uri}};
      $opt{___recursive_isa_done}->{$p_res->{uri}} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4700)"
1
#line 40 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4701)"
;
      push @$r, @{$p_res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4702)"
get_property_resource_list
#line 41 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4703)"

                                  (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4704)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ISA'
#line 42 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4705)"
, 
                                   recursive => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4706)"
1
#line 43 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4707)"
,
                 ___recursive_isa_done => $opt{___recursive_isa_done},
                 default_media_type => $opt{default_media_type})};
    }
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4708)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4710)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4712)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4714)"
}

#line 47 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4717)"

#line 47 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4715)"
;
}
if ($opt{isa_recursive}) {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4716)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4718)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4749)"
local $Error::Depth = $Error::Depth + 1;

{
#line 50 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4747)"

#line 50 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4745)"

#line 50 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4719)"

    $opt{___recursive_isa_done} ||= {$self->{uri} => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4720)"
1
#line 51 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4721)"
};
    $opt{___isa_recursive_done} ||= {$self->{uri} => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4722)"
1
#line 52 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4723)"
};
    my @p_res = @{$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4724)"
get_property_resource_list
#line 53 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4725)"

                              (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4726)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ISA'
#line 54 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4727)"
, recursive_isa => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4728)"
0
#line 54 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4729)"
,
                               recursive => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4730)"
0
#line 55 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4731)"
,
                               default_media_type => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4732)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TFQNames'
#line 56 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4733)"
)};
    for my $p_res (@p_res) {
      next if $opt{___isa_recursive_done}->{$p_res->{uri}};
      $opt{___isa_recursive_done}->{$p_res->{uri}} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4734)"
1
#line 59 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4735)"
;
      push @$r, @{$p_res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4736)"
get_property_resource_list
#line 60 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4737)"

                                  ($propName, recursive_isa => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4738)"
0
#line 61 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4739)"
,
                                   recursive => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4740)"
0
#line 62 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4741)"
,
                               isa_recursive => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4742)"
1
#line 63 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4743)"
,
                               ___isa_recursive_done =>
                                             $opt{___isa_recursive_done},
                               default_media_type => $opt{default_media_type})};
    }
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4744)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4746)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4748)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4750)"
}

#line 68 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4753)"

#line 68 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4751)"
;
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4752)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4754)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4756)"
}
$r}
sub get_property_value_list ($$) {
my ($self, $propName) = @_;
my $r = [];

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyValueList][@type=DISLang:Method]/Return[@Type=Perl|ARRAY||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4765)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyValueList][@type=DISLang:Method]/Return[@Type=Perl|ARRAY||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4763)"
my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyValueList][@type=DISLang:Method]/Return[@Type=Perl|ARRAY||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4757)"
$pr = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4758)"
database
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyValueList][@type=DISLang:Method]/Return[@Type=Perl|ARRAY||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4759)"

              ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4760)"
get_resource
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyValueList][@type=DISLang:Method]/Return[@Type=Perl|ARRAY||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4761)"
 ($propName);
$r = [map {@$_}
      grep {defined $_}
      map {$self->{$_}}
      grep {$pr->{aliasURI}->{$_} or $pr->{supOf}->{$_}}
      (keys %{$pr->{aliasURI}}, keys %{$pr->{supOf}||{}})];
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4762)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4764)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4766)"
}
$r}
sub get_property_resource ($$%) {
my ($self, $propName, %opt) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4789)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4767)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4768)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4783)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4781)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4779)"

  my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4769)"
$v = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4770)"
get_property_value
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4771)"

                     ($propName);
  if (UNIVERSAL::isa ($v, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4772)"
'Message::Util::IF::DVURIValue'
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4773)"
)) {
    $r = $v->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4774)"
get_resource
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4775)"

                  ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4776)"
database
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4777)"
);
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4778)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4780)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4782)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4784)"
}

#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4787)"

#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4785)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4786)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4788)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4790)"
}
$r}
$Message::DOM::ClassFeature{q<Message::Util::DIS::ManakaiDISPropertyAccessor>} = {'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#core', {'', '1', '1.0', '1'}};
$Message::DOM::ClassPoint{q<Message::Util::DIS::ManakaiDISPropertyAccessor>} = 1;
package Message::Util::IFLatest::DISException;
our $VERSION = 20050928.0929;
push our @ISA, 'Message::Util::Error';
package Message::Util::DIS::ManakaiDISException;
our $VERSION = 20050928.0929;
push our @ISA, 'Message::Util::Error::DOMException::ManakaiDOMException', 'Message::Util::IF::DISException', 'Message::Util::IF::ManakaiDOMExceptionIF', 'Message::Util::IFLatest::DISException';
sub HIERARCHY_REQUEST_ERR () {
3}
sub ___error_def () {

#line 1 "lib/Message/Util/DIS.dis [u] (Chunk #4791)"
{'HIERARCHY_REQUEST_ERR', {'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#code', '3', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype', {'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#MERGE_ITSELF_ERR', {'description', 'An attempt is made to merge the resource <%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri} );> to itself'}}, 'description', 'An attempt is made to break the hierarchy.'}, 'INVALID_STATE_ERR', {'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#code', '11', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype', {'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_ASSOCIATED_DB_ERR', {'description', 'No <QUOTE::dis> database has been associated with this document.'}}, 'description', 'An attempt is made to use an object that is not (or no longer) usable.'}, 'NOT_SUPPORTED_ERR', {'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#code', '9', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype', {'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#UNSUPPORTED_MEDIA_TYPE_ERR', {'description', '%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceCode}, prefix => {"}, suffix => {": } );%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType}, prefix => { (Element type: <}, suffix => {>) } );Media type <%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri});> is not supported'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_PERL_CODE_IMPL_ERR', {'description', 'There is no implementation that supports the <Feature::Util:PerlCode> feature, version <FeatureVer::1.0>.'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#UNSUPPORTED_ELEMENT_TYPE_ERR', {'description', 'Element type "%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType});" is not supported'}}, 'description', 'An attempt is made to do something the implementation does not support.'}, 'INVALID_SOURCE_ERR', {'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#code', '200', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype', {'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_ATTR_GET_ERR', {'description', 'A <Q::DISLang:Attribute> resource does not have any <Q::DISLang:AttributeGet> child.'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#PERL_HASH_KEY_ALREADY_DEFINED_ERR', {'description', '<%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri});>: Hash key "%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#hashKeyName});" in <%p (mame => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#hashKeyScope});> is already defined for <%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#anotherURI});>'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#PERL_UNUSED_SUBROUTINE_ERR', {'description', 'A resource defines a Perl subroutine but it is not used.'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_DIS_TYPE_ERR', {'description', 'Resource "%t (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri});" has no "dis:Type" attribute'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#PERL_PREPROCESS_NO_EXCEPTION_TYPE_ERR', {'description', 'An exception type specification is required.'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_RDF_TYPE_ERR', {'description', 'Resource%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri}, prefix => { "}, suffix => {"}); does not have "rdf:type" attribute'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#RESERVED_PERL_METHOD_NAME_ERR', {'description', 'A reserved Perl method name is used.'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_FOR_QNAME_ERR', {'description', 'A <Q::dis:ForDef> element must have <Q::dis:QName> attribute.'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_PERL_PACKAGE_NAME_ERR', {'description', '%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri}, prefix => {<}, suffix => {>: });Perl package name is not defined'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#PERL_PREPROCESS_BLOCK_NOT_ALLOWED_ERR', {'description', 'A preprocessing instruction block occurred with element type which does not allow it.'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#UNABLE_TO_GET_MODULE_ERR', {'description', 'Unable to get the module source of <%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri});>'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#FOR_NOT_DEFINED_ERR', {'description', '<QUOTE::For> <%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri});> is not defined'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_ATTR_SET_ERR', {'description', 'An attribute setter is referred but the attribute does not define any setter.'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#PERL_OPERATOR_ALREADY_OVERLOADED_ERR', {'description', 'A resource is defined to overload a Perl operator which is already overloaded by another resource.'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#PERL_PREPROCESS_NO_CODE_NAME_ERR', {'description', 'A code name specification is required.'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_END_TAG_ERR', {'description', 'End tag for element "%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType});" is required%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceCode}, prefix => { (}, suffix => {)});'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_LOCAL_NAME_ERR', {'description', 'The resource does not have a local name.'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#ELEMENT_NOT_ALLOWED_ERR', {'description', 'Module <%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri});>: Element of type <%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType});> is not allowed here'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#PERL_PREPROCESS_NO_ASSERT_TYPE_ERR', {'description', 'An assertion type specification is required.'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#DISPERL_NO_VALUE_ALLOWED_ERR', {'description', 'An element node have a value but the definition of that element type does not allow it.'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_MODULE_QNAME_ERR', {'description', 'The <Q::dis:Module> element must have its <Q::dis:QName> attribute.'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#RESOURCE_ALREADY_DEFINED_ERR', {'description', '%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#moduleURI}, prefix => {Module <}, suffix => {>: }) ;Resource <%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri});> is already defined'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#PERL_PREPROCESS_NO_FOR_ERR', {'description', 'A <QUOTE::for> specification is required.'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_REFLECT_SET_DEFINED_ERR', {'description', 'An attribute is defined to reflect an element attribute but no reflecting attribute setter template is defined.'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#PERL_SUBROUTINE_ALREADY_DEFINED_ERR', {'description', 'A resource defines a Perl subroutine whose name is same as another subroutine.'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#RESOURCE_NOT_DEFINED_ERR', {'description', '%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#moduleURI}, prefix => {Module <}, suffix => {>: }) ;%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNodePath}, suffix => {: }) ;%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceCode}, prefix => {"}, suffix => {": }) ;%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#parentURI}, prefix => {(In <}, suffix => {>) }) ;Resource%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri}, prefix => { <}, suffix => {>});%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#localName}, prefix => { "}, suffix => {"}); is not defined or wrong type%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#expectedType}, prefix => { (<}, suffix => {> is expected)});'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#PERL_PREPROCESS_NO_ELEMENT_TYPE_ERR', {'description', '%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceCode}, prefix => {"}, suffix => {": });Element type name is not specified'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_METHOD_RETURN_ERR', {'description', 'Method "%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#localName});" does not have "Return" child'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#PERL_PREPROCESS_NO_METHOD_ERR', {'description', 'A preprocessing instruction which is only allowed in method definitions is used in a code which is not a method.'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#PERL_CODE_NOT_DEFINED_ERR', {'description', 'Resource%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri}, prefix => { "}, suffix => {"}); has no Perl code definition'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#INTERFACE_CLASS_METHOD_ERR', {'description', 'An attempt is made to call a static (class) method from an interface.'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_REFLECT_GET_DEFINED_ERR', {'description', 'An attribute is defined to reflect an element attribute but no reflecting attribute getter template is defined.'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_SOURCE_NODE_ERR', {'description', 'A resource does not have associated node in the source tree.'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NON_NAMED_PARAMETER_AFTER_NAMED_ERR', {'description', 'A non-named method parameter following any named method parameter is occurred.'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_REQUIRED_ATTR_ERR', {'description', 'Attribute <%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType});> must be specified'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#UNSUPPORTED_ROLE_ERR', {'description', 'Role <%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri});> is not supported'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#FOR_ALREADY_DEFINED_ERR', {'description', '<QUOTE::For> <%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri});> is already defined'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#BROKEN_PARAM_SPEC_ERR', {'description', '%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceCode}, prefix => {"}, suffix => {": });Broken parameter specification'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_CONST_VALUE_ERR', {'description', 'The source element node for a constant value resource does not have <Q::dis:Value> attribute.'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_LICENSE_ATTR_ERR', {'description', 'The <Q::dis:Module> element does not have the <Q::dis:License> attribute.'}}, 'description', 'The source input is well-formed but invalid.'}}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4792)"
}
sub INVALID_STATE_ERR () {
11}
sub NOT_SUPPORTED_ERR () {
9}
sub INVALID_SOURCE_ERR () {
200}
$Message::DOM::ClassFeature{q<Message::Util::DIS::ManakaiDISException>} = {'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#core', {'', '1', '1.0', '1'}};
$Message::DOM::ClassPoint{q<Message::Util::DIS::ManakaiDISException>} = 1;
for ($Message::Util::IF::DISDocumentFragment::, $Message::Util::IF::DISDatabase::, $Message::Util::IFLatest::DISElement::, $Message::Util::IFLatest::DISParser::, $Message::Util::IF::DISAnyResourcePerl::, $Message::Util::IF::DISElement::, $Message::Util::IFLatest::DISModuleResolver::, $Message::Util::IFLatest::DISComment::, $Message::Util::IF::ManakaiDOMExceptionIF::, $Message::Util::IF::DISResourceMV::, $Message::Util::IF::DISAnyResource::, $Message::Util::IFLatest::DISNode::, $Message::Util::IFLatest::DISFor::, $Message::Util::IFLatest::DISDocument::, $Message::Util::IFLatest::DISModule::, $Message::Util::IFLatest::DISResourceProp::, $Message::Util::IF::DISElementList::, $Message::Util::IF::DISException::, $Message::Util::IF::DISDocument::, $Message::Util::IF::DISModuleResolver::, $Message::Util::IF::DISModuleElement::, $Message::Util::IFLatest::DISResource::, $Message::Util::IFLatest::DISDocumentFragment::, $Message::Util::IFLatest::DISAnyResource::, $Message::Util::IF::DISResource::, $Message::Util::IF::NSResolverDIS::, $Message::Util::IFLatest::DISResourceMV::, $Message::Util::IF::DISImplementation::, $Message::Util::IFLatest::DISModuleElement::, $Message::Util::IF::DISModulePerl::, $Message::Util::IF::DISFor::, $Message::Util::IF::DISComment::, $Message::Util::IF::DISNode::, $Message::Markup::IFLatest::SWCFGParser::, $Message::Util::IFLatest::DISImplementation::, $Message::Util::IFLatest::DISDatabase::, $Message::Util::IF::DISParser::, $Message::Util::IF::DISResourceProp::, $Message::Util::IF::DISResourcePerlModule::, $Message::Util::IFLatest::DISElementList::, $Message::Util::IFLatest::NSResolverDIS::, $Message::Util::IF::DISModule::, $Message::DOM::IFLatest::GetFeature::){}
## License: <http://suika.fam.cx/~wakaba/archive/2004/8/18/license#Perl+MPL>
1;