#!/usr/bin/perl 
## This file is automatically generated
## 	at 2005-09-19T15:49:31+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::Util::ManakaiNode;
package Message::Util::DIS;
our $VERSION = 20050919.1549;
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 = 20050919.1549;
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][@type=dis|MultipleResource]/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][@type=dis|MultipleResource]/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][@type=dis|MultipleResource]/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][@type=dis|MultipleResource]/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][@type=dis|MultipleResource]/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][@type=dis|MultipleResource]/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][@type=dis|MultipleResource]/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][@type=dis|MultipleResource]/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][@type=dis|MultipleResource]/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][@type=dis|MultipleResource]/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][@type=dis|MultipleResource]/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][@type=dis|MultipleResource]/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][@type=dis|MultipleResource]/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][@type=dis|MultipleResource]/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][@type=dis|MultipleResource]/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][@type=dis|MultipleResource]/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][@type=dis|MultipleResource]/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][@type=dis|MultipleResource]/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][@type=dis|MultipleResource]/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][@type=dis|MultipleResource]/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][@type=dis|MultipleResource]/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][@type=dis|MultipleResource]/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][@type=dis|MultipleResource]/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][@type=dis|MultipleResource]/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][@type=dis|MultipleResource]/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][@type=dis|MultipleResource]/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][@type=dis|MultipleResource]/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][@type=dis|MultipleResource]/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][@type=dis|MultipleResource]/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][@type=dis|MultipleResource]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [b] (Chunk #67)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@type=dis|MultipleResource]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [bc] (Chunk #65)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@type=dis|MultipleResource]/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][@type=dis|MultipleResource]/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<data:,200411tf#xmlns(t=data:,200411tf%23)>.
                        qq<t:tf($__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][@type=dis|MultipleResource]/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][@type=dis|MultipleResource]/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;
package Message::Util::DIS::ManakaiDISParser;
our $VERSION = 20050919.1549;
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][@type=dis|MultipleResource]/ResourceDef[@type=DISLang|InputProcessor]/PerlDef [b] (Chunk #81)"

#line 1 "/document (lib/Message/DOM/DOMLS.dis)/IFCls3Def[@QName=LSInput][@type=dis|MultipleResource]/ResourceDef[@type=DISLang|InputProcessor]/PerlDef [bc] (Chunk #79)"
if 
#line 1 "/document (lib/Message/DOM/DOMLS.dis)/IFCls3Def[@QName=LSInput][@type=dis|MultipleResource]/ResourceDef[@type=DISLang|InputProcessor]/PerlDef [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][@type=dis|MultipleResource]/ResourceDef[@type=DISLang|InputProcessor]/PerlDef [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][@type=dis|MultipleResource]/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][@type=dis|MultipleResource]/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][@type=dis|MultipleResource]/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][@type=dis|MultipleResource]/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][@type=dis|MultipleResource]/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][@type=dis|MultipleResource]/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][@type=dis|MultipleResource]/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][@type=dis|MultipleResource]/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][@type=dis|MultipleResource]/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][@type=dis|MultipleResource]/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}
$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 = 20050919.1549;
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 #121)"
my ($self) = @_;
my $r;

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

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

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

        ($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #108)"
'node'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@type=dis|MultipleResource]/Attr[@Name=ownerDISDocument][@type=DISLang:Attribute]/Get[@Type=DISDocument][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #109)"
}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #110)"
'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#ownerDocument'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@type=dis|MultipleResource]/Attr[@Name=ownerDISDocument][@type=DISLang:Attribute]/Get[@Type=DISDocument][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #111)"
})
  if $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #112)"
'node'
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@type=dis|MultipleResource]/Attr[@Name=ownerDISDocument][@type=DISLang:Attribute]/Get[@Type=DISDocument][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #113)"
}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #114)"
'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#ownerDocument'
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@type=dis|MultipleResource]/Attr[@Name=ownerDISDocument][@type=DISLang:Attribute]/Get[@Type=DISDocument][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #115)"
};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #116)"

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

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #122)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #123)"
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 #124)"
}}
sub _get_node_reference ($$) {
my ($self, $object) = @_;
my $r;

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

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@type=dis|MultipleResource]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #143)"
my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@type=dis|MultipleResource]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #125)"
$class;
if ($object->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #126)"
'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#nodeType'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@type=dis|MultipleResource]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #127)"
} eq '#element') {
  $class = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #128)"
'Message::Util::DIS::ManakaiDISElement'
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@type=dis|MultipleResource]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #129)"
;
} elsif ($object->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #130)"
'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#nodeType'
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@type=dis|MultipleResource]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #131)"
} eq '#comment') {
  $class = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #132)"
'Message::Util::DIS::ManakaiDISComment'
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@type=dis|MultipleResource]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #133)"
;
} elsif ($object->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #134)"
'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#nodeType'
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@type=dis|MultipleResource]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #135)"
} eq '#document') {
  $class = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #136)"
'Message::Util::DIS::ManakaiDISDocument'
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@type=dis|MultipleResource]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #137)"
;
} elsif ($object->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #138)"
'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#nodeType'
#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@type=dis|MultipleResource]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #139)"
} eq '#fragment') {
  $class = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #140)"
'Message::Util::DIS::ManakaiDISDocumentFragment'
#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@type=dis|MultipleResource]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #141)"
;
} else {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #142)"

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

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

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

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

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

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

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

#line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@type=dis:MultipleResource]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #149)"
$object->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #150)"
'rc'
#line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@type=dis:MultipleResource]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #151)"
}++;
$r = bless {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #152)"
'node'
#line 3 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@type=dis:MultipleResource]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #153)"
 => $object,
}, $class;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #154)"

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

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

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

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

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

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

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

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@type=dis|MultipleResource]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #197)"
my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@type=dis|MultipleResource]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #165)"
$od = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #166)"
owner_document
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@type=dis|MultipleResource]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #167)"
 || $self;
my $binds = $od->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #168)"
'node'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@type=dis|MultipleResource]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #169)"
}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #170)"
'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#nsBinding'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@type=dis|MultipleResource]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #171)"
};
if (exists $binds->{$prefix}) {
  $r = $binds->{$prefix};
} else {
  ## From module list
  FIND: {
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #172)"

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

      my 
#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@type=dis|MultipleResource]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #175)"
$db = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #176)"
owner_dis_document
#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@type=dis|MultipleResource]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #177)"

                    ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #178)"
dis_database
#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@type=dis|MultipleResource]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #179)"
;
      for my $mod_uri (keys %{$db->{modDef}}) {
        my $mod = $db->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #180)"
get_module
#line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@type=dis|MultipleResource]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #181)"
 ($mod_uri);
        if ($mod->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #182)"
local_name
              eq 
#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@type=dis|MultipleResource]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #183)"
$prefix) {
          $r = $mod->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #184)"
get_property_text
#line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@type=dis|MultipleResource]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #185)"

                                           (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #186)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Namespace'
#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@type=dis|MultipleResource]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #187)"
, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #188)"
undef
#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@type=dis|MultipleResource]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #189)"
);
          last FIND;
        }            
      }
    } catch 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #190)"
Message::Util::IFLatest::DISException with 
#line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@type=dis|MultipleResource]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #191)"
{
      my $err = shift;
      $err->throw
        unless $err->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #192)"
'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype'
#line 21 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@type=dis|MultipleResource]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #193)"
} eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #194)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_ASSOCIATED_DB_ERR'
#line 21 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@type=dis|MultipleResource]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #195)"
;
    };
    if ($opt{make_new_binding}) {
      $r = $binds->{$prefix} = $prefix;
    } elsif ($opt{raise_prefix_exception}) {
      
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #196)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #198)"
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 33 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@type=dis|MultipleResource]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #203)"

#line 33 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@type=dis|MultipleResource]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #199)"
;
    } else {
      $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #200)"
undef
#line 35 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@type=dis|MultipleResource]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #201)"
;
    }
  } # FIND
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #202)"

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

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

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

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

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@type=dis|MultipleResource]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=swcfg21|SWCFGString||swcfg21|ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #207)"
$r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #208)"
undef
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@type=dis|MultipleResource]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=swcfg21|SWCFGString||swcfg21|ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #209)"
;
my $od = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #210)"
owner_document
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@type=dis|MultipleResource]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=swcfg21|SWCFGString||swcfg21|ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #211)"
 || $self;
my $binds = $od->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #212)"
'node'
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@type=dis|MultipleResource]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=swcfg21|SWCFGString||swcfg21|ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #213)"
}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #214)"
'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#nsBinding'
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@type=dis|MultipleResource]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=swcfg21|SWCFGString||swcfg21|ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #215)"
};
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 #216)"

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

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

                    ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #222)"
dis_database
#line 16 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@type=dis|MultipleResource]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=swcfg21|SWCFGString||swcfg21|ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #223)"
;
      for my $mod_uri (keys %{$db->{modDef}}) {
        my $mod = $db->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #224)"
get_module
#line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@type=dis|MultipleResource]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=swcfg21|SWCFGString||swcfg21|ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #225)"
 ($mod_uri);
        my $mod_ln = $mod->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #226)"
local_name
#line 19 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@type=dis|MultipleResource]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=swcfg21|SWCFGString||swcfg21|ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #227)"
;
        next if exists $binds->{$mod_ln};
        my $ns_uri = $mod->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #228)"
get_property_text
#line 21 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@type=dis|MultipleResource]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=swcfg21|SWCFGString||swcfg21|ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #229)"

                                         (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #230)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Namespace'
#line 22 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@type=dis|MultipleResource]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=swcfg21|SWCFGString||swcfg21|ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #231)"
, '');
        if ($ns_uri eq $namespaceURI) {
          $r = $mod_ln;
          last FIND;
        }
      }
    } catch 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #232)"
Message::Util::IFLatest::DISException with 
#line 28 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@type=dis|MultipleResource]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=swcfg21|SWCFGString||swcfg21|ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #233)"
{
      my $err = shift;
      $err->throw
        unless $err->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #234)"
'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype'
#line 31 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@type=dis|MultipleResource]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=swcfg21|SWCFGString||swcfg21|ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #235)"
} eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #236)"
'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][@type=dis|MultipleResource]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=swcfg21|SWCFGString||swcfg21|ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #237)"
;
    };

    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 #238)"
undef
#line 71 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@type=dis|MultipleResource]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=swcfg21|SWCFGString||swcfg21|ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #239)"
;
        last FIND;
      }
      $i++;
      redo;
    }
  }
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #240)"

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

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #244)"
}
$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 = 20050919.1549;
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][@type=dis|MultipleResource]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #313)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@type=dis|MultipleResource]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #247)"
my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@type=dis|MultipleResource]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #245)"
($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 #246)"

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

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

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

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

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

    $typeURI = $typeq eq ''
               ? defined $defaultTypeURI ? $defaultTypeURI
                                         : 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #250)"
'http://suika.fam.cx/~wakaba/archive/2004/dom/main#any'
               : 
#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@type=dis|MultipleResource]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #251)"
$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #252)"
qname_to_uri
#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@type=dis|MultipleResource]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #253)"
 ($typeq, %opt);
    if (length $forq) {
      $forURI = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #254)"
qname_to_uri
#line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@type=dis|MultipleResource]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #255)"
 ($forq, %opt);
    } else {
      $forURI = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #256)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all'
#line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@type=dis|MultipleResource]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #257)"
;
    }
  
#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)"
}

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

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

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

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

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

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

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

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

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

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

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

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

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

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

#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 #295)"
local $Error::Depth = $Error::Depth + 1;

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

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

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

                                         ($forpq, %opt);
  }

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

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

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

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

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

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

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

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

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

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@type=dis|MultipleResource]/ResourceDef[@QName=tfpurisToURI][@type=dis2pm:BlockCode]/PerlDef [bc] (Chunk #305)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@type=dis|MultipleResource]/ResourceDef[@QName=tfpurisToURI][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #301)"
($forURI eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #302)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' and 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@type=dis|MultipleResource]/ResourceDef[@QName=tfpurisToURI][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #303)"
@{$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<data:,200411tf#xmlns(t=data:,200411tf%23)>.
                       qq<t:tfp($__turi,$__furi,>.join (',', @__fp).q<)>;
} 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<data:,200411tf#xmlns(t=data:,200411tf%23)>.
                        qq<t:tf($__turi,$__furi)>;
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #304)"

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  if 
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@type=dis|MultipleResource]/Method[@Name=qnameToPair][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #319)"
(defined $lname) {
    $r = [$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #320)"
prefix_to_uri
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@type=dis|MultipleResource]/Method[@Name=qnameToPair][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #321)"
 ($prefix), $lname];
  } else {  ## In default namespace
    $r = [$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #322)"
prefix_to_uri
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@type=dis|MultipleResource]/Method[@Name=qnameToPair][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #323)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #324)"
undef
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@type=dis|MultipleResource]/Method[@Name=qnameToPair][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #325)"
), $prefix];
  }

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

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

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

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

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

#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@type=dis|MultipleResource]/Method[@Name=qnameToPair][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #333)"
;
#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 #338)"
}
$r}
sub qname_to_uri ($$%) {
my ($self, $qname, %opt) = @_;
my $r;

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

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

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

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

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

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

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

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

  if 
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@type=dis|MultipleResource]/Method[@Name=qnameToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #343)"
(defined $lname) {
    $r = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #344)"
prefix_to_uri
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@type=dis|MultipleResource]/Method[@Name=qnameToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #345)"
 ($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 #346)"
prefix_to_uri
#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@type=dis|MultipleResource]/Method[@Name=qnameToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #347)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #348)"
undef
#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@type=dis|MultipleResource]/Method[@Name=qnameToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #349)"
) . $prefix;
    }
  }

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

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

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

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

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

#line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@type=dis|MultipleResource]/Method[@Name=qnameToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #357)"
;
#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 #362)"
}
$r}
sub tfqnames_to_uri ($$;$$%) {
my ($self, $tfqnames, $defaultTypeURI, $defaultForURI, %opt) = @_;
my $r;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@type=dis|MultipleResource]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [bc] (Chunk #409)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@type=dis|MultipleResource]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #405)"
($forURI eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #406)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@type=dis|MultipleResource]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #407)"
) {
  $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<data:,200411tf#xmlns(t=data:,200411tf%23)>.
                        qq<t:tf($__turi,$__furi)>;
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #408)"

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

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

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

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

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

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

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

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

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

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

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

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

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

    $r = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #424)"
lookup_namespace_uri
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@type=dis|MultipleResource]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #425)"
 ($prefix);
  
#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 1 "lib/Message/Util/DIS.dis [/b] (Chunk #432)"
}

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

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #436)"
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][@type=dis|MultipleResource]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #447)"

#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@type=dis|MultipleResource]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #437)"
;
  }
} elsif (defined $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #438)"
'node'
#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@type=dis|MultipleResource]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #439)"
}
                      ->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #440)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#defaultNamespaceURI'
#line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@type=dis|MultipleResource]/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)"
'node'
#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@type=dis|MultipleResource]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #443)"
}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #444)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#defaultNamespaceURI'
#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@type=dis|MultipleResource]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #445)"
};
} else {  ## Default namespace
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #446)"

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

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

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

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

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

    $r = ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #450)"
owner_dis_document
#line 17 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@type=dis|MultipleResource]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #451)"
 || $self)
               ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #452)"
module_element
#line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@type=dis|MultipleResource]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #453)"

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

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

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

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

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

#line 20 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@type=dis|MultipleResource]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #463)"
;
}
#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 #468)"
}
$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 = 20050919.1549;
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][@type=dis|MultipleResource]/Method[@Name=disGetAttributeList][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #481)"

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

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=disGetAttributeList][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #469)"
$r = bless [], 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #470)"
'Message::Util::DIS::ManakaiDISElementList'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=disGetAttributeList][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #471)"
;
for my $c (@{$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #472)"
dis_child_elements
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=disGetAttributeList][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #473)"

                          (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 #474)"
expanded_uri eq 
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=disGetAttributeList][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #475)"
$attrName and
      $c->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #476)"
media_type_match
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=disGetAttributeList][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #477)"

                          ($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 #478)"

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

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

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

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

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

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

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

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

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

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

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

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

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

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

#line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@type=dis:MultipleResource]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #495)"
$cn->{'node'}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #496)"
'rc'
#line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@type=dis:MultipleResource]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #497)"
}++;
$dn = bless {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #498)"
'node'
#line 3 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@type=dis:MultipleResource]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #499)"
 => $cn->{'node'},
}, 'Message::Util::DIS::ManakaiDISElement';
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #500)"

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #542)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #543)"
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 #544)"
}}
sub is_property_element ($%) {
my ($self, %opt) = @_;
my $r = 0;

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

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

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

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

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

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

  my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=isPropertyElement][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #547)"
$xn = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #548)"
expanded_uri
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=isPropertyElement][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #549)"
;
  if ($xn eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #550)"
'http://www.w3.org/1999/02/22-rdf-syntax-ns#type'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=isPropertyElement][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #551)"
) {
    $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #552)"
1
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=isPropertyElement][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #553)"
;
  } else {
    my $rdef = ($opt{database_arg} or
                $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #554)"
owner_dis_document
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=isPropertyElement][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #555)"

                     ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #556)"
dis_database
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=isPropertyElement][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #557)"
)
                     ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #558)"
get_resource
#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=isPropertyElement][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #559)"
 ($xn);
    $r = $rdef->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #560)"
is_type_uri
#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=isPropertyElement][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #561)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #562)"
'http://www.w3.org/1999/02/22-rdf-syntax-ns#Property'
#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=isPropertyElement][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #563)"
);
  }

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

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

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

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

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

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

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

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

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

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

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=elementTypeMatch][@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][@type=dis|MultipleResource]/Method[@Name=elementTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #591)"

  my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=elementTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #579)"
$et = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #580)"
expanded_uri
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=elementTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #581)"
;
  my $rdef = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #582)"
owner_dis_document
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=elementTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #583)"

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

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

#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)"
}

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

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

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

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

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

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

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

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

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

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

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

  my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #605)"
$ods = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #606)"
'node'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #607)"
}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #608)"
'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#ownerDocument'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #609)"
};
  $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #610)"
'node'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #611)"
}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #612)"
'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#nsBinding'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #613)"
}
    = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #614)"
get_namespace_binding_list
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #615)"
 ($databaseArg);
  $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #616)"
'node'
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #617)"
}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #618)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#defaultNamespaceURI'
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #619)"
}
    = ${$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #620)"
get_default_namespace_uri_ref
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #621)"
};
  my @nodes = ($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #622)"
'node'
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #623)"
});
  while (defined (my $node = shift @nodes)) {
    CORE::delete $node->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #624)"
'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#ownerDocument'
#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #625)"
};
    push @nodes, grep {$_} @{$node->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #626)"
'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#childNodes'
#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #627)"
}},
                           $node->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #628)"
'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#shadowContent'
#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #629)"
},
                           $node->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #630)"
'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#shadowSibling'
#line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/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)"
'node'
#line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #633)"
}
       ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #634)"
_orphanate
#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #635)"
;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

                         ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #694)"
get_resource
#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #695)"
 ($ct);
    $res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #696)"
is_referred
#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #697)"
 ($ctn or $self);
    unless ($res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #698)"
is_subset_of_uri
#line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #699)"
 ($mediaType)) {
      $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #700)"
0
#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #701)"
;
    } else {
      $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #702)"
1
#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/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)"

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

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

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

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

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

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

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

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

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

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

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

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

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

  my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Attr[@Name=qnameValueURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #721)"
$v = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #722)"
value
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Attr[@Name=qnameValueURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #723)"
;
  if (defined $v and not ref $v eq 'ARRAY') {
    $r = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #724)"
qname_to_uri
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Attr[@Name=qnameValueURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #725)"
 ($v, node => $self);
  } else {
    $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #726)"
undef
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Attr[@Name=qnameValueURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #727)"
;
  }

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

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

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

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

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

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

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

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #742)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #743)"
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 #744)"
}}
sub preserve_node_path ($) {
my ($self) = @_;

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

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

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

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

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

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

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

  $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #748)"
flag
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=preserveNodePath][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #749)"
 (nodePath => $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #750)"
node_path
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=preserveNodePath][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #751)"

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Attr[@Name=qnameValueNamespaceURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #767)"
$v = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #768)"
value
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Attr[@Name=qnameValueNamespaceURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #769)"
;
  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 #770)"
prefix_to_uri
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Attr[@Name=qnameValueNamespaceURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #771)"

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

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

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

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

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

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

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

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

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #790)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #791)"
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 #792)"
}}
sub for_match ($$;$%) {
my ($self, $forArg, $forpArg, %opt) = @_;
my $r = 0;

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

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

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

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

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

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

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

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

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

                        ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #802)"
dis_database
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #803)"
)
                        ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #804)"
get_for
#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #805)"
 ($forArg);
    my $forp_res = [map {
                          $opt{database_arg}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #806)"
get_for
#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #807)"
 ($_)
                        } @{$forpArg}];

    my @ce = @{$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #808)"
dis_all_child_elements
#line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #809)"
};
    for my $ce (@ce) {
      my $et = $ce->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #810)"
expanded_uri
#line 15 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #811)"
;
      if ($et eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #812)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ForCheck'
#line 16 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #813)"
) {
        my $fors = [split /\s+/, $ce->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #814)"
value
#line 17 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #815)"
];
        FCs: for my $f (@$fors) {
          if ($f =~ /^!=(.+)$/) {        ## -- NOT EQUAL TO
            my $uri = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #816)"
qname_to_uri
#line 20 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #817)"
 ($1);
            my $for = $opt{database_arg}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #818)"
get_for
#line 21 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #819)"
 ($uri);
            $for->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #820)"
is_referred
#line 22 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #821)"
 ($ce);
            for my $arg_res ($for_res, @{$forp_res}) {
              if ($arg_res eq $for) {
                $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #822)"
0
#line 25 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #823)"
;
                last FORMATCH;
              }
            }
          } elsif ($f =~ /^!(.+)$/) {    ## -- NOT ISA
            my $uri = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #824)"
qname_to_uri
#line 30 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #825)"
 ($1);
            my $for = $opt{database_arg}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #826)"
get_for
#line 31 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #827)"
 ($uri);
            $for->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #828)"
is_referred
#line 32 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #829)"
 ($ce);
            for my $arg_res ($for_res, @{$forp_res}) {
              if ($arg_res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #830)"
isa_uri
#line 34 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #831)"
 ($uri)) {
                $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #832)"
0
#line 35 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #833)"
;
                last FORMATCH;
              }
            }
          } elsif ($f =~ /^=(.+)$/) {    ## -- EQUAL TO
            my $uri = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #834)"
qname_to_uri
#line 40 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/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 41 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/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 42 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/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) {
                next FCs;
              }
            }
            $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #840)"
0
#line 48 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #841)"
;
            last FORMATCH;
          } else {                       ## -- ISA
            my $uri = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #842)"
qname_to_uri
#line 51 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #843)"
 ($f);
            my $for = $opt{database_arg}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #844)"
get_for
#line 52 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/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 53 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/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 55 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #849)"
 ($uri)) {
                next FCs;
              }
            }
            $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #850)"
0
#line 59 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #851)"
;
            last FORMATCH;
          }
        } # FCs
      } # dis:ForCheck
    } # children

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

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #856)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--For'
#line 68 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #857)"
) {
        my $fors = [split /\s+/, $ce->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #858)"
value
#line 69 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #859)"
];
        my $ok = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #860)"
1
#line 70 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #861)"
;
        $has_for = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #862)"
1
#line 71 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #863)"
;
        AFOR: for my $f (@$fors) {
          if ($f =~ /^!=(.+)$/) {         ## -- NOT EQUAL TO
            my $uri = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #864)"
qname_to_uri
#line 74 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #865)"
 ($1);
            my $for = $opt{database_arg}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #866)"
get_for
#line 75 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #867)"
 ($uri);
            $for->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #868)"
is_referred
#line 76 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #869)"
 ($ce);
            if ($for eq $for_res) {
              $ok = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #870)"
0
#line 78 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #871)"
;
              last AFOR;
            }
          } elsif ($f =~ /^!(.+)$/) {     ## -- NOT ISA
            my $uri = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #872)"
qname_to_uri
#line 82 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #873)"
 ($1);
            my $for = $opt{database_arg}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #874)"
get_for
#line 83 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #875)"
 ($uri);
            $for->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #876)"
is_referred
#line 84 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #877)"
 ($ce);
            if ($for_res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #878)"
isa_uri
#line 85 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #879)"
 ($uri)) {
              $ok = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #880)"
0
#line 86 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #881)"
;
              last AFOR;
            }
          } elsif ($f =~ /^=(.+)$/) {     ## -- EQUAL TO
            my $uri = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #882)"
qname_to_uri
#line 90 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/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 91 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/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 92 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #887)"
 ($ce);
            unless ($for eq $for_res) {
              $ok = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #888)"
0
#line 94 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #889)"
;
              last AFOR;
            }
          } else {                        ## -- ISA
            my $uri = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #890)"
qname_to_uri
#line 98 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #891)"
 ($f);
            my $for = $opt{database_arg}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #892)"
get_for
#line 99 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/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 100 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #895)"
 ($ce);
            unless ($for_res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #896)"
isa_uri
#line 101 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/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 102 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #899)"
;
              last AFOR;
            }
          }
        } # AFOR
        if ($ok) {
          $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #900)"
1
#line 108 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #901)"
;
          last FORMATCH;
        }
      } # dis:For
    } # $ce
    $r = $has_for ? 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #902)"
0 : 
#line 113 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #903)"

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

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

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

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

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

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

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

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

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

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=getDefaultNamespaceURIRef][@Type=pl|SCALAR||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #929)"
my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=getDefaultNamespaceURIRef][@Type=pl|SCALAR||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #919)"
$ods = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #920)"
'node'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=getDefaultNamespaceURIRef][@Type=pl|SCALAR||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #921)"
}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #922)"
'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#ownerDocument'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=getDefaultNamespaceURIRef][@Type=pl|SCALAR||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #923)"
};
if ($ods->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #924)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#defaultNamespaceURI'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=getDefaultNamespaceURIRef][@Type=pl|SCALAR||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #925)"
}) {
  $r = \ ($ods->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #926)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#defaultNamespaceURI'
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=getDefaultNamespaceURIRef][@Type=pl|SCALAR||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #927)"
});
} else {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #928)"

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

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

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

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

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

    $r = \($ods->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #932)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#defaultNamespaceURI'
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=getDefaultNamespaceURIRef][@Type=pl|SCALAR||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #933)"
}
       = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #934)"
owner_dis_document
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=getDefaultNamespaceURIRef][@Type=pl|SCALAR||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #935)"

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

              ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #938)"
defining_namespace_uri
#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=getDefaultNamespaceURIRef][@Type=pl|SCALAR||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #939)"
);
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #940)"

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

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

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

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

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

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

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

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

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=disGetAttribute][@type=DISLang:Method]/Return[@Type=DISElement][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #961)"
C: 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=disGetAttribute][@type=DISLang:Method]/Return[@Type=DISElement][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #953)"
for my $c (@{$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #954)"
dis_child_elements
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=disGetAttribute][@type=DISLang:Method]/Return[@Type=DISElement][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #955)"

                          (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 #956)"
expanded_uri eq 
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=disGetAttribute][@type=DISLang:Method]/Return[@Type=DISElement][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #957)"
$attrName and
      $c->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #958)"
media_type_match
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=disGetAttribute][@type=DISLang:Method]/Return[@Type=DISElement][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #959)"

                          ($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 #960)"

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

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

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

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

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

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

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

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

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

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

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

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

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

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

#line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@type=dis:MultipleResource]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #977)"
$cn->{'node'}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #978)"
'rc'
#line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@type=dis:MultipleResource]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #979)"
}++;
$dn = bless {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #980)"
'node'
#line 3 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@type=dis:MultipleResource]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #981)"
 => $cn->{'node'},
}, 'Message::Util::DIS::ManakaiDISElement';
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #982)"

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

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

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

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

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

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

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

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

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

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

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

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

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

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=getNamespaceBindingList][@Type=pl|HASH||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1031)"
my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=getNamespaceBindingList][@Type=pl|HASH||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1001)"
$ods = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1002)"
'node'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=getNamespaceBindingList][@Type=pl|HASH||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1003)"
}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1004)"
'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#ownerDocument'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=getNamespaceBindingList][@Type=pl|HASH||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1005)"
};
if ($ods->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1006)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#allNSBindings'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=getNamespaceBindingList][@Type=pl|HASH||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1007)"
}) {
  $r = $ods->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1008)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#allNSBindings'
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=getNamespaceBindingList][@Type=pl|HASH||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1009)"
};
} else {
  if ($databaseArg) {
    for my $mod_uri (keys %{$databaseArg->{modDef}}) {
      my $mod = $databaseArg->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1010)"
get_module
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=getNamespaceBindingList][@Type=pl|HASH||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1011)"
 ($mod_uri);
      $ods->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1012)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#allNSBindings'
#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=getNamespaceBindingList][@Type=pl|HASH||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1013)"
}
          ->{$mod->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1014)"
local_name
#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=getNamespaceBindingList][@Type=pl|HASH||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1015)"
}
        = $mod->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1016)"
get_property_text
#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=getNamespaceBindingList][@Type=pl|HASH||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1017)"

              (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1018)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Namespace'
#line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=getNamespaceBindingList][@Type=pl|HASH||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1019)"
, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1020)"
undef
#line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=getNamespaceBindingList][@Type=pl|HASH||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1021)"
);
    }
  }
  for my $prefix (keys %{$ods->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1022)"
'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#nsBinding'
#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=getNamespaceBindingList][@Type=pl|HASH||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1023)"
}}) {
    $ods->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1024)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#allNSBindings'
#line 15 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=getNamespaceBindingList][@Type=pl|HASH||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1025)"
}->{$prefix}
        = $ods->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1026)"
'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#nsBinding'
#line 16 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=getNamespaceBindingList][@Type=pl|HASH||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1027)"
}->{$prefix};
  }
  $r = $ods->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1028)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#allNSBindings'
#line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=getNamespaceBindingList][@Type=pl|HASH||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1029)"
};
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1030)"

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

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1034)"
}
$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 #1039)"

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

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

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

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

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

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

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

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

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

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

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

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1047)"
$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 #1048)"

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

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

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

#line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@type=dis:MultipleResource]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1051)"
$self->{'node'}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1052)"
'rc'
#line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@type=dis:MultipleResource]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1053)"
}++;
$r = bless {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1054)"
'node'
#line 3 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@type=dis:MultipleResource]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1055)"
 => $self->{'node'},
}, $class;
#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)"
}

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

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

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

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

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

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1071)"
my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1067)"
$v = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1068)"
value
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1069)"
;
if (defined $v and not ref $v eq 'ARRAY') {
  
#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 #1089)"
local $Error::Depth = $Error::Depth + 1;

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

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

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

                         (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1076)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#TFPQNames'
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1077)"
, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1078)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#TFPQNames'
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1079)"
,
                          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 #1080)"
tfpqnames_to_uri
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1081)"

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

                          ($v, $defaultTypeURI, $defaultForURI,
                           node => $self);
    }
  
#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 #1088)"
}

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

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

#line 16 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1091)"
;
} else {
  $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1092)"
undef
#line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1093)"
;
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1094)"

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

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

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

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

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

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

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

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

  my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Attr[@Name=qnameValueLocalName][@type=DISLang:Attribute]/Get[@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1101)"
$v = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1102)"
value
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Attr[@Name=qnameValueLocalName][@type=DISLang:Attribute]/Get[@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1103)"
;
  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 #1104)"
undef
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Attr[@Name=qnameValueLocalName][@type=DISLang:Attribute]/Get[@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1105)"
;
  }

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

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

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

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

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

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

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

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1120)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1121)"
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 #1122)"
}}
sub qname_value_prefix ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1145)"
my ($self) = @_;
my $r;

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

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

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

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

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

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

  my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Attr[@Name=qnameValuePrefix][@type=DISLang:Attribute]/Get[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1125)"
$v = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1126)"
value
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Attr[@Name=qnameValuePrefix][@type=DISLang:Attribute]/Get[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1127)"
;
  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 #1128)"
undef
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Attr[@Name=qnameValuePrefix][@type=DISLang:Attribute]/Get[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1129)"
;
  } else {
    $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1130)"
undef
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@type=dis|MultipleResource]/Attr[@Name=qnameValuePrefix][@type=DISLang:Attribute]/Get[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1131)"
;
  }

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

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

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

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

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

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

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

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1146)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1147)"
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 #1148)"
}}
$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;
package Message::Util::DIS::ManakaiDISModuleElement;
our $VERSION = 20050919.1549;
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 #1177)"
my ($self) = @_;
my $r;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@type=dis|MultipleResource]/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)"

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

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

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

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

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

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

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

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

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

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

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

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

#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)"
}

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

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

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

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

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

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

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

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

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

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

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

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

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

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

                           (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1206)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--'
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@type=dis|MultipleResource]/Attr[@Name=requireElement][@Type=DISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1207)"
, 'Require', make_new_node => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1208)"
1
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@type=dis|MultipleResource]/Attr[@Name=requireElement][@Type=DISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1209)"
),
             
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1210)"
'Message::Util::DIS::ManakaiDISElement'
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@type=dis|MultipleResource]/Attr[@Name=requireElement][@Type=DISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1211)"
;

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

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

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

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

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

#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@type=dis|MultipleResource]/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)"

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

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1226)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1227)"
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 #1228)"
}}
sub defining_namespace_uri ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1255)"
my ($self) = @_;
my $r;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

#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)"
}

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

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

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

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

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1278)"
}}
$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 = 20050919.1549;
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 = 20050919.1549;
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;
package Message::Util::DIS::ManakaiDISDocumentFragment;
our $VERSION = 20050919.1549;
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;
package Message::Util::DIS::ManakaiDISDocument;
our $VERSION = 20050919.1549;
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][@type=dis|MultipleResource]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1317)"

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

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

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

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

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

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

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

  C: 
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@type=dis|MultipleResource]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1285)"
for my $cn (@{$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1286)"
child_nodes
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@type=dis|MultipleResource]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1287)"
}) {
    next C unless $cn->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1288)"
node_type eq 
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@type=dis|MultipleResource]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1289)"
'#element';
    my $dn;
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1290)"

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

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

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

#line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@type=dis:MultipleResource]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1293)"
$cn->{'node'}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1294)"
'rc'
#line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@type=dis:MultipleResource]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1295)"
}++;
$dn = bless {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1296)"
'node'
#line 3 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@type=dis:MultipleResource]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1297)"
 => $cn->{'node'},
}, 'Message::Util::DIS::ManakaiDISElement';
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1298)"

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

                           (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1324)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--'
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@type=dis|MultipleResource]/Attr[@Name=moduleElement][@Type=DISModuleElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1325)"
, 'Module', make_new_node => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1326)"
1
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@type=dis|MultipleResource]/Attr[@Name=moduleElement][@Type=DISModuleElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/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)"
}

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

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

#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@type=dis|MultipleResource]/Attr[@Name=moduleElement][@Type=DISModuleElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1335)"
;
$r = bless $r, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1336)"
'Message::Util::DIS::ManakaiDISModuleElement'
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@type=dis|MultipleResource]/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)"

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

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1344)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1345)"
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 #1346)"
}}
sub dis_database ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1365)"
my ($self) = @_;
my $r;

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

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@type=dis|MultipleResource]/Attr[@Name=disDatabase][@Type=DISDatabase][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1357)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@type=dis|MultipleResource]/Attr[@Name=disDatabase][@Type=DISDatabase][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1347)"
($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1348)"
'node'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@type=dis|MultipleResource]/Attr[@Name=disDatabase][@Type=DISDatabase][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1349)"
}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1350)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#db'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@type=dis|MultipleResource]/Attr[@Name=disDatabase][@Type=DISDatabase][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1351)"
}) {
  $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1352)"
'node'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@type=dis|MultipleResource]/Attr[@Name=disDatabase][@Type=DISDatabase][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1353)"
}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1354)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#db'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@type=dis|MultipleResource]/Attr[@Name=disDatabase][@Type=DISDatabase][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1355)"
};
} else {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1356)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1358)"
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][@type=dis|MultipleResource]/Attr[@Name=disDatabase][@Type=DISDatabase][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1361)"

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

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

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

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

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

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

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@type=dis|MultipleResource]/Attr[@Name=disDatabase][@Type=DISDatabase][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #1367)"
$self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1368)"
'node'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@type=dis|MultipleResource]/Attr[@Name=disDatabase][@Type=DISDatabase][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #1369)"
}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1370)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#db'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@type=dis|MultipleResource]/Attr[@Name=disDatabase][@Type=DISDatabase][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #1371)"
} = $given;
require Scalar::Util;
Scalar::Util::weaken ($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1372)"
'node'
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@type=dis|MultipleResource]/Attr[@Name=disDatabase][@Type=DISDatabase][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #1373)"
}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1374)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#db'
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@type=dis|MultipleResource]/Attr[@Name=disDatabase][@Type=DISDatabase][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #1375)"
});
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1376)"

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

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

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

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

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

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

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

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

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

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

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

  C: 
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@type=dis|MultipleResource]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1389)"
for my $cn (@{$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1390)"
child_nodes
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@type=dis|MultipleResource]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1391)"
}) {
    next C unless $cn->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1392)"
node_type eq 
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@type=dis|MultipleResource]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1393)"
'#element';
    my $dn;
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1394)"

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

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

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

#line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@type=dis:MultipleResource]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1397)"
$cn->{'node'}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1398)"
'rc'
#line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@type=dis:MultipleResource]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1399)"
}++;
$dn = bless {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1400)"
'node'
#line 3 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@type=dis:MultipleResource]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1401)"
 => $cn->{'node'},
}, 'Message::Util::DIS::ManakaiDISElement';
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1402)"

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

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

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

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

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

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

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

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

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

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

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

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1420)"
}
$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;
package Message::Util::DIS::ManakaiDISDatabase;
our $VERSION = 20050919.1549;
push our @ISA, 'Message::Util::DIS::Perl::ManakaiDISDatabasePerl', 'Message::Util::DIS::ManakaiDISExceptionTarget', '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][@type=dis|MultipleResource]/Method[@Name=getSourceFile][@type=DISLang:Method]/Return[@Type=DISDocument][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1427)"

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

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

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

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

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

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

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

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

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@type=dis|MultipleResource]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [bc] (Chunk #1437)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@type=dis|MultipleResource]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1433)"
($opt{for_arg} eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1434)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@type=dis|MultipleResource]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1435)"
) {
  $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<data:,200411tf#xmlns(t=data:,200411tf%23)>.
                        qq<t:tf($__turi,$__furi)>;
}
#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 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=getModule][@type=DISLang:Method]/Return[@Type=DISModule][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1447)"

#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=getModule][@type=DISLang:Method]/Return[@Type=DISModule][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1441)"
;
} 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 #1442)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all'
#line 15 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=getModule][@type=DISLang:Method]/Return[@Type=DISModule][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1443)"
,
         forp => [],
       }, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1444)"
'Message::Util::DIS::ManakaiDISModuleDefinition'
#line 17 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=getModule][@type=DISLang:Method]/Return[@Type=DISModule][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1445)"
;
  require Scalar::Util;
  Scalar::Util::weaken ($r->{db});
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1446)"

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

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1450)"
}
$r}
sub load_resource ($$;$$$%) {
my ($self, $mod, $parentResource, $dynParent, $el, %opt) = @_;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1751)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1455)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1451)"
$opt{for_arg} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1452)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' unless 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1453)"
defined $opt{for_arg};
$opt{forp_arg} ||= [];

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

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

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

{
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1743)"

#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1461)"

#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1457)"

  ## -- Node names

  ## Unique resource identifier generated from node id
  my $node_id = $el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1458)"
node_id
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1459)"
;
  my $node_uri;
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1460)"

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

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

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@type=dis|MultipleResource]/ResourceDef[@QName=tfpurisToURI][@type=dis2pm:BlockCode]/PerlDef [bc] (Chunk #1467)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@type=dis|MultipleResource]/ResourceDef[@QName=tfpurisToURI][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1463)"
($opt{for_arg} eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1464)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' and 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@type=dis|MultipleResource]/ResourceDef[@QName=tfpurisToURI][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1465)"
@{$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<data:,200411tf#xmlns(t=data:,200411tf%23)>.
                       qq<t:tfp($__turi,$__furi,>.join (',', @__fp).q<)>;
} 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<data:,200411tf#xmlns(t=data:,200411tf%23)>.
                        qq<t:tf($__turi,$__furi)>;
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1466)"

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

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

#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1483)"

#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1471)"
;

  ## User defined resource identifiers
  my $qn_node = $el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1472)"
dis_get_attribute
#line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1473)"

                              (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1474)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--QName'
#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1475)"
, for_arg => $opt{for_arg},
                               forp_arg => $opt{forp_arg}, 
                               database_arg => $self);
  my $res;
  if ($qn_node) {
    my $qn_uri = $qn_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1476)"
qname_value_uri
#line 19 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1477)"
;
    $res = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1478)"
get_resource
#line 20 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1479)"

                        ($qn_uri, for_arg => $opt{for_arg});
    if ($res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1480)"
is_defined
#line 22 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1481)"
) {
      
#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 #1495)"
local $Error::Depth = $Error::Depth - 1;

{
#line 23 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1493)"

#line 23 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1487)"

#line 23 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1485)"

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1488)"
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' => $res->{uri};

#line 28 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1491)"

#line 28 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1489)"
;
      
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1490)"

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

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

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

#line 29 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1509)"

#line 29 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1497)"
;
    }
    $res->{localName} = $qn_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1498)"
qname_value_local_name
#line 31 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1499)"
;
    $res->{namespaceURI} = $qn_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1500)"
qname_value_namespace_uri
#line 32 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1501)"
;
  } else { ## Anonymous or local
    my $n_node = $el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1502)"
dis_get_attribute
#line 34 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1503)"

                              (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1504)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Name'
#line 35 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1505)"
, 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 #1506)"
value
#line 42 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1507)"
;
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1508)"

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

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

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@type=dis|MultipleResource]/ResourceDef[@QName=getChildResourceURI][@type=dis2pm:BlockCode]/PerlDef [bc] (Chunk #1513)"
my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@type=dis|MultipleResource]/ResourceDef[@QName=getChildResourceURI][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1511)"
$__parent = $puri;
my $__ln = $ln;
for my $__uri ($__parent, $__ln) {
  $__uri =~ s{([^0-9A-Za-z:;?=_./~!&+-])}{sprintf '%%%02X', ord $1}ge;
}
$ru = q<data:,200411tf#xmlns(t=data:,200411tf%23)>.
                        qq<t:child($__parent,$__ln)>;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1512)"

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

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

#line 48 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1537)"

#line 48 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1517)"
;
        $res = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1518)"
get_resource
#line 49 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1519)"

                            ($ru, for_arg => $opt{for_arg});
        $res->{localName} = $n_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1520)"
value
#line 51 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1521)"
;
        $res->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1522)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isAnon'
#line 52 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1523)"
} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1524)"
1
#line 52 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1525)"
;
      } else {  ## Root local name resource
        my $ln = $n_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1526)"
value
#line 54 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1527)"
;
        my $ns_uri = $mod->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1528)"
source_element
#line 55 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1529)"

                         ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1530)"
defining_namespace_uri
#line 56 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1531)"
;
        my $qn_uri = $ns_uri . $ln;
        $res = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1532)"
get_resource
#line 58 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1533)"

                            ($qn_uri, for_arg => $opt{for_arg});
        if ($res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1534)"
is_defined
#line 60 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1535)"
) {
          
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1536)"

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

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

{
#line 61 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1547)"

#line 61 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1541)"

#line 61 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1539)"

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1542)"
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 67 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1545)"

#line 67 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1543)"
;
         
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1544)"

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

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

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

#line 68 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1565)"

#line 68 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1551)"
;
        }
        $res->{namespaceURI} = $ns_uri;
        $res->{localName} = $ln;
      }
    } else {
      $res = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1552)"
get_resource
#line 74 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1553)"
 ($node_uri);
      $res->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1554)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isAnon'
#line 75 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1555)"
} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1556)"
1
#line 75 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1557)"
;
    }
  } # anon
  $res->{for} = $opt{for_arg};
  $res->{forp} = $opt{forp_arg};
  $res->{src} = $el;
  $res->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1558)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#definingModule'
#line 81 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1559)"
} = \ ($mod->{uri});
  $mod->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1560)"
add_property_resource_list
#line 82 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1561)"

                                    (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1562)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#resource'
#line 83 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1563)"
, $res);
  if ($parentResource) {
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1564)"

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

{
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #1575)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #1573)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #1567)"
$res->{'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#parentResource'} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1568)"
Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #1569)"

                (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1570)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI'
#line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #1571)"
, $parentResource->uri);
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1572)"

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

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

#line 88 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1579)"

#line 88 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1577)"
;
  }
  if ($dynParent) {
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1578)"

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

{
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #1589)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #1587)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #1581)"
$res->{'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#dynamicParentResource'} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1582)"
Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #1583)"

                (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1584)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI'
#line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #1585)"
, $dynParent->uri);
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1586)"

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

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

#line 94 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1667)"

#line 94 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1591)"
;
  }
  unless ($res->{uri} eq $node_uri) {
    my $nu_res = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1592)"
get_resource
#line 97 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1593)"
 ($node_uri);
    $res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1594)"
merge_as_alias
#line 98 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1595)"
 ($nu_res);
  }
  $res->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1596)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isDefined'
#line 100 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1597)"
} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1598)"
1
#line 100 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1599)"
;
  $res->{seq} = $self->{seq}++;
  $res->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1600)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNodeID'
#line 102 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1601)"
} = $node_id;
  
  ## -- Alias
  my $al_node = $el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1602)"
dis_get_attribute
#line 105 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1603)"

                              (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1604)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AliasFor'
#line 106 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1605)"
, for_arg => $opt{for_arg},
                               forp_arg => $opt{forp_arg},
                               database_arg => $self);
  if ($al_node) {
    my $canon_uri = $al_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1606)"
tfqnames_value_uri
#line 110 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1607)"

                           ($node_id, $opt{for_arg},
                            for_arg => $self->{for},
                            forp_arg => $self->{forp},
                            database_arg => $self);
    my $canon_res = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1608)"
get_resource
#line 115 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1609)"
 ($canon_uri);
    $canon_res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1610)"
is_referred
#line 116 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1611)"
 ($al_node);
    $canon_res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1612)"
merge_as_alias
#line 117 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1613)"
 ($res, node => $al_node);
    $res = $canon_res;
  }

  ## -- Registers as child
  $parentResource->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1614)"
add_property_resource_list
#line 122 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1615)"

                              (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1616)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#childResource'
#line 123 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/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_property_resource_list
#line 125 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1619)"

                              (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1620)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#dynamicChildResource'
#line 126 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1621)"
, $res)
     if $dynParent;

  my $is_multires = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1622)"
0
#line 129 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1623)"
;
  my @props;
  my @cres;
  my @ce0 = @{$el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1624)"
dis_child_elements
#line 132 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1625)"

                            (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 #1626)"
element_type_match
#line 138 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1627)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1628)"
'http://www.w3.org/1999/02/22-rdf-syntax-ns#type'
#line 138 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1629)"
,
                             database_arg => $self)) {
      $has_type = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1630)"
1
#line 140 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1631)"
;
      my $type_uri = $ce->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1632)"
qname_value_uri
#line 141 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1633)"
;
      my $type = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1634)"
get_resource
#line 142 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1635)"
 ($type_uri);
      $res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1636)"
add_property_resource_ulist
#line 143 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1637)"

                                       (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1638)"
'http://www.w3.org/1999/02/22-rdf-syntax-ns#type'
#line 144 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1639)"
, $type);
      $type->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1640)"
is_referred
#line 145 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1641)"
 ($ce);
      if ($type->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1642)"
is_subset_of_uri
#line 146 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1643)"

                                       (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1644)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--MultipleResource'
#line 147 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1645)"
)) {
        $is_multires = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1646)"
1
#line 148 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1647)"
;
      }
    } elsif ($ce->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1648)"
element_type_match
#line 150 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1649)"

                                           (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1650)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--subsetOf'
#line 151 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1651)"
,
                                 database_arg => $self)) {
      my $sres = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1652)"
get_resource
#line 153 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1653)"

                          ($ce->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1654)"
tfqnames_value_uri
#line 154 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1655)"

                                            ($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 #1656)"
add_super_resource
#line 158 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1657)"
 ($sres);
    } elsif ($ce->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1658)"
is_resource_element
#line 159 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1659)"
) {
      push @cres, $ce;
    } elsif ($ce->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1660)"
element_type_match
#line 161 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1661)"

                                          (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1662)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--dataType'
#line 162 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1663)"
,
                                 database_arg => $self)) {
      my $uri = $ce->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1664)"
qname_value_uri
#line 164 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1665)"
;
      
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1666)"

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

{
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #1677)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #1675)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #1669)"
$res->{'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--dataType'} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1670)"
Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #1671)"

                (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1672)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI'
#line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #1673)"
, $uri);
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1674)"

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

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

#line 168 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1691)"

#line 168 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1679)"
;
      my $type = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1680)"
get_resource
#line 169 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1681)"
 ($uri);
      $type->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1682)"
is_referred
#line 170 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1683)"
 ($ce);
    } elsif ($ce->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1684)"
element_type_match
#line 171 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1685)"

                          (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1686)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--multipleProperties'
#line 172 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1687)"
,
                                 database_arg => $self)) {
      my $uri = $ce->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1688)"
qname_value_uri
#line 174 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1689)"
;
      
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1690)"

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

{
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #1701)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #1699)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #1693)"
$res->{'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--multipleProperties'} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1694)"
Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #1695)"

                (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1696)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI'
#line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #1697)"
, $uri);
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1698)"

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

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

#line 178 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1709)"

#line 178 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1703)"
;              
      my $type = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1704)"
get_resource
#line 179 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1705)"
 ($uri);
      $type->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1706)"
is_referred
#line 180 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1707)"
 ($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 #1708)"

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

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

{
#line 189 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1713)"

#line 189 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1711)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1712)"
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 #1714)"
}

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

#line 192 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1741)"

#line 192 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1717)"
;
  }

  ## -- Child resources
  unless ($is_multires) {
    for my $re (@cres) {
      unless ($al_node) {
        $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1718)"
load_resource
#line 199 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1719)"

                             ($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 #1720)"
dis_get_attribute
#line 204 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1721)"

                            (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1722)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--aliasChild'
#line 205 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1723)"
, 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 #1724)"
value
#line 208 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1725)"
) {
          $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1726)"
load_resource
#line 209 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1727)"

                             ($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 #1728)"
element_type_match
#line 221 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1729)"

                                       (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1730)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--resourceFor'
#line 222 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1731)"
,
                                 database_arg => $self)) {
        my $for_uri = $pe->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1732)"
qname_value_uri
#line 224 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1733)"
;
        my $for = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1734)"
get_for
#line 225 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1735)"
 ($for_uri);
        $for->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1736)"
is_referred
#line 226 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1737)"
 ($pe);
        $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1738)"
load_resource
#line 227 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1739)"

                        ($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 #1740)"

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

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

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

#line 236 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1749)"

#line 236 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1747)"
; # DEEP
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1748)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=DISFor][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1769)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=DISFor][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1767)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=DISFor][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1753)"
$forURI = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1754)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' unless 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=DISFor][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1755)"
defined $forURI;
if (defined $self->{forDef}->{$forURI}) {
  $r = $self->{forDef}->{$forURI};
} else {
  $r = $self->{forDef}->{$forURI}
     = bless {
         uri => $forURI,
         isa => {
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1756)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all'
#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=DISFor][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1757)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1758)"
1
#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=DISFor][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1759)"
},
         revISA => {},
         db => $self,
       }, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1760)"
'Message::Util::DIS::ManakaiDISForDefinition'
#line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=DISFor][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1761)"
;
  $self->{forDef}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1762)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all'
#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=DISFor][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1763)"
}->{revISA}->{$forURI} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1764)"
1
#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=DISFor][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1765)"
;
  require Scalar::Util;
  Scalar::Util::weaken ($r->{db});
}
#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)"
}
$r}
sub read_properties ($%) {
my ($self, %opt) = @_;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1791)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1771)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1783)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1781)"

  for 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1773)"
my $fd (values %{$self->{modDef}},
              values %{$self->{forDef}},
              values %{$self->{resDef}}) {
    if ($fd->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1774)"
is_defined
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1775)"
) {
      $fd->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1776)"
read_properties
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1777)"

        (on_resource_read => $opt{on_resource_read});
    }
  }
  CORE::delete $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1778)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceFile'
#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1779)"
};

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

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

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

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

#line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1789)"

#line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1787)"
;
#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)"
}
}
sub load_for ($$$) {
my ($self, $mod, $el) = @_;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1897)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadFor][@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 #1891)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1889)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1801)"

  my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1795)"
$qn_node = $el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1796)"
get_attribute_ns
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1797)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1798)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1799)"
, 'QName');
  unless ($qn_node) {
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1800)"

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

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

{
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1811)"

#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1805)"

#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1803)"

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1806)"
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][@type=dis|MultipleResource]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1809)"

#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1807)"
;
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1808)"

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

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

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

#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1855)"

#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1815)"
;
  }
  $qn_node = bless $qn_node, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1816)"
'Message::Util::DIS::ManakaiDISElement'
#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1817)"
;
  my $qn_uri = $qn_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1818)"
qname_value_uri
#line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1819)"
;
  my $for = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1820)"
get_for
#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1821)"
 ($qn_uri);

  unless ($for->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1822)"
is_defined
#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1823)"
) {
    ## -- Initializes "For" Definition Object
    $for->{src} = $el;
    $for->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1824)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isDefined'
#line 17 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1825)"
} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1826)"
1
#line 17 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1827)"
;
    $for->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1828)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#definingModule'
#line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1829)"
} = \ ($mod->{uri});

    for my $ce (@{$el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1830)"
dis_all_child_elements
#line 20 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1831)"
}) {
      my $xn = $ce->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1832)"
expanded_uri
#line 21 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1833)"
;
      if ($xn eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1834)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ISA' or 
#line 22 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1835)"
$xn eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1836)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Implement'
#line 22 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1837)"
) {
        my $sfor = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1838)"
get_for
#line 23 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1839)"

                    ($ce->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1840)"
qname_value_uri
#line 24 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1841)"
);
        $for->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1842)"
add_isa
#line 25 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1843)"
 ($sfor);
        $sfor->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1844)"
is_referred
#line 26 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1845)"
 ($ce);
        ## TODO: warn if dis:Implement
      } elsif ({
                 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1846)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Description'
#line 29 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1847)"
 => 1,
                 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1848)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ImplNote'
#line 30 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1849)"
 => 1,
                 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1850)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--FullName'
#line 31 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1851)"
 => 1,
                 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1852)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--QName'
#line 32 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1853)"
 => 1,
               }->{$xn}) {
        # 
      } else {
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1854)"

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

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

{
#line 36 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1865)"

#line 36 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1859)"

#line 36 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1857)"

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1860)"
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 41 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1863)"

#line 41 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1861)"
;
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1862)"

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

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

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

#line 42 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1871)"

#line 42 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1869)"
;
      }
    }
  } else {
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1870)"

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

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

{
#line 46 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1881)"

#line 46 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1875)"

#line 46 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1873)"

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1876)"
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 51 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1879)"

#line 51 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1877)"
;
    
#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 #1882)"
}

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

#line 52 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1887)"

#line 52 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1885)"
;
  } # isDefine?

#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 54 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1895)"

#line 54 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1893)"
; # DEEP
#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 #1898)"
}
}
sub check_undefined_resource ($) {
my ($self) = @_;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1919)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1905)"
for 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1899)"
my $fd (values %{$self->{forDef}}) {
  if (my $ref = $fd->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1900)"
is_referred and
      
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1901)"
not $fd->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1902)"
is_defined
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1903)"
) {
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1904)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1906)"
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][@type=dis|MultipleResource]/Method[@Name=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1913)"

#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1907)"
;
  }
}
for my $fd (values %{$self->{resDef}}) {
  if (my $ref = $fd->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1908)"
is_referred and
      
#line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1909)"
not $fd->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1910)"
is_defined
#line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1911)"
) {
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1912)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1914)"
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][@type=dis|MultipleResource]/Method[@Name=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1917)"

#line 16 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1915)"
;
  }
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1916)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=free][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1929)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=free][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1927)"
for 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=free][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1921)"
my $file (values %{$self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1922)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceFile'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=free][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1923)"
}}) {
  $file->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1924)"
free
    if 
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=free][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1925)"
$file;
}
CORE::delete $self->{modDef};
CORE::delete $self->{forDef};
CORE::delete $self->{resDef};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1926)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleResolver][@type=dis|MultipleResource]/ResourceDef[@type=DISLang|InputProcessor]/PerlDef [b] (Chunk #1937)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleResolver][@type=dis|MultipleResource]/ResourceDef[@type=DISLang|InputProcessor]/PerlDef [bc] (Chunk #1935)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleResolver][@type=dis|MultipleResource]/ResourceDef[@type=DISLang|InputProcessor]/PerlDef [u] (Chunk #1931)"
$resolver = bless $resolver, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1932)"
'Message::Util::DIS::ManakaiDISModuleResolver'
           if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleResolver][@type=dis|MultipleResource]/ResourceDef[@type=DISLang|InputProcessor]/PerlDef [u] (Chunk #1933)"
ref $resolver eq 'CODE';
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1934)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2197)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1945)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1939)"
$resolver = bless $resolver, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1940)"
'Message::Util::DIS::ManakaiDISModuleResolver'
              if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1941)"
ref $resolver eq 'CODE'; 
## -- Module Name, URI
$opt{for_arg} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1942)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' unless 
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1943)"
defined $opt{for_arg};
my $mod_node;
my $mod_name_node;

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

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

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

{
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2189)"

#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1955)"

#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1947)"

  $mod_node = $doc->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1948)"
module_element
#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1949)"
;
  $mod_name_node = $mod_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1950)"
get_attribute_ns
#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1951)"

                                         (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1952)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--'
#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1953)"
, 'QName');
  unless ($mod_name_node) {
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1954)"

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

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

{
#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1965)"

#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1959)"

#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1957)"

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1960)"
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][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1963)"

#line 15 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1961)"
;
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1962)"

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

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

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

#line 16 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1989)"

#line 16 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1969)"
;
  }
  $mod_name_node = bless $mod_name_node, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1970)"
'Message::Util::DIS::ManakaiDISElement'
#line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1971)"
;
  my $mod_name_uri = $mod_name_node
                        ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1972)"
qname_value_uri
#line 20 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1973)"
;
  my $mod = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1974)"
get_module
#line 21 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1975)"

                           ($mod_name_uri, for_arg => $opt{for_arg});

  unless ($mod->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1976)"
is_defined
#line 24 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1977)"
) {
    ## -- Initializes Module Definition Object
    $mod->{localName} = $mod_name_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1978)"
qname_value_local_name
#line 26 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1979)"
;
    $mod->{namespaceURI} = $mod_name_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1980)"
qname_value_namespace_uri
#line 27 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1981)"
;
    $mod->{for} = $opt{for_arg};
    $mod->{src} = $mod_node;
    $mod->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1982)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isDefined'
#line 30 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1983)"
} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1984)"
1
#line 30 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1985)"
;
    $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1986)"
set_source_file
#line 31 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1987)"
 ($mod_name_uri => $doc);

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

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

{
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #1999)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #1997)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #1991)"
$mod->{'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Namespace'} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1992)"
Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #1993)"

                (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1994)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI'
#line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #1995)"
, $mod_node->defining_namespace_uri);
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1996)"

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

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

#line 38 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2003)"

#line 38 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2001)"
;

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

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

{
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #2011)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #2009)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2005)"
$mod->{'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceFile'} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2006)"
Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2007)"

                ('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 #2008)"

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

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

#line 45 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2045)"

#line 45 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2013)"
;
    
    ## -- Loads "for" definition
    my $root_elements
               = $doc->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2014)"
dis_all_child_elements
#line 49 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2015)"
;
    if ($mod->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2016)"
for_uri eq 
#line 50 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2017)"

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2018)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all'
#line 50 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2019)"
) {
      R: for my $el (@$root_elements) {
        next R unless $el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2020)"
expanded_uri eq 
#line 52 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2021)"

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2022)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ForDef'
#line 52 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2023)"
;
        $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2024)"
load_for
#line 53 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2025)"
 ($mod, $el);
      }
    }

    ## -- Loads "for all"
    my $rmod = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2026)"
get_module
#line 58 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2027)"

                       ($mod->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2028)"
name_uri
#line 59 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2029)"
,
                        for_arg => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2030)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all'
#line 60 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2031)"
);
    unless ($rmod->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2032)"
is_defined
#line 61 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2033)"
) {
      my $rdoc = $resolver->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2034)"
uri_to_document
#line 62 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2035)"

                       ($self, $rmod->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2036)"
uri
#line 63 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2037)"
,
                        $mod->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2038)"
namespace_uri
#line 64 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2039)"
,
                        $mod->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2040)"
local_name
#line 65 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2041)"
,
                        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2042)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all'
#line 66 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2043)"
);
      unless ($rdoc) {
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2044)"

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

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

{
#line 69 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2055)"

#line 69 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2049)"

#line 69 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2047)"

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2050)"
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][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2053)"

#line 77 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2051)"
;
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2052)"

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

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

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

#line 78 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2113)"

#line 78 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2059)"
;
      }
      $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2060)"
load_module
#line 80 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2061)"

                    ($rdoc, $resolver, for_arg => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2062)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all'
#line 81 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2063)"
,
                     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 #2064)"
require_element
#line 87 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2065)"
;
    for my $rm (@{$req_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2066)"
dis_all_child_elements
#line 88 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2067)"
}) {
      next unless $rm->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2068)"
expanded_uri eq 
#line 89 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2069)"

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2070)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Module'
#line 89 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2071)"
;
      my ($uri, $nuri, $ln, $for);
      my $mqn = $rm->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2072)"
get_attribute_ns
#line 91 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2073)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2074)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--'
#line 91 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2075)"
, 'QName');
      if ($mqn) {
        my $mqv = $mqn->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2076)"
value
#line 93 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2077)"
;
        my $mqp = (bless $mqn, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2078)"
'Message::Util::DIS::ManakaiDISElement'
#line 94 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2079)"
)
                  ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2080)"
qname_to_pair
#line 95 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2081)"
 ($mqv, node => $mqn);
        ($nuri, $ln) = @$mqp;
      } else {
        my $mn = $rm->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2082)"
get_attribute_ns
#line 98 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/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--'
#line 98 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2085)"
, 'Name');
        if ($mn) {
          $nuri = $mod->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2086)"
namespace_uri
#line 100 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2087)"
;
          $ln = $mn->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2088)"
value
#line 101 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2089)"
;
        } else {
          $nuri = $mod->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2090)"
namespace_uri
#line 103 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2091)"
;
          $ln = $mod->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2092)"
local_name
#line 104 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2093)"
;
        }
      }
      my $wfn = $rm->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2094)"
get_attribute_ns
#line 107 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2095)"

                                      (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2096)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--'
#line 108 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2097)"
, 'WithFor');
      if ($wfn) {
        $for = (bless $wfn, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2098)"
'Message::Util::DIS::ManakaiDISElement'
#line 110 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2099)"
)
               ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2100)"
qname_value_uri
#line 111 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2101)"
;
      } else {
        $for = $mod->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2102)"
for_uri
#line 113 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2103)"
;
      }
      my $rmod = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2104)"
get_module
#line 115 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2105)"

                               ($nuri . $ln, for_arg => $for);
      unless ($rmod->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2106)"
is_defined
#line 117 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2107)"
) {
        my $rdoc = $resolver->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2108)"
uri_to_document
#line 118 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2109)"

                               ($self, $rmod->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2110)"
uri
#line 119 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2111)"
,
                                $nuri, $ln, $for);
        unless ($rdoc) {
          
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2112)"

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

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

{
#line 122 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2123)"

#line 122 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2117)"

#line 122 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2115)"

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2118)"
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 129 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2121)"

#line 129 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2119)"
;
          
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2120)"

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

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

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

#line 130 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2149)"

#line 130 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2127)"
;
        }
        $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2128)"
load_module
#line 132 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2129)"

                               ($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 #2130)"
dis_child_elements
#line 139 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2131)"

                                 (for_arg => $opt{for_arg},
                                  database_arg => $self);
    for my $el (@$root_elements) {
      if ($el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2132)"
is_resource_element
#line 143 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2133)"
) {
        $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2134)"
load_resource
#line 144 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2135)"

                                 ($mod, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2136)"
undef
#line 145 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2137)"
, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2138)"
undef
#line 145 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2139)"
, $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 #2140)"
expanded_uri
#line 149 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2141)"
;
        if ({
                 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2142)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ForDef'
#line 151 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2143)"
 => 1,
                 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2144)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Module'
#line 152 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2145)"
 => 1,
                 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2146)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ImplNote'
#line 153 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2147)"
 => 1,
            }->{$et}) {
          # 
        } else {
          
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2148)"

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

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

{
#line 157 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2159)"

#line 157 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2153)"

#line 157 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2151)"

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2154)"
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 162 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2157)"

#line 162 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2155)"
;
          
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2156)"

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

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

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

#line 163 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2171)"

#line 163 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2163)"
;
        }
      } # element types
    }
    
    my $dn = $mod_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2164)"
get_attribute_ns
#line 168 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2165)"

                                   (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2166)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--'
#line 169 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2167)"
, 'Namespace');
    unless ($dn and defined $dn->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2168)"
value
#line 170 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/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)"

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

{
#line 171 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2181)"

#line 171 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2175)"

#line 171 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/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)"
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 175 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2179)"

#line 175 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2177)"
;
      
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2178)"

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

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

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

#line 176 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2187)"

#line 176 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2185)"
;
    }
  } # Unless this module loaded

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

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

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

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

#line 179 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2195)"

#line 179 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2193)"
; # Deep
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2194)"

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

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2198)"
}
}
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 #2203)"

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

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

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

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

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

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

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

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

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

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

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

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2211)"
$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 #2212)"

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

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

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

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2219)"
my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2217)"
($q1, $q2, $q3) = split /\s*\.\s*/, $xcref, 3;

#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 #2321)"
local $Error::Depth = $Error::Depth + 1;

{
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2319)"

#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2265)"

  if 
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2221)"
(defined $q3) {
    $r->[2] = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2222)"
get_resource
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2223)"

                 ($contextNode->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2224)"
tfqnames_to_uri
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2225)"

                                  ($q3, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2226)"
undef
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2227)"
, $opt{for_arg}, node => $opt{node}));
    $r->[1] = $r->[2]->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2228)"
get_property_resource
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2229)"

                                  (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2230)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#parentResource'
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2231)"
);
  } elsif (defined $q2) {
    if ($q2 =~ /:/) {
      $r->[1] = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2232)"
get_resource
#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2233)"

                 ($contextNode->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2234)"
tfqnames_to_uri
#line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2235)"

                                  ($q2, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2236)"
undef
#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2237)"
, $opt{for_arg}, node => $opt{node}));
    } else {
      $r->[0] = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2238)"
get_resource
#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2239)"

                 ($contextNode->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2240)"
tfqnames_to_uri
#line 15 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2241)"

                                  ($q1, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2242)"
undef
#line 16 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2243)"
, $opt{for_arg}, node => $opt{node}));
      $r->[1] = $r->[0]->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2244)"
get_const_resource_by_name
#line 17 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2245)"
 ($q2);
    }
  } else {  ## $q1 only
    $r->[2] = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2246)"
get_resource
#line 20 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2247)"

                 ($contextNode->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2248)"
tfqnames_to_uri
#line 21 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2249)"

                                  ($q1, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2250)"
undef
#line 22 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2251)"
, $opt{for_arg}, node => $opt{node}));
    if ($r->[2]->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2252)"
is_type_uri
#line 23 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2253)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2254)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ExceptionOrWarningSubType'
#line 23 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2255)"
)) {
      $r->[1] = $r->[2]->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2256)"
get_property_resource
#line 24 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2257)"

                                  (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2258)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#parentResource'
#line 25 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2259)"
);
    } 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 #2260)"
is_type_uri
#line 32 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2261)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2262)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ExceptionOrWarningSubType'
#line 32 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2263)"
)) {
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2264)"

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

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

{
#line 39 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2269)"

#line 39 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2267)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2268)"
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 #2270)"
}

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

#line 44 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2281)"

#line 44 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2273)"
;
  }
  $r->[2]->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2274)"
is_referred
#line 46 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2275)"

                                       ($opt{node} or $contextNode)
    if $r->[2];
  
  if (not $r->[1] or
      not $r->[1]->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2276)"
is_type_uri
#line 51 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/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)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Const'
#line 51 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2279)"
)) {
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2280)"

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

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

{
#line 53 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2285)"

#line 53 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2283)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2284)"
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 #2286)"
}

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

#line 59 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2305)"

#line 59 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2289)"
;
  }
  $r->[1]->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2290)"
is_referred
#line 61 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2291)"

                                       ($opt{node} or $contextNode);

  unless ($r->[0]) {
    my $cg = $r->[1]->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2292)"
get_property_resource
#line 65 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/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)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#parentResource'
#line 66 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2295)"
);
    $r->[0] = $cg->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2296)"
get_property_resource
#line 67 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2297)"

                                  (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2298)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#parentResource'
#line 68 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2299)"
) if $cg;
  }
  if (not $r->[0] or
      not $r->[0]->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2300)"
is_type_uri
#line 71 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2301)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2302)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#AnyExceptionAnyClass'
#line 71 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2303)"
)) {
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2304)"

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

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

{
#line 75 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2309)"

#line 75 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2307)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2308)"
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 #2310)"
}

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

#line 81 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2317)"

#line 81 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2313)"
;
  }
  $r->[0]->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2314)"
is_referred
#line 83 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2315)"

                                       ($opt{node} or $contextNode);

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

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

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

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

#line 85 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2325)"

#line 85 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2323)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2324)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=setSourceFile][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2335)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=setSourceFile][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2333)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=setSourceFile][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2329)"
$self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2330)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceFile'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=setSourceFile][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2331)"
}->{$fileName} = $doc;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2332)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2361)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2341)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2337)"
$resourceURI = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2338)"
'http://suika.fam.cx/~wakaba/archive/2004/dom/main#any' unless 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2339)"
defined $resourceURI;
my $resURI;
if (defined $opt{for_arg}) {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2340)"

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

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

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@type=dis|MultipleResource]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [bc] (Chunk #2347)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@type=dis|MultipleResource]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #2343)"
($opt{for_arg} eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2344)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@type=dis|MultipleResource]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #2345)"
) {
  $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<data:,200411tf#xmlns(t=data:,200411tf%23)>.
                        qq<t:tf($__turi,$__furi)>;
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2346)"

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

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

#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2359)"

#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2351)"
;
} else {
  $resURI = $resourceURI;
}
if (defined $self->{resDef}->{$resURI}) {
  $r = $self->{resDef}->{$resURI};
} else {
  $r = $self->{resDef}->{$resURI}
     = bless {
         uri => $resURI,
         aliasURI => {$resURI => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2352)"
1
#line 15 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2353)"
},
         subOf => {},
         supOf => {},
         db => $self,
         for => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2354)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all'
#line 19 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2355)"
,
         forp => [],
         seq => -1,
       }, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2356)"
'Message::Util::DIS::ManakaiDISResourceDefinition'
#line 22 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@type=dis|MultipleResource]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2357)"
;
  require Scalar::Util;
  Scalar::Util::weaken ($r->{db});
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2358)"

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

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2362)"
}
$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>} = 3;
$Message::Util::DIS::ManakaiDISDatabase::CompatClass{q<Message::Util::DIS::ManakaiDISDatabase>} = 1;
package Message::Util::DIS::ManakaiDISModuleResolver;
our $VERSION = 20050919.1549;
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][@type=dis|MultipleResource]/Method[@Name=uriToDocument][@type=DISLang:Method]/Return[@Type=DISDocument][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2367)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleResolver][@type=dis|MultipleResource]/Method[@Name=uriToDocument][@type=DISLang:Method]/Return[@Type=DISDocument][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2365)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleResolver][@type=dis|MultipleResource]/Method[@Name=uriToDocument][@type=DISLang:Method]/Return[@Type=DISDocument][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2363)"
$r = $self->(@_);
#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 #2368)"
}
$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 = 20050919.1549;
push our @ISA, '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][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2813)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2369)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2805)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2449)"

  if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2371)"
(my $src = $self->{src}) {
    my $for = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2372)"
for_uri
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2373)"
;
    my $forp = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2374)"
forp_uri
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2375)"
;
    my $db = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2376)"
database
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2377)"
;
    for my $el (@{$src->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2378)"
dis_child_elements
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2379)"

                    (for_arg => $for,
                     forp_arg => $forp,
                     database_arg => $db)}) {
      my $xu = $el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2380)"
expanded_uri
#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2381)"
;
      if ({
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2382)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AliasFor'
#line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2383)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2384)"
1
#line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2385)"
,
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2386)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ContentType'
#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2387)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2388)"
1
#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2389)"
,
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2390)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--dataType'
#line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2391)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2392)"
1
#line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2393)"
,
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2394)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--For'
#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2395)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2396)"
1
#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2397)"
,
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2398)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ForCheck'
#line 15 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2399)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2400)"
1
#line 15 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2401)"
,
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2402)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Name'
#line 16 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2403)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2404)"
1
#line 16 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2405)"
,
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2406)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Namespace'
#line 17 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2407)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2408)"
1
#line 17 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2409)"
,
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2410)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--multipleProperties'
#line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2411)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2412)"
1
#line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2413)"
,
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2414)"
'http://www.w3.org/1999/02/22-rdf-syntax-ns#type'
#line 19 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2415)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2416)"
1
#line 19 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2417)"
,
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2418)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--QName'
#line 20 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2419)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2420)"
1
#line 20 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2421)"
,
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2422)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Require'
#line 21 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2423)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2424)"
1
#line 21 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2425)"
,
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2426)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--resourceFor'
#line 22 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2427)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2428)"
1
#line 22 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2429)"
,
      }->{$xu}) {
        #
      } elsif ($el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2430)"
is_property_element
#line 25 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2431)"

                                              (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 #2432)"
get_resource
#line 30 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2433)"

                        ($el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2434)"
expanded_uri
#line 31 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2435)"
);
          my $prop_uri = $prop->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2436)"
uri
#line 32 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2437)"
;
          my $prop_mult = $prop->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2438)"
multiple_properties_uri
#line 33 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2439)"
;
          my $new_value;
          my $base_type;
          my $copy_tree = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2440)"
0
#line 36 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2441)"
;
          
          my %mtopt = (for_arg => $for,
                       forp_arg => $forp,
                       default_media_type => $prop->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2442)"
default_lextype_uri
#line 40 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2443)"
,
                       database_arg => $db);
          if ($el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2444)"
media_type_match
#line 42 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2445)"

              (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2446)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TypeQName'
#line 43 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2447)"
, $mtopt{default_media_type}, %mtopt)) {
            
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2448)"

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

{
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #2457)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #2455)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2451)"
$new_value = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2452)"
Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2453)"

                ($el->media_type_uri (%mtopt), 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 #2454)"

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

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

#line 51 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2497)"

#line 51 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2459)"
;
            $new_value->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2460)"
local_name
#line 52 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2461)"

              ($el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2462)"
qname_value_local_name
#line 53 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2463)"
);
            $new_value->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2464)"
prefix
#line 54 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2465)"

              (my $prefix = $el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2466)"
qname_value_prefix
#line 55 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2467)"
);
            if (not defined $prefix) {
              if ($el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2468)"
media_type_match
#line 57 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2469)"

                            (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2470)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#LanguageTag'
#line 58 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2471)"
,
                             $mtopt{default_media_type}, %mtopt)) {
                $new_value->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2472)"
namespace_uri
#line 60 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2473)"

                  ('urn:x-suika-fam-cx:lang:');
              } elsif ($el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2474)"
media_type_match
#line 62 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2475)"

                            (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2476)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#ScriptTag'
#line 63 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2477)"
,
                             $mtopt{default_media_type}, %mtopt)) {
                $new_value->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2478)"
namespace_uri
#line 65 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2479)"

                  ('http://suika.fam.cx/~wakaba/archive/2005/5/script#');
              } else {
                $new_value->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2480)"
namespace_uri
#line 68 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2481)"

                  ($el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2482)"
qname_value_namespace_uri
#line 69 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2483)"
);
              }
            } else {
              $new_value->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2484)"
namespace_uri
#line 72 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2485)"

                ($el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2486)"
qname_value_namespace_uri
#line 73 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2487)"
);
            }
            ## TODO: Check whether defined
          } elsif ($el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2488)"
media_type_match
#line 76 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2489)"

               (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2490)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TFQNames'
#line 77 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2491)"
, $mtopt{default_media_type}, %mtopt) or
                   $el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2492)"
media_type_match
#line 78 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2493)"

          (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2494)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#TFPQNames'
#line 79 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2495)"
, $mtopt{default_media_type}, %mtopt)) {
            
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2496)"

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

{
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #2507)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #2505)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2499)"
$new_value = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2500)"
Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2501)"

                (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2502)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI'
#line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2503)"
, $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 #2504)"

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

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

#line 88 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2517)"

#line 88 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2509)"
;
            ## TODO: Check whether defined
          } elsif ($el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2510)"
media_type_match
#line 90 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/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/8/18/lang#Perl'
#line 91 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2513)"
, $mtopt{default_media_type},
                              %mtopt)) {
            $el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2514)"
preserve_node_path
#line 93 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2515)"
;
            
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2516)"

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

{
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #2525)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #2523)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2519)"
$new_value = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2520)"
Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2521)"

                ($el->media_type_uri (%mtopt), $el->value, base_type => $base_type = 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl');
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2522)"

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

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

#line 99 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2535)"

#line 99 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2527)"
;
            for my $p (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2528)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Type'
#line 100 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/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/8/18/lang#dis--actualType'
#line 100 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2531)"
) {
              if (UNIVERSAL::isa ($self->{$p},
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2532)"
'Message::Util::IF::DVURIValue'
#line 101 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2533)"
)) {
                my $v;
                
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2534)"

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

{
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #2545)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #2543)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2537)"
$v = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2538)"
Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2539)"

                (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2540)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI'
#line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2541)"
, $self->{$p}->uri);
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2542)"

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

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

#line 106 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2577)"

#line 106 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2547)"
;
                $new_value->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2548)"
set_property
#line 107 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2549)"
 ($p => $v);
              }
            }
            $new_value->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2550)"
default_namespace_uri_ref
#line 110 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2551)"

              ($el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2552)"
get_default_namespace_uri_ref
#line 111 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2553)"
);
            $new_value->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2554)"
namespace_binding_list
#line 112 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2555)"

              ($el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2556)"
get_namespace_binding_list
#line 113 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2557)"
 ($db));
            $new_value->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2558)"
source_node_path
#line 114 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2559)"

              ($el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2560)"
flag
#line 115 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2561)"
 ('nodePath'));
          } elsif ($el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2562)"
media_type_match
#line 116 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2563)"

                           (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2564)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#disdoc'
#line 117 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2565)"
, $mtopt{default_media_type},
                            %mtopt) or
                   $el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2566)"
media_type_match
#line 119 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/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#disdocInline'
#line 120 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2569)"
, $mtopt{default_media_type},
                            %mtopt) or
                   $el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2570)"
media_type_match
#line 122 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2571)"

                             (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2572)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#muf'
#line 123 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2573)"
, $mtopt{default_media_type},
                              %mtopt)) {
            $el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2574)"
preserve_node_path
#line 125 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2575)"
;
            
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2576)"

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

{
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #2585)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #2583)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2579)"
$new_value = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2580)"
Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2581)"

                ($el->media_type_uri (%mtopt), $el->value, base_type => $base_type = 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#disdoc');
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2582)"

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

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

#line 131 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2609)"

#line 131 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2587)"
;
            $new_value->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2588)"
default_namespace_uri_ref
#line 132 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/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 133 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/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 134 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/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 135 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/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 136 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/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 137 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/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 138 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/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#dis'
#line 139 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2603)"
, $mtopt{default_media_type},
                              %mtopt)) {
            $copy_tree = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2604)"
1
#line 141 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2605)"
;
            $el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2606)"
preserve_node_path
#line 142 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2607)"
;
            my $elc = $el->clone;
            
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2608)"

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

{
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #2617)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #2615)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2611)"
$new_value = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2612)"
Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2613)"

                ($el->media_type_uri (%mtopt), $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 #2614)"

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

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

#line 149 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2627)"

#line 149 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2619)"
;
            for my $p (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2620)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Type'
#line 150 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2621)"
, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2622)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--actualType'
#line 150 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2623)"
) {
              if (UNIVERSAL::isa ($self->{$p},
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2624)"
'Message::Util::IF::DVURIValue'
#line 151 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2625)"
)) {
                my $v;
                
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2626)"

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

{
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #2637)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #2635)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2629)"
$v = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2630)"
Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2631)"

                (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2632)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI'
#line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2633)"
, $self->{$p}->uri);
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2634)"

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

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

#line 156 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2645)"

#line 156 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2639)"
;
                $new_value->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2640)"
set_property
#line 157 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2641)"
 ($p => $v);
              }
            }
            $elc->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2642)"
unlink_from_document
#line 160 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2643)"
 ($db);
          } else {
            
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2644)"

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

{
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #2653)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #2651)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2647)"
$new_value = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2648)"
Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2649)"

                ($el->media_type_uri (%mtopt), $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 #2650)"

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

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

#line 167 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2683)"

#line 167 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2655)"
;
          }

          unless ($copy_tree) {
          for my $ce (@{$el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2656)"
dis_child_elements
#line 171 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2657)"

                    (for_arg => $for,
                     forp_arg => $forp,
                     database_arg => $db)}) {
            my $xu = $ce->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2658)"
expanded_uri
#line 175 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2659)"
;
            if ({
              
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2660)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AliasFor'
#line 177 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2661)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2662)"
1
#line 177 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2663)"
,
              
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2664)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--For'
#line 178 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2665)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2666)"
1
#line 178 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/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/8/18/lang#dis--ForCheck'
#line 179 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2669)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2670)"
1
#line 179 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2671)"
,
              
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2672)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ContentType'
#line 180 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2673)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2674)"
1
#line 180 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2675)"
,
              
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2676)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--resourceFor'
#line 181 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2677)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2678)"
1
#line 181 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2679)"
,
            }->{$xu}) {
              #
            } elsif ($ce->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2680)"
is_property_element
#line 184 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2681)"

                                (database_arg => $db)) {
              my $pr;
              
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2682)"

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

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

{
#line 187 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2689)"

#line 187 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2687)"

#line 187 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2685)"

                $pr = $add_prop->($self, $ce, $db);
              
#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 #2690)"
}

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

#line 189 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2699)"

#line 189 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2693)"
;
              if ($pr->{prop_mult} eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2694)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#OrderedList'
#line 190 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2695)"
) {
                my $cpv = $new_value->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2696)"
get_property
#line 191 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2697)"
 ($xu);
                if (not $cpv) {
                  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2698)"

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

{
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVOrderedList][@type=dis|MultipleResource]/ResourceDef[@QName=createOrderedList][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #2707)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVOrderedList][@type=dis|MultipleResource]/ResourceDef[@QName=createOrderedList][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #2705)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVOrderedList][@type=dis|MultipleResource]/ResourceDef[@QName=createOrderedList][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2701)"
$cpv = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2702)"
Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_ordered_list
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVOrderedList][@type=dis|MultipleResource]/ResourceDef[@QName=createOrderedList][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2703)"

  ($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 #2704)"

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

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

#line 197 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2719)"

#line 197 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2709)"
;
                  $new_value->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2710)"
set_property
#line 198 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2711)"
 ($xu => $cpv);
                }
                $cpv->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2712)"
add_item
#line 200 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2713)"
 ($pr->{new_value});
              } elsif ($pr->{prop_mult} eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2714)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#UnorderedList'
#line 201 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2715)"
) {
                my $cpv = $new_value->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2716)"
get_property
#line 202 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2717)"
 ($xu);
                if (not $cpv) {
                  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2718)"

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

{
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVUnorderedList][@type=dis|MultipleResource]/ResourceDef[@QName=createUnorderedList][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #2727)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVUnorderedList][@type=dis|MultipleResource]/ResourceDef[@QName=createUnorderedList][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #2725)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVUnorderedList][@type=dis|MultipleResource]/ResourceDef[@QName=createUnorderedList][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2721)"
$cpv = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2722)"
Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_unordered_list
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVUnorderedList][@type=dis|MultipleResource]/ResourceDef[@QName=createUnorderedList][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2723)"

  ($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 #2724)"

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

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

#line 208 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2737)"

#line 208 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2729)"
;
                  $new_value->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2730)"
set_property
#line 209 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2731)"
 ($xu => $cpv);
                }
                $cpv->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2732)"
add_item
#line 211 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2733)"
 ($pr->{new_value});
              } else {
                $new_value->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2734)"
set_property
#line 213 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2735)"

                                      ($xu => $pr->{new_value});
              }
            } else {
              
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2736)"

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

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

{
#line 217 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2741)"

#line 217 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2739)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2740)"
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 #2742)"
}

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

#line 220 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2747)"

#line 220 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2745)"
;
            }
          }} # copy_tree

          {new_value => $new_value, base_type => $base_type,
           prop_uri => $prop_uri, prop_mult => $prop_mult};
        };
        
        my $pr;
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2746)"

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

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

{
#line 229 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2753)"

#line 229 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2751)"

#line 229 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2749)"

          $pr = $add_prop->($self, $el, $db);
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2750)"

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

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

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

#line 231 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2761)"

#line 231 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2757)"
;
        if ($pr->{prop_mult} eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2758)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#OrderedList'
#line 232 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2759)"
) {
          if (not $self->{$pr->{prop_uri}}) {
            
#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=DVOrderedList][@type=dis|MultipleResource]/ResourceDef[@QName=createOrderedList][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #2769)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVOrderedList][@type=dis|MultipleResource]/ResourceDef[@QName=createOrderedList][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #2767)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVOrderedList][@type=dis|MultipleResource]/ResourceDef[@QName=createOrderedList][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2763)"
$self->{$pr->{prop_uri}} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2764)"
Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_ordered_list
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVOrderedList][@type=dis|MultipleResource]/ResourceDef[@QName=createOrderedList][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2765)"

  ($pr->{new_value}->data_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 #2766)"

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

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

#line 238 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2777)"

#line 238 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2771)"
;
          }
          $self->{$pr->{prop_uri}}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2772)"
add_item
#line 240 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2773)"

            ($pr->{new_value});
        } elsif ($pr->{prop_mult} eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2774)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#UnorderedList'
#line 242 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2775)"
) {
          if (not $self->{$pr->{prop_uri}}) {
            
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2776)"

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

{
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVUnorderedList][@type=dis|MultipleResource]/ResourceDef[@QName=createUnorderedList][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #2785)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVUnorderedList][@type=dis|MultipleResource]/ResourceDef[@QName=createUnorderedList][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #2783)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVUnorderedList][@type=dis|MultipleResource]/ResourceDef[@QName=createUnorderedList][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2779)"
$self->{$pr->{prop_uri}} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2780)"
Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_unordered_list
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVUnorderedList][@type=dis|MultipleResource]/ResourceDef[@QName=createUnorderedList][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2781)"

  ($pr->{new_value}->data_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 #2782)"

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

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

#line 248 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2793)"

#line 248 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2787)"
;
          }
          $self->{$pr->{prop_uri}}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2788)"
add_item
#line 250 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2789)"

            ($pr->{new_value});
        } else {
          $self->{$pr->{prop_uri}} = $pr->{new_value};
        }
      } elsif ($el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2790)"
is_resource_element
#line 255 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2791)"
) {
        ## TODO: Should rdf:type be validated?
      } else {
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2792)"

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

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

{
#line 258 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2797)"

#line 258 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2795)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2796)"
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 #2798)"
}

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

#line 261 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2803)"

#line 261 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2801)"
;
      }
    }
    CORE::delete $self->{src};
    ($opt{on_resource_read} or sub () {})->($self, $self);
  }

#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 267 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2811)"

#line 267 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2809)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2810)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=namespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2819)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=namespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2817)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=namespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2815)"
$r = $self->{namespaceURI};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2816)"

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

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2822)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2823)"
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 #2824)"
}}
sub source_element ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2831)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=sourceElement][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2829)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=sourceElement][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2827)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=sourceElement][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2825)"
$r = $self->{src};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2826)"

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

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2832)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2833)"
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 #2834)"
}}
sub for_uri ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2841)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=forURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2839)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=forURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2837)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=forURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2835)"
$r = $self->{for};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2836)"

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

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2842)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2843)"
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 #2844)"
}}
sub source_node_id ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2853)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=sourceNodeID][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2851)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=sourceNodeID][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2849)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=sourceNodeID][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2845)"
$r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2846)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNodeID'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=sourceNodeID][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2847)"
};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2848)"

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

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=sourceNodeID][@Type=AnyURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [b] (Chunk #2861)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=sourceNodeID][@Type=AnyURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [bc] (Chunk #2859)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=sourceNodeID][@Type=AnyURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #2855)"
$self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2856)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNodeID'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=sourceNodeID][@Type=AnyURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #2857)"
} = $given;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2858)"

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

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

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

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

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

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=isDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2865)"
$r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2866)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isDefined'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=isDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2867)"
};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2868)"

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

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2872)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2874)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2875)"
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 #2876)"
}}
sub is_referred ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2885)"
my ($self) = @_;
my $r = '';

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=isReferred][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2883)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=isReferred][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2881)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=isReferred][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2877)"
$r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2878)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isReferred'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=isReferred][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2879)"
};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2880)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2882)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2884)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2886)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2899)"
my ($self, $given) = @_;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=isReferred][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [b] (Chunk #2897)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=isReferred][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [bc] (Chunk #2895)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=isReferred][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #2887)"
(defined $given) {
  if (ref $given) {
    $given = $given->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2888)"
flag
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=isReferred][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #2889)"
 ('nodePath') ||
             $given->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2890)"
node_path
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=isReferred][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #2891)"

                  (key => [qw/QName Name type Type AppName/]);
  }
  $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2892)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isReferred'
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=isReferred][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #2893)"
} = $given;
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2894)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2896)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2898)"
}

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2900)"
}}
sub owner_module ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2913)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=ownerModule][@type=DISLang:Attribute]/Get[@Type=DISModule][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2911)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=ownerModule][@type=DISLang:Attribute]/Get[@Type=DISModule][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2909)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=ownerModule][@type=DISLang:Attribute]/Get[@Type=DISModule][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2901)"
$r = $self->{db}
          ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2902)"
get_module
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=ownerModule][@type=DISLang:Attribute]/Get[@Type=DISModule][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2903)"

                   (${$self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2904)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#definingModule'
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=ownerModule][@type=DISLang:Attribute]/Get[@Type=DISModule][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2905)"
}})
   if defined $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2906)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#definingModule'
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=ownerModule][@type=DISLang:Attribute]/Get[@Type=DISModule][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2907)"
};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2908)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2910)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2912)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2914)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2915)"
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 #2916)"
}}
sub name_uri ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2923)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=nameURI][@Type=NameURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2921)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=nameURI][@Type=NameURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2919)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=nameURI][@Type=NameURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2917)"
(defined $self->{localName}) {
  $r = defined $self->{namespaceURI}
     ? $self->{namespaceURI} . $self->{localName}
     : $self->{localName};
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2918)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2920)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2922)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2924)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2925)"
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 #2926)"
}}
sub local_name ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2933)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=localName][@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2931)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=localName][@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2929)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=localName][@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2927)"
$r = $self->{localName};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2928)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2930)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2932)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2934)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2935)"
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 #2936)"
}}
sub is_anonymous ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2945)"
my ($self) = @_;
my $r = 0;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=isAnonymous][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2943)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=isAnonymous][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2941)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=isAnonymous][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2937)"
$r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2938)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isAnon'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=isAnonymous][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2939)"
};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2940)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2942)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2944)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2946)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2947)"
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 #2948)"
}}
sub is_for_uri ($$) {
my ($self, $forURI) = @_;
my $r = 0;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2971)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2949)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2950)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2965)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2963)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2961)"

  C: 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2951)"
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 #2952)"
1
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2953)"
;
      last C;
    }
    my $this_for = $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2954)"
get_for
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2955)"

                                       ($this_for_uri);
    if ($this_for->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2956)"
isa_uri
#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2957)"
 ($forURI)) {
      $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2958)"
1
#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2959)"
;
      last C;
    }
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2960)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2962)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2964)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2966)"
}

#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2969)"

#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2967)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2968)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2970)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2972)"
}
$r}
sub uri ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2979)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=uri][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2977)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=uri][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2975)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=uri][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2973)"
$r = $self->{uri};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2974)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2976)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2978)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2980)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2981)"
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 #2982)"
}}
sub forp_uri ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2989)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=forpURI][@Type=ForURIList][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2987)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=forpURI][@Type=ForURIList][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2985)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=forpURI][@Type=ForURIList][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2983)"
$r = [@{$self->{forp}}];
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2984)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2986)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2988)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2990)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2991)"
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 #2992)"
}}
sub has_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 #2997)"

#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [bc] (Chunk #2995)"

#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #2993)"
$feature = lc $feature;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2994)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2996)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2998)"
}

{
#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [b] (Chunk #3003)"

#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [bc] (Chunk #3001)"

#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #2999)"
$version = '' unless defined $version;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3000)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3002)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3004)"
}
my $r = 0;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=hasFeature][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3025)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=hasFeature][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3005)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3006)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3019)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=hasFeature][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3017)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=hasFeature][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3015)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=hasFeature][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3007)"

  $r = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3008)"
get_feature
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=hasFeature][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3009)"
 ($feature, $version)
     ? 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3010)"
1 : 
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=hasFeature][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3011)"

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3012)"
0
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=hasFeature][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3013)"
;

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3014)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3016)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3018)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3020)"
}

#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=hasFeature][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3023)"

#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=hasFeature][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3021)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3022)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3024)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3026)"
}
$r}
sub database ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3033)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=database][@Type=DISDatabase][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3031)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=database][@Type=DISDatabase][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3029)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Attr[@Name=database][@Type=DISDatabase][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3027)"
$r = $self->{db};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3028)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3030)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3032)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3034)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3035)"
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 #3036)"
}}
sub is_same_resource ($$) {
my ($self, $anotherResource) = @_;
my $r = 0;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=isSameResource][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3043)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=isSameResource][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3041)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=isSameResource][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3037)"
(UNIVERSAL::isa ($anotherResource,
                    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3038)"
'Message::Util::DIS::ManakaiDISAnyResource'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@type=dis|MultipleResource]/Method[@Name=isSameResource][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3039)"
)) {
  $r = $self->{uri} eq $anotherResource->{uri};
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3040)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3042)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3044)"
}
$r}
sub uris ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3045)"
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 #3046)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3047)"
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 #3048)"
}}
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 = 20050919.1549;
push our @ISA, 'Message::Util::DIS::ManakaiDISPropertyAccessor', 'Message::Util::DIS::ManakaiDISExceptionTarget', '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 #3055)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@type=dis|MultipleResource]/Attr[@Name=ownerModule][@type=DISLang:Attribute]/Get[@Type=DISModule][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3053)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@type=dis|MultipleResource]/Attr[@Name=ownerModule][@type=DISLang:Attribute]/Get[@Type=DISModule][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3051)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@type=dis|MultipleResource]/Attr[@Name=ownerModule][@type=DISLang:Attribute]/Get[@Type=DISModule][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3049)"
$r = $self;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3050)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3052)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3054)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3056)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3057)"
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 #3058)"
}}
sub is_anonymous ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3067)"
my ($self) = @_;
my $r = 0;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@type=dis|MultipleResource]/Attr[@Name=isAnonymous][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3065)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@type=dis|MultipleResource]/Attr[@Name=isAnonymous][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3063)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@type=dis|MultipleResource]/Attr[@Name=isAnonymous][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3059)"
$r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3060)"
1
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@type=dis|MultipleResource]/Attr[@Name=isAnonymous][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3061)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3062)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3064)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3066)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3068)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3069)"
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 #3070)"
}}
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 #3075)"

#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [bc] (Chunk #3073)"

#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #3071)"
$feature = lc $feature;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3072)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3074)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3076)"
}

{
#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [b] (Chunk #3081)"

#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [bc] (Chunk #3079)"

#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #3077)"
$version = '' unless defined $version;
#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)"
}
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@type=dis|MultipleResource]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3087)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@type=dis|MultipleResource]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3085)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@type=dis|MultipleResource]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3083)"
$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 #3084)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3086)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3088)"
}
$r}
sub uris ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3095)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@type=dis|MultipleResource]/Attr[@Name=uris][@Type=Perl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3093)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@type=dis|MultipleResource]/Attr[@Name=uris][@Type=Perl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3091)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@type=dis|MultipleResource]/Attr[@Name=uris][@Type=Perl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3089)"
$r = [$self->{uri}];
#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::ManakaiDISModuleDefinition', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'uris';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3098)"
}}
$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>} = 7;
$Message::Util::DIS::ManakaiDISModuleDefinition::CompatClass{q<Message::Util::DIS::ManakaiDISModuleDefinition>} = 1;
package Message::Util::DIS::ManakaiDISForDefinition;
our $VERSION = 20050919.1549;
push our @ISA, 'Message::Util::DIS::Perl::ManakaiDISAnyResourcePerl', 'Message::Util::DIS::ManakaiDISAnyResource', 'Message::Util::DIS::ManakaiDISExceptionTarget', '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][@type=dis|MultipleResource]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3123)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@type=dis|MultipleResource]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3101)"
my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@type=dis|MultipleResource]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3099)"
@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 #3100)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3102)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3117)"
local $Error::Depth = $Error::Depth + 1;

{
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@type=dis|MultipleResource]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3115)"

#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@type=dis|MultipleResource]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3113)"

  for 
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@type=dis|MultipleResource]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3103)"
my $from (@from) {
    for my $to (@to) {
      $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3104)"
get_for
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@type=dis|MultipleResource]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3105)"

                              ($from)->{isa}->{$to} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3106)"
1
#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@type=dis|MultipleResource]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3107)"
;
      $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3108)"
get_for
#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@type=dis|MultipleResource]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3109)"

                              ($to)->{revISA}->{$from} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3110)"
1
#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@type=dis|MultipleResource]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3111)"
;
    }
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3112)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3114)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3116)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3118)"
}

#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@type=dis|MultipleResource]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3121)"

#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@type=dis|MultipleResource]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3119)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3120)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3122)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3124)"
}
}
sub name_uri ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3125)"
my ($self) = @_;
my $r;
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3126)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3127)"
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 #3128)"
}}
sub is_anonymous ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3137)"
my ($self) = @_;
my $r = 0;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@type=dis|MultipleResource]/Attr[@Name=isAnonymous][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3135)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@type=dis|MultipleResource]/Attr[@Name=isAnonymous][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3133)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@type=dis|MultipleResource]/Attr[@Name=isAnonymous][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3129)"
$r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3130)"
1
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@type=dis|MultipleResource]/Attr[@Name=isAnonymous][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3131)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3132)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3134)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3136)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3138)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3139)"
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 #3140)"
}}
sub is_for_uri ($$) {
my ($self, $forURI) = @_;
my $r = 0;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@type=dis|MultipleResource]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3147)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@type=dis|MultipleResource]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3145)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@type=dis|MultipleResource]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3141)"
$r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3142)"
1
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@type=dis|MultipleResource]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3143)"
;
#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}
sub forp_uri ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3155)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@type=dis|MultipleResource]/Attr[@Name=forpURI][@Type=ForURIList][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3153)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@type=dis|MultipleResource]/Attr[@Name=forpURI][@Type=ForURIList][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3151)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@type=dis|MultipleResource]/Attr[@Name=forpURI][@Type=ForURIList][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3149)"
$r = [];
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3150)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3152)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3154)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3156)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3157)"
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 #3158)"
}}
sub isa_uri ($$) {
my ($self, $superURI) = @_;
my $r = 0;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@type=dis|MultipleResource]/Method[@Name=isaURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3165)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@type=dis|MultipleResource]/Method[@Name=isaURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3163)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@type=dis|MultipleResource]/Method[@Name=isaURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3159)"
$r = $self->{uri} eq $superURI ? 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3160)"
1 : 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@type=dis|MultipleResource]/Method[@Name=isaURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3161)"
$self->{isa}->{$superURI};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3162)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3164)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3166)"
}
$r}
sub for_uri ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3175)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@type=dis|MultipleResource]/Attr[@Name=forURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3173)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@type=dis|MultipleResource]/Attr[@Name=forURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3171)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@type=dis|MultipleResource]/Attr[@Name=forURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3167)"
$r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3168)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@type=dis|MultipleResource]/Attr[@Name=forURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3169)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3170)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3172)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3174)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3176)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3177)"
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 #3178)"
}}
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 #3183)"

#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [bc] (Chunk #3181)"

#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #3179)"
$feature = lc $feature;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3180)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3182)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3184)"
}

{
#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [b] (Chunk #3189)"

#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [bc] (Chunk #3187)"

#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #3185)"
$version = '' unless defined $version;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3186)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3188)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3190)"
}
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@type=dis|MultipleResource]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3195)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@type=dis|MultipleResource]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3193)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@type=dis|MultipleResource]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3191)"
$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 #3192)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3194)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3196)"
}
$r}
sub uris ($;$) {
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=DISFor][@type=dis|MultipleResource]/Attr[@Name=uris][@Type=Perl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3201)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@type=dis|MultipleResource]/Attr[@Name=uris][@Type=Perl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3199)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@type=dis|MultipleResource]/Attr[@Name=uris][@Type=Perl:Array::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::ManakaiDISForDefinition', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'uris';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3206)"
}}
$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>} = 4;
$Message::Util::DIS::ManakaiDISForDefinition::CompatClass{q<Message::Util::DIS::ManakaiDISForDefinition>} = 1;
package Message::Util::DIS::ManakaiDISResourceDefinition;
our $VERSION = 20050919.1549;
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::DIS::ManakaiDISExceptionTarget', 'Message::Util::IF::DISResource', 'Message::Util::IFLatest::DISResource';
sub dis_data_type_value ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3239)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disDataTypeValue][@type=DISLang:Attribute]/Get[@Type=dv|DVURIValue][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3237)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disDataTypeValue][@type=DISLang:Attribute]/Get[@Type=dv|DVURIValue][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3207)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3208)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3227)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disDataTypeValue][@type=DISLang:Attribute]/Get[@Type=dv|DVURIValue][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3225)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disDataTypeValue][@type=DISLang:Attribute]/Get[@Type=dv|DVURIValue][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3223)"

  if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disDataTypeValue][@type=DISLang:Attribute]/Get[@Type=dv|DVURIValue][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3209)"
(UNIVERSAL::isa ($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3210)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Type'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disDataTypeValue][@type=DISLang:Attribute]/Get[@Type=dv|DVURIValue][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3211)"
}, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3212)"
'Message::Util::IF::DVURIValue'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disDataTypeValue][@type=DISLang:Attribute]/Get[@Type=dv|DVURIValue][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3213)"
)) {
    $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3214)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Type'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disDataTypeValue][@type=DISLang:Attribute]/Get[@Type=dv|DVURIValue][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3215)"
};
  } else {
    my $pr = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3216)"
get_property_resource
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disDataTypeValue][@type=DISLang:Attribute]/Get[@Type=dv|DVURIValue][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3217)"

                          (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3218)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#dynamicParentResource'
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disDataTypeValue][@type=DISLang:Attribute]/Get[@Type=dv|DVURIValue][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3219)"
);
    $r = $pr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3220)"
dis_data_type_value if 
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disDataTypeValue][@type=DISLang:Attribute]/Get[@Type=dv|DVURIValue][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3221)"
$pr;
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3222)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3224)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3226)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3228)"
}

#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disDataTypeValue][@type=DISLang:Attribute]/Get[@Type=dv|DVURIValue][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3231)"

#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disDataTypeValue][@type=DISLang:Attribute]/Get[@Type=dv|DVURIValue][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3229)"
;
unless ($r) {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3230)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3232)"
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 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disDataTypeValue][@type=DISLang:Attribute]/Get[@Type=dv|DVURIValue][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3235)"

#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disDataTypeValue][@type=DISLang:Attribute]/Get[@Type=dv|DVURIValue][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3233)"
;
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3234)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3236)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3238)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3240)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3241)"
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 #3242)"
}}
sub dis_is_null_value ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3291)"
my ($self) = @_;
my $r = 0;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3289)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3251)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3243)"
($self->{prop}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3244)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Value'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3245)"
}) {
  $r = $self->{prop}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3246)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Value'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3247)"
}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3248)"
is_null
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3249)"
;
} elsif ($self->{src}) {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3250)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3252)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3283)"
local $Error::Depth = $Error::Depth + 1;

{
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3281)"

#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3279)"

    my 
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3253)"
$val = $self->{src}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3254)"
dis_get_attribute
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3255)"

                      (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3256)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Value'
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3257)"
,
                       for_arg => $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3258)"
for_uri
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3259)"
,
                       forp_arg => $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3260)"
forp_uri
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3261)"
,
                       database_arg => $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3262)"
database
#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3263)"
);
    if ($val) {
      my $isnull = $val->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3264)"
dis_get_attribute
#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3265)"

                      (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3266)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--is-null'
#line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3267)"
,
                       for_arg => $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3268)"
for_uri
#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3269)"
,
                       forp_arg => $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3270)"
forp_uri
#line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3271)"
,
                       database_arg => $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3272)"
database
#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3273)"
);
      if ($isnull and $isnull->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3274)"
value
#line 15 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3275)"
) {
        $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3276)"
1
#line 16 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3277)"
;
      }
    }
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3278)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3280)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3282)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3284)"
}

#line 22 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3287)"

#line 22 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@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 #3293)"
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 #3294)"
}}
sub add_super_resource ($$) {
my ($self, $superRes) = @_;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3319)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3297)"
my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3295)"
@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 #3296)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3298)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3313)"
local $Error::Depth = $Error::Depth + 1;

{
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3311)"

#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3309)"

  for 
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3299)"
my $from (@from) {
    for my $to (@to) {
      $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3300)"
get_resource
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3301)"

                              ($from)->{subOf}->{$to} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3302)"
1
#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3303)"
;
      $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3304)"
get_resource
#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3305)"

                              ($to)->{supOf}->{$from} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3306)"
1
#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3307)"
;
    }
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3308)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3310)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3312)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3314)"
}

#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3317)"

#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3315)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3316)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3318)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3320)"
}
}
sub dis_actual_data_type_value ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3359)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disActualDataTypeValue][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3357)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disActualDataTypeValue][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3321)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3322)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3347)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disActualDataTypeValue][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3345)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disActualDataTypeValue][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3343)"

  if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disActualDataTypeValue][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3323)"
(UNIVERSAL::isa ($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3324)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--actualType'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disActualDataTypeValue][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3325)"
},
                      
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3326)"
'Message::Util::IF::DVURIValue'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disActualDataTypeValue][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3327)"
)) {
    $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3328)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--actualType'
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disActualDataTypeValue][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3329)"
};
  } elsif (UNIVERSAL::isa ($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3330)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Type'
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disActualDataTypeValue][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3331)"
},
                           
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3332)"
'Message::Util::IF::DVURIValue'
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disActualDataTypeValue][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3333)"
)) {
    $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3334)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Type'
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disActualDataTypeValue][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3335)"
};
  } else {
    my $pr = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3336)"
get_property_resource
#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disActualDataTypeValue][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3337)"

                          (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3338)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#dynamicParentResource'
#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disActualDataTypeValue][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3339)"
);
    $r = $pr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3340)"
dis_actual_data_type_value if 
#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disActualDataTypeValue][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3341)"
$pr;
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3342)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3344)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3346)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3348)"
}

#line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disActualDataTypeValue][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3351)"

#line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disActualDataTypeValue][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3349)"
;
unless ($r) {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3350)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3352)"
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 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disActualDataTypeValue][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3355)"

#line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disActualDataTypeValue][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3353)"
;
}
#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::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 #3362)"
}}
sub feature_name_list ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3403)"
my ($self) = @_;
my $r = [];

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3401)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3363)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3364)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3395)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3393)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3391)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3365)"

  $r = [map {lc} @{$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3366)"
get_property_text_list
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3367)"

                    (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3368)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AppName'
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3369)"
,
                     default_media_type => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3370)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--String'
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3371)"
)}];
  unless (@$r) {
    ## TODO: instance feature
    my $pr = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3372)"
get_property_resource
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3373)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3374)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#parentResource'
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3375)"
);
    if ($pr) {
      if ($pr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3376)"
is_type_uri
#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3377)"

                    (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3378)"
'http://suika.fam.cx/~wakaba/archive/2004/dom/main#DOMFeature'
#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3379)"
) and
          not $pr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3380)"
is_anonymous
#line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3381)"
) {
        push @$r, @{$pr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3382)"
feature_name_list
#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3383)"
};
      }
    }
  }
  unless (@$r) {
    if ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3384)"
is_anonymous
#line 17 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3385)"
) {
      my $ln = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3386)"
local_name
#line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3387)"
;
      push @$r, lc $ln if defined $ln;
    } else {
      push @$r, lc $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3388)"
name_uri
#line 21 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3389)"
;
    }
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3390)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3392)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3394)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3396)"
}

#line 25 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3399)"

#line 25 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3397)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3398)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3400)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3402)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3404)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3405)"
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 #3406)"
}}
sub is_type_uri ($$) {
my ($self, $typeURI) = @_;
my $r = 0;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3445)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3415)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3407)"
(not $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3408)"
'http://www.w3.org/1999/02/22-rdf-syntax-ns#type'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3409)"
}) {
  #
} elsif ($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3410)"
'http://www.w3.org/1999/02/22-rdf-syntax-ns#type'
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3411)"
}->{$typeURI}) {
  $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3412)"
1
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3413)"
;
} else {
  
#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 #3439)"
local $Error::Depth = $Error::Depth + 1;

{
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3437)"

#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3435)"

    C: 
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3417)"
for my $t_type_uri (grep {$self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3418)"
'http://www.w3.org/1999/02/22-rdf-syntax-ns#type'
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3419)"
}->{$_}}
                                keys %{$self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3420)"
'http://www.w3.org/1999/02/22-rdf-syntax-ns#type'
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3421)"
}}) {
      my $t_type = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3422)"
database
#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3423)"

                        ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3424)"
get_resource
#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3425)"
 ($t_type_uri);
      if ($t_type->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3426)"
is_subset_of_uri
#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3427)"
 ($typeURI)) {
        $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3428)"
add_peoperty_uri_ulist
#line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3429)"

                                    (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3430)"
'http://www.w3.org/1999/02/22-rdf-syntax-ns#type'
#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3431)"
, $typeURI);
        $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3432)"
1
#line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3433)"
;
        last C;
      }
    }
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3434)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3436)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3438)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3440)"
}

#line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3443)"

#line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3441)"
;
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3442)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3444)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3446)"
}
$r}
sub is_subset_of_uri ($$) {
my ($self, $superURI) = @_;
my $r = 0;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=isSubsetOfURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3451)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=isSubsetOfURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3449)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=isSubsetOfURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3447)"
$r = $self->{aliasURI}->{$superURI} || $self->{subOf}->{$superURI};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3448)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3450)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3452)"
}
$r}
sub merge_as_alias ($$%) {
my ($self, $aliasResource, %opt) = @_;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3491)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3455)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3453)"
($self eq $aliasResource) {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3454)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3456)"
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][@type=dis|MultipleResource]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3469)"

#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3457)"
;
}
for my $uri ($aliasResource->{uri}, 
             grep {$aliasResource->{aliasURI}->{$_}}
                  keys %{$aliasResource->{aliasURI}}) {
  $self->{aliasURI}->{$uri} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3458)"
1
#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3459)"
;
  $self->{db}->{resDef}->{$uri} = $self;
  $self->{subOf}->{$uri} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3460)"
1
#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3461)"
;
  $self->{supOf}->{$uri} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3462)"
1
#line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3463)"
;
}
for my $uri (grep {$aliasResource->{subOf}->{$_}}
                  keys %{$aliasResource->{subOf}}) {
  $self->{subOf}->{$uri} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3464)"
1
#line 17 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3465)"
;
}
for my $uri (grep {$aliasResource->{supOf}->{$_}}
                  keys %{$aliasResource->{supOf}}) {
  $self->{supOf}->{$uri} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3466)"
1
#line 21 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3467)"
;
}
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 #3468)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3470)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3485)"
local $Error::Depth = $Error::Depth + 1;

{
#line 25 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3483)"

#line 25 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3481)"

  for 
#line 25 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3471)"
my $from (@from) {
    for my $to (@to) {
      $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3472)"
get_resource
#line 27 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3473)"

                              ($from)->{subOf}->{$to} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3474)"
1
#line 28 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3475)"
;
      $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3476)"
get_resource
#line 29 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3477)"

                              ($to)->{supOf}->{$from} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3478)"
1
#line 30 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3479)"
;
    }
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3480)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3482)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3484)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3486)"
}

#line 34 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3489)"

#line 34 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3487)"
;
#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)"
}
}
sub get_child_resource_by_type ($$) {
my ($self, $typeURI) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=getChildResourceByType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3515)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=getChildResourceByType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3493)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3494)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3509)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=getChildResourceByType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3507)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=getChildResourceByType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3505)"

  for 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=getChildResourceByType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3495)"
my $cr_uri (map {
                    $_->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3496)"
uri
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=getChildResourceByType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3497)"

                  } @{$self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3498)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#childResource'
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=getChildResourceByType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3499)"
}}) {
    my $cr = $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3500)"
get_resource
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=getChildResourceByType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3501)"

                                     ($cr_uri);
    if ($cr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3502)"
is_type_uri
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=getChildResourceByType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3503)"
 ($typeURI)) {
      $r = $cr;
      last;
    }
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3504)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3506)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3508)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3510)"
}

#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=getChildResourceByType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3513)"

#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=getChildResourceByType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3511)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3512)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3514)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3516)"
}
$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][@type=dis|MultipleResource]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3541)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3517)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3518)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3535)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3533)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3531)"

  for 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3519)"
my $cr_uri (map {
                    $_->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3520)"
uri
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3521)"

                  } @{$self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3522)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#childResource'
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3523)"
}}) {
    my $cr = $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3524)"
get_resource
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3525)"

                                     ($cr_uri);
    my $ln = $cr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3526)"
local_name
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3527)"
;
    if (defined $ln and $ln eq $localName and
        $cr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3528)"
is_type_uri
#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3529)"
 ($typeURI)) {
      $r = $cr;
      last;
    }
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3530)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3532)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3534)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3536)"
}

#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3539)"

#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3537)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3538)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3540)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3542)"
}
$r}
sub dis_data_type_resource ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3579)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3577)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3543)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3544)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3567)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3565)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3563)"

  if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3545)"
(UNIVERSAL::isa ($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3546)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Type'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3547)"
}, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3548)"
'Message::Util::IF::DVURIValue'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3549)"
)) {
    $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3550)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Type'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3551)"
}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3552)"
get_resource
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3553)"

             ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3554)"
database
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3555)"
);
  } else {
    my $pr = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3556)"
get_property_resource
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3557)"

                          (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3558)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#dynamicParentResource'
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3559)"
);
    $r = $pr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3560)"
dis_data_type_resource if 
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3561)"
$pr;
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3562)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3564)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3566)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3568)"
}

#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3571)"

#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3569)"
;
unless ($r) {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3570)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3572)"
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 15 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3575)"

#line 15 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3573)"
;
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3574)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3576)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3578)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3580)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3581)"
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 #3582)"
}}
sub get_const_resource_by_name ($$) {
my ($self, $localName) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3617)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3583)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3584)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3611)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3609)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3607)"

  my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3585)"
@constGroup;
  for my $cr_uri (map {
                    $_->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3586)"
uri
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3587)"

                  } @{$self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3588)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#childResource'
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3589)"
}}) {
    my $cr = $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3590)"
get_resource
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3591)"

                                     ($cr_uri);
    my $ln = $cr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3592)"
local_name
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3593)"
;
    if ($ln and $ln eq $localName and
        $cr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3594)"
is_type_uri
#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3595)"

                 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3596)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Const'
#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3597)"
)) {
      $r = $cr;
      last;
    } elsif ($cr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3598)"
is_type_uri
#line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3599)"

                        (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3600)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ConstGroup'
#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3601)"
)) {
      push @constGroup, $cr;
    }
  }
  unless ($r) {
    for my $cg (@constGroup) {
      $r = $cg->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3602)"
get_child_resource_by_name_and_type
#line 20 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3603)"

                     ($localName, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3604)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Const'
#line 21 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3605)"
);
      last if $r;
    }
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3606)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3608)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3610)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3612)"
}

#line 27 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3615)"

#line 27 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3613)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3614)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3616)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3618)"
}
$r}
sub is_feature_provided ($$) {
my ($self, $featureResourceURI) = @_;
my $r = 0;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3651)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3619)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3620)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3645)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3643)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3641)"

  my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3621)"
@f = @{$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3622)"
get_property_resource_list
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3623)"

                            (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3624)"
'http://suika.fam.cx/~wakaba/archive/2004/dom/main#implementFeature'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3625)"
,
                             isa_recursive => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3626)"
1
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3627)"
,
                             default_media_type => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3628)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TypeQName'
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3629)"
)};
  if (@f) {
    for my $f (@f) {
      if ($f->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3630)"
is_subset_of_uri
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3631)"

                   ($featureResourceURI)) {
        $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3632)"
1
#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3633)"
;
        last;
      }
    }
  } else {
    my $parent = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3634)"
get_property_resource
#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3635)"

                             (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3636)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#parentResource'
#line 15 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3637)"
);
    $r = $parent->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3638)"
is_feature_provided
#line 16 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3639)"

                             ($featureResourceURI)
      if $parent;
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3640)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3642)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3644)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3646)"
}

#line 23 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3649)"

#line 23 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3647)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3648)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3650)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3652)"
}
$r}
sub default_lextype_uri ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3681)"
my ($self) = @_;
my $r = '';

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=defaultLextypeURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3679)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=defaultLextypeURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3653)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3654)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3673)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=defaultLextypeURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3671)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=defaultLextypeURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3669)"

  if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=defaultLextypeURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3655)"
($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3656)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--dataType'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=defaultLextypeURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3657)"
}) {
    $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3658)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--dataType'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=defaultLextypeURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3659)"
}
              ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3660)"
get_resource
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=defaultLextypeURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3661)"

                    ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3662)"
database
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=defaultLextypeURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3663)"
)
              ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3664)"
uri
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=defaultLextypeURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3665)"
;
  } else {
    $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3666)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#String'
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=defaultLextypeURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3667)"
;
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3668)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3670)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3672)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3674)"
}

#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=defaultLextypeURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3677)"

#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=defaultLextypeURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3675)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3676)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3678)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3680)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3682)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3683)"
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 #3684)"
}}
sub dis_actual_data_type_resource ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3731)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3729)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3685)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3686)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3719)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3717)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3715)"

  if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3687)"
(UNIVERSAL::isa ($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3688)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--actualType'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3689)"
},
                      
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3690)"
'Message::Util::IF::DVURIValue'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3691)"
)) {
    $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3692)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--actualType'
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3693)"
}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3694)"
get_resource
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3695)"

            ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3696)"
database
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3697)"
);
  } elsif (UNIVERSAL::isa ($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3698)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Type'
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3699)"
},
                           
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3700)"
'Message::Util::IF::DVURIValue'
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3701)"
)) {
    $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3702)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Type'
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3703)"
}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3704)"
get_resource
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3705)"

            ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3706)"
database
#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3707)"
);
  } else {
    my $pr = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3708)"
get_property_resource
#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3709)"

                          (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3710)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#dynamicParentResource'
#line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3711)"
);
    $r = $pr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3712)"
dis_actual_data_type_resource if 
#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3713)"
$pr;
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3714)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3716)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3718)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3720)"
}

#line 15 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3723)"

#line 15 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3721)"
;
unless ($r) {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3722)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3724)"
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 20 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3727)"

#line 20 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3725)"
;
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3726)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3728)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3730)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3732)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3733)"
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 #3734)"
}}
sub multiple_properties_uri ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3763)"
my ($self) = @_;
my $r = '';

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=multiplePropertiesURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3761)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=multiplePropertiesURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3735)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3736)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3755)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=multiplePropertiesURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3753)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=multiplePropertiesURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3751)"

  if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=multiplePropertiesURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3737)"
($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3738)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--multipleProperties'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=multiplePropertiesURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3739)"
}) {
    $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3740)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--multipleProperties'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=multiplePropertiesURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3741)"
}
              ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3742)"
get_resource
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=multiplePropertiesURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3743)"

                    ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3744)"
database
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=multiplePropertiesURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3745)"
)
              ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3746)"
uri
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=multiplePropertiesURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3747)"
;
  } else {
    $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3748)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#OrderedList'
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=multiplePropertiesURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3749)"
;
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3750)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3752)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3754)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3756)"
}

#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=multiplePropertiesURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3759)"

#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=multiplePropertiesURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3757)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3758)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3760)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3762)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3764)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3765)"
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 #3766)"
}}
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 #3771)"

#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [bc] (Chunk #3769)"

#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #3767)"
$feature = lc $feature;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3768)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3770)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3772)"
}

{
#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [b] (Chunk #3777)"

#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [bc] (Chunk #3775)"

#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #3773)"
$version = '' unless defined $version;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3774)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3776)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3778)"
}
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3783)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3781)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3779)"
$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 #3780)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3782)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3784)"
}
$r}
sub uris ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3791)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=uris][@Type=Perl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3789)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=uris][@Type=Perl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3787)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=uris][@Type=Perl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3785)"
$r = [grep {$self->{aliasURI}->{$_}} keys %{$self->{aliasURI}}];
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3786)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3788)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3790)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3792)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3793)"
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 #3794)"
}}
sub owner_class_node_uri ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3829)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3827)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3801)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3795)"
(exists $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3796)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#ownerClass'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3797)"
}) {
  $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3798)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#ownerClass'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3799)"
};
} else {
  my $res = $self;
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3800)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3802)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3819)"
local $Error::Depth = $Error::Depth + 1;

{
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3817)"

#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3815)"

    RES: 
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3803)"
{
      if ($res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3804)"
is_type_uri
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3805)"

                     (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3806)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Class'
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3807)"
)) {
        $r = $res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3808)"
source_node_id
#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3809)"
;
      } else {
        $res = $res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3810)"
get_property_resource
#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3811)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3812)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#parentResource'
#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3813)"
);
        redo RES if $res;
      }
    }
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3814)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3816)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3818)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3820)"
}

#line 16 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3825)"

#line 16 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3821)"
;
  $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3822)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#ownerClass'
#line 17 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3823)"
} = $r;
}
#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)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3830)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3831)"
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 #3832)"
}}
use overload bool => sub () {1}, '<=>' => sub ($$) {
my ($self, $anotherResource) = @_;
my $r = 0;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain:unsigned-long::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3839)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain:unsigned-long::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3837)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain:unsigned-long::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3833)"
(UNIVERSAL::isa ($anotherResource,
                    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3834)"
'Message::Util::DIS::ManakaiDISResourceDefinition'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@type=dis|MultipleResource]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain:unsigned-long::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3835)"
)) {
  $r = $self->{seq} <=> $anotherResource->{seq};
} else {
  $r = overload::Overloaded ($self) <=> $anotherResource;
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3836)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3838)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3840)"
}
$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>} = 8;
$Message::Util::DIS::ManakaiDISResourceDefinition::CompatClass{q<Message::Util::DIS::ManakaiDISResourceDefinition>} = 1;
package Message::Util::DIS::ManakaiDISResourceMV;
our $VERSION = 20050919.1549;
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 #3871)"
my ($self) = @_;
my $r = '';

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@type=dis|MultipleResource]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3869)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@type=dis|MultipleResource]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3841)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3842)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3863)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@type=dis|MultipleResource]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3861)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@type=dis|MultipleResource]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3859)"

  if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@type=dis|MultipleResource]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3843)"
(UNIVERSAL::isa ($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3844)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AppName'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@type=dis|MultipleResource]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3845)"
},
                      
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3846)"
'Message::Util::IF::DVQNameValue'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@type=dis|MultipleResource]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3847)"
)) {
    $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3848)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AppName'
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@type=dis|MultipleResource]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3849)"
}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3850)"
prefix
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@type=dis|MultipleResource]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3851)"
;
  }
  unless (defined $r) {
    my $nsuri = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3852)"
mv_namespace_uri
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@type=dis|MultipleResource]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3853)"
;
    if (defined $nsuri and $nsuri =~ /([A-Za-z]\w*)\W*$/) {
      $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3854)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvPrefix'
#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@type=dis|MultipleResource]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3855)"
} = $1;
    } elsif (defined $nsuri) {
      $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3856)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvPrefix'
#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@type=dis|MultipleResource]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3857)"
} = 'ns';
    }
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3858)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3860)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3862)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3864)"
}

#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@type=dis|MultipleResource]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3867)"

#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@type=dis|MultipleResource]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3865)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3866)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3868)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3870)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3872)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3873)"
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 #3874)"
}}
sub mv_owner_element_resource ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3911)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@type=dis|MultipleResource]/Attr[@Name=mvOwnerElementResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3909)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@type=dis|MultipleResource]/Attr[@Name=mvOwnerElementResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3875)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3876)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3903)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@type=dis|MultipleResource]/Attr[@Name=mvOwnerElementResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3901)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@type=dis|MultipleResource]/Attr[@Name=mvOwnerElementResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3899)"

  if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@type=dis|MultipleResource]/Attr[@Name=mvOwnerElementResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3877)"
(exists $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3878)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvOwnerElementURI'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@type=dis|MultipleResource]/Attr[@Name=mvOwnerElementResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3879)"
}) {
    $r = $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3880)"
get_resource
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@type=dis|MultipleResource]/Attr[@Name=mvOwnerElementResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3881)"

                        ($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3882)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvOwnerElementURI'
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@type=dis|MultipleResource]/Attr[@Name=mvOwnerElementResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3883)"
})
      if defined $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3884)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvOwnerElementURI'
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@type=dis|MultipleResource]/Attr[@Name=mvOwnerElementResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3885)"
};
  } elsif (defined $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3886)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#parentResource'
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@type=dis|MultipleResource]/Attr[@Name=mvOwnerElementResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3887)"
}) {
    $r = $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3888)"
get_resource
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@type=dis|MultipleResource]/Attr[@Name=mvOwnerElementResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3889)"

                        ($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3890)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#parentResource'
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@type=dis|MultipleResource]/Attr[@Name=mvOwnerElementResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3891)"
});
    undef $r unless $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3892)"
is_type_uri
#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@type=dis|MultipleResource]/Attr[@Name=mvOwnerElementResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3893)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3894)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Markup#AnyOwnerElement'
#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@type=dis|MultipleResource]/Attr[@Name=mvOwnerElementResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3895)"
);
    $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3896)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvOwnerElementURI'
#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@type=dis|MultipleResource]/Attr[@Name=mvOwnerElementResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3897)"
} = $r->{uri} if $r;
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3898)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3900)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3902)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3904)"
}

#line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@type=dis|MultipleResource]/Attr[@Name=mvOwnerElementResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3907)"

#line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@type=dis|MultipleResource]/Attr[@Name=mvOwnerElementResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3905)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3906)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3908)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3910)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3912)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3913)"
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 #3914)"
}}
sub mv_namespace_uri ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3939)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@type=dis|MultipleResource]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3937)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@type=dis|MultipleResource]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3915)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3916)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3931)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@type=dis|MultipleResource]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3929)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@type=dis|MultipleResource]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3927)"

  if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@type=dis|MultipleResource]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3917)"
(UNIVERSAL::isa ($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3918)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AppName'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@type=dis|MultipleResource]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3919)"
},
                      
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3920)"
'Message::Util::IF::DVQNameValue'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@type=dis|MultipleResource]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3921)"
)) {
    $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3922)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AppName'
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@type=dis|MultipleResource]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3923)"
}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3924)"
namespace_uri
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@type=dis|MultipleResource]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3925)"
;
  } else {
    $r = $self->{namespaceURI};
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3926)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3928)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3930)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3932)"
}

#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@type=dis|MultipleResource]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3935)"

#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@type=dis|MultipleResource]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3933)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3934)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3936)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3938)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3940)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3941)"
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 #3942)"
}}
sub mv_local_name ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3967)"
my ($self) = @_;
my $r = '';

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@type=dis|MultipleResource]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3965)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@type=dis|MultipleResource]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3943)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3944)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3959)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@type=dis|MultipleResource]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3957)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@type=dis|MultipleResource]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3955)"

  if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@type=dis|MultipleResource]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3945)"
(UNIVERSAL::isa ($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3946)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AppName'
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@type=dis|MultipleResource]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3947)"
},
                      
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3948)"
'Message::Util::IF::DVQNameValue'
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@type=dis|MultipleResource]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3949)"
)) {
    $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3950)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AppName'
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@type=dis|MultipleResource]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3951)"
}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3952)"
local_name
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@type=dis|MultipleResource]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3953)"
;
  } else {
    $r = $self->{localName};
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3954)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3956)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3958)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3960)"
}

#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@type=dis|MultipleResource]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3963)"

#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@type=dis|MultipleResource]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3961)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3962)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3964)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3966)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3968)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3969)"
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 #3970)"
}}
$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 = 20050919.1549;
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][@type=dis|MultipleResource]/Method[@Name=getPropertyText][@type=DISLang:Method]/Return[@Type=swcfg21:SWCFGString::swcfg21:ForLatest][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3983)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyText][@type=DISLang:Method]/Return[@Type=swcfg21:SWCFGString::swcfg21:ForLatest][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3981)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyText][@type=DISLang:Method]/Return[@Type=swcfg21:SWCFGString::swcfg21:ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3971)"
(defined $self->{$propName}) {
  $r = $self->{$propName}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3972)"
string_value
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyText][@type=DISLang:Method]/Return[@Type=swcfg21:SWCFGString::swcfg21:ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3973)"
;
  $r = $default unless defined $r;
} else {
  my $pr = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3974)"
database
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyText][@type=DISLang:Method]/Return[@Type=swcfg21:SWCFGString::swcfg21:ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3975)"

                ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3976)"
get_resource
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyText][@type=DISLang:Method]/Return[@Type=swcfg21:SWCFGString::swcfg21:ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3977)"
 ($propName);
  C: {
    for (map {$self->{$_}}
         grep {$pr->{aliasURI}->{$_} or $pr->{subOf}->{$_}}
         (keys %{$pr->{aliasURI}}, keys %{$pr->{subOf}})) {
      if (defined $_) {
        $r = $_->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3978)"
string_value
#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyText][@type=DISLang:Method]/Return[@Type=swcfg21:SWCFGString::swcfg21:ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3979)"
;
        last C;
      }
    }
    $r = $default;
  } # C
}
#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}
sub add_property_resource_ulist ($$$) {
my ($self, $propName, $res) = @_;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=addPropertyResourceUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4033)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=addPropertyResourceUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3987)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=addPropertyResourceUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3985)"
($self->{$propName}) {
  my $uriv;
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3986)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3988)"

{
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #3997)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #3995)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #3989)"
$uriv = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3990)"
Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #3991)"

                (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3992)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI'
#line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #3993)"
, $res->uri);
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3994)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3996)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3998)"
}

#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=addPropertyResourceUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4003)"

#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=addPropertyResourceUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3999)"
;
  $self->{$propName}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4000)"
add_item
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=addPropertyResourceUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4001)"
 ($uriv);
} else {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4002)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4004)"

{
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVUnorderedList][@type=dis|MultipleResource]/ResourceDef[@QName=createUnorderedList][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #4011)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVUnorderedList][@type=dis|MultipleResource]/ResourceDef[@QName=createUnorderedList][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #4009)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVUnorderedList][@type=dis|MultipleResource]/ResourceDef[@QName=createUnorderedList][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4005)"
$self->{$propName} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4006)"
Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_unordered_list
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVUnorderedList][@type=dis|MultipleResource]/ResourceDef[@QName=createUnorderedList][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4007)"

  ('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 #4008)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4010)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4012)"
}

#line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=addPropertyResourceUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4015)"

#line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=addPropertyResourceUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4013)"
;
  my $uriv;
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4014)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4016)"

{
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #4025)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #4023)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4017)"
$uriv = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4018)"
Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4019)"

                (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4020)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI'
#line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4021)"
, $res->uri);
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4022)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4024)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4026)"
}

#line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=addPropertyResourceUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4031)"

#line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=addPropertyResourceUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4027)"
;
  $self->{$propName}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4028)"
add_item
#line 19 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=addPropertyResourceUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4029)"
 ($uriv);
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4030)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4032)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4034)"
}
}
sub get_property_text_list ($$%) {
my ($self, $propName, %opt) = @_;
my $r = [];

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyTextList][@type=DISLang:Method]/Return[@Type=Perl|ARRAY||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4045)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyTextList][@type=DISLang:Method]/Return[@Type=Perl|ARRAY||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4043)"
my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyTextList][@type=DISLang:Method]/Return[@Type=Perl|ARRAY||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4035)"
$pr = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4036)"
database
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyTextList][@type=DISLang:Method]/Return[@Type=Perl|ARRAY||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4037)"

              ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4038)"
get_resource
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyTextList][@type=DISLang:Method]/Return[@Type=Perl|ARRAY||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4039)"
 ($propName);
$r = [map {$_->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4040)"
string_value
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyTextList][@type=DISLang:Method]/Return[@Type=Perl|ARRAY||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4041)"
}
      map {@$_}
      grep {$_}
      map {$self->{$_}}
      grep {$pr->{aliasURI}->{$_} or $pr->{subOf}->{$_}}
      (keys %{$pr->{aliasURI}}, keys %{$pr->{subOf}})];
#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 add_property_resource_list ($$$) {
my ($self, $propName, $res) = @_;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=addPropertyResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4095)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=addPropertyResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4049)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=addPropertyResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4047)"
($self->{$propName}) {
  my $uriv;
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4048)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4050)"

{
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #4059)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #4057)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4051)"
$uriv = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4052)"
Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4053)"

                (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4054)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI'
#line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4055)"
, $res->uri);
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4056)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4058)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4060)"
}

#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=addPropertyResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4065)"

#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=addPropertyResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4061)"
;
  $self->{$propName}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4062)"
add_item
#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=addPropertyResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4063)"
 ($uriv);
} else {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4064)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4066)"

{
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVOrderedList][@type=dis|MultipleResource]/ResourceDef[@QName=createOrderedList][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #4073)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVOrderedList][@type=dis|MultipleResource]/ResourceDef[@QName=createOrderedList][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #4071)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVOrderedList][@type=dis|MultipleResource]/ResourceDef[@QName=createOrderedList][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4067)"
$self->{$propName} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4068)"
Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_ordered_list
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVOrderedList][@type=dis|MultipleResource]/ResourceDef[@QName=createOrderedList][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4069)"

  ('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 #4070)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4072)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4074)"
}

#line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=addPropertyResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4077)"

#line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=addPropertyResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4075)"
;
  my $uriv;
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4076)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4078)"

{
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #4087)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #4085)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4079)"
$uriv = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4080)"
Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4081)"

                (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4082)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI'
#line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4083)"
, $res->uri);
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4084)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4086)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4088)"
}

#line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=addPropertyResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4093)"

#line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=addPropertyResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4089)"
;
  $self->{$propName}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4090)"
add_item
#line 19 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=addPropertyResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4091)"
 ($uriv);
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4092)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4094)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4096)"
}
}
sub get_property_boolean ($$$) {
my ($self, $propName, $default) = @_;
my $r = 0;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyBoolean][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4117)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyBoolean][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4115)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyBoolean][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4097)"
(ref $self->{$propName}) {
  $r = $self->{$propName}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4098)"
value
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyBoolean][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4099)"
 ? 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4100)"
1 : 
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyBoolean][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4101)"

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4102)"
0
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyBoolean][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4103)"
;
  $r = $default unless defined $r;
} else {
  my $pr = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4104)"
database
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyBoolean][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4105)"

                ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4106)"
get_resource
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyBoolean][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4107)"
 ($propName);
  C: {
    for (map {$self->{$_}}
         grep {$pr->{aliasURI}->{$_} or $pr->{subOf}->{$_}}
         (keys %{$pr->{aliasURI}}, keys %{$pr->{subOf}})) {
      if (defined $_) {
        $r = $_->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4108)"
value
#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyBoolean][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4109)"
 ? 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4110)"
1 : 
#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyBoolean][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4111)"

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4112)"
0
#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyBoolean][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4113)"
;
        last C;
      }
    }
    $r = $default;
  } # C
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4114)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4116)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4118)"
}
$r}
sub get_property_value ($$) {
my ($self, $propName) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyValue][@type=DISLang:Method]/Return[@Type=dv|DVValue][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4123)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyValue][@type=DISLang:Method]/Return[@Type=dv|DVValue][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4121)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyValue][@type=DISLang:Method]/Return[@Type=dv|DVValue][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4119)"
$r = $self->{$propName};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4120)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4122)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4124)"
}
$r}
sub add_peoperty_uri_ulist ($$$) {
my ($self, $propName, $uri) = @_;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=addPropertyURIUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4183)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=addPropertyURIUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4125)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4126)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4177)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=addPropertyURIUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4175)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=addPropertyURIUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4129)"

  if 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=addPropertyURIUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4127)"
($self->{$propName}) {
    my $uriv;
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4128)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4130)"

{
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #4139)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #4137)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4131)"
$uriv = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4132)"
Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4133)"

                (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4134)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI'
#line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4135)"
, $uri);
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4136)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4138)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4140)"
}

#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=addPropertyURIUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4145)"

#line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=addPropertyURIUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4141)"
;
    $self->{$propName}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4142)"
add_item
#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=addPropertyURIUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4143)"
 ($uriv);
  } else {
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4144)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4146)"

{
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVUnorderedList][@type=dis|MultipleResource]/ResourceDef[@QName=createUnorderedList][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #4153)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVUnorderedList][@type=dis|MultipleResource]/ResourceDef[@QName=createUnorderedList][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #4151)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVUnorderedList][@type=dis|MultipleResource]/ResourceDef[@QName=createUnorderedList][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4147)"
$self->{$propName} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4148)"
Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_unordered_list
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVUnorderedList][@type=dis|MultipleResource]/ResourceDef[@QName=createUnorderedList][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4149)"

  ('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 #4150)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4152)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4154)"
}

#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=addPropertyURIUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4157)"

#line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=addPropertyURIUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4155)"
;
    my $uriv;
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4156)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4158)"

{
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #4167)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #4165)"

#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4159)"
$uriv = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4160)"
Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value
#line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4161)"

                (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4162)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI'
#line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@type=dis|MultipleResource]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4163)"
, $uri);
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4164)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4166)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4168)"
}

#line 19 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=addPropertyURIUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4173)"

#line 19 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=addPropertyURIUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4169)"
;
    $self->{$propName}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4170)"
add_item
#line 20 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=addPropertyURIUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4171)"
 ($uriv);
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4172)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4174)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4176)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4178)"
}

#line 22 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=addPropertyURIUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4181)"

#line 22 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=addPropertyURIUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4179)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4180)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4182)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4184)"
}
}
sub get_property_resource_list ($$%) {
my ($self, $propName, %opt) = @_;
my $r = [];

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4295)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4187)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4185)"
$r = [];

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4186)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4188)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4211)"
local $Error::Depth = $Error::Depth + 1;

{
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4209)"

#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4207)"

  my 
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4189)"
$v = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4190)"
get_property_value_list
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4191)"
 ($propName);
  my $db = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4192)"
database
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4193)"
;
  for my $a (@$v) {
    if ($a->isa (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4194)"
'Message::Util::IF::DVURIValue'
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4195)"
)) {
      push @$r, $a->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4196)"
get_resource
#line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4197)"
 ($db);
    }
    if ($opt{isa_recursive}) {
      my $b = $a->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4198)"
get_property
#line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4199)"

                       (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4200)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#stopISARecursive'
#line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4201)"
);
      if ($b and $b->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4202)"
value
#line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4203)"
) {
        $opt{isa_recursive} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4204)"
0
#line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4205)"
;
      }
    }
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4206)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4208)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4210)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4212)"
}

#line 17 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4215)"

#line 17 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4213)"
;

if ($opt{recursive}) {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4214)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4216)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4231)"
local $Error::Depth = $Error::Depth + 1;

{
#line 20 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4229)"

#line 20 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4227)"

#line 20 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4217)"

    $opt{___recursive_isa_done} ||= {$self->{uri} => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4218)"
1
#line 21 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4219)"
};
    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 #4220)"
1
#line 25 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4221)"
;
      push @$r, @{$p_res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4222)"
get_property_resource_list
#line 26 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4223)"

                                  ($propName, recursive => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4224)"
1
#line 27 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4225)"
,
                                   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 #4226)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4228)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4230)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4232)"
}

#line 32 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4235)"

#line 32 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4233)"
;
}
if ($opt{recursive_isa}) {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4234)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4236)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4253)"
local $Error::Depth = $Error::Depth + 1;

{
#line 35 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4251)"

#line 35 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4249)"

#line 35 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4237)"

    $opt{___recursive_isa_done} ||= {$self->{uri} => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4238)"
1
#line 36 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4239)"
};
    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 #4240)"
1
#line 40 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4241)"
;
      push @$r, @{$p_res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4242)"
get_property_resource_list
#line 41 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4243)"

                                  (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4244)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ISA'
#line 42 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4245)"
, 
                                   recursive => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4246)"
1
#line 43 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4247)"
,
                 ___recursive_isa_done => $opt{___recursive_isa_done},
                 default_media_type => $opt{default_media_type})};
    }
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4248)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4250)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4252)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4254)"
}

#line 47 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4257)"

#line 47 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4255)"
;
}
if ($opt{isa_recursive}) {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4256)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4258)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4289)"
local $Error::Depth = $Error::Depth + 1;

{
#line 50 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4287)"

#line 50 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4285)"

#line 50 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4259)"

    $opt{___recursive_isa_done} ||= {$self->{uri} => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4260)"
1
#line 51 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4261)"
};
    $opt{___isa_recursive_done} ||= {$self->{uri} => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4262)"
1
#line 52 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4263)"
};
    my @p_res = @{$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4264)"
get_property_resource_list
#line 53 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4265)"

                              (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4266)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ISA'
#line 54 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4267)"
, recursive_isa => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4268)"
0
#line 54 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4269)"
,
                               recursive => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4270)"
0
#line 55 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4271)"
,
                               default_media_type => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4272)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TFQNames'
#line 56 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4273)"
)};
    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 #4274)"
1
#line 59 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4275)"
;
      push @$r, @{$p_res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4276)"
get_property_resource_list
#line 60 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4277)"

                                  ($propName, recursive_isa => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4278)"
0
#line 61 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4279)"
,
                                   recursive => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4280)"
0
#line 62 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4281)"
,
                               isa_recursive => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4282)"
1
#line 63 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4283)"
,
                               ___isa_recursive_done =>
                                             $opt{___isa_recursive_done},
                               default_media_type => $opt{default_media_type})};
    }
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4284)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4286)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4288)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4290)"
}

#line 68 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4293)"

#line 68 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4291)"
;
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4292)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4294)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4296)"
}
$r}
sub get_property_value_list ($$) {
my ($self, $propName) = @_;
my $r = [];

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyValueList][@type=DISLang:Method]/Return[@Type=Perl|ARRAY||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4305)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyValueList][@type=DISLang:Method]/Return[@Type=Perl|ARRAY||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4303)"
my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyValueList][@type=DISLang:Method]/Return[@Type=Perl|ARRAY||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4297)"
$pr = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4298)"
database
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyValueList][@type=DISLang:Method]/Return[@Type=Perl|ARRAY||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4299)"

              ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4300)"
get_resource
#line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyValueList][@type=DISLang:Method]/Return[@Type=Perl|ARRAY||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4301)"
 ($propName);
$r = [map {@$_}
      grep {defined $_}
      map {$self->{$_}}
      grep {$pr->{aliasURI}->{$_} or $pr->{subOf}->{$_}}
      (keys %{$pr->{aliasURI}}, keys %{$pr->{subOf}})];
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4302)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4304)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4306)"
}
$r}
sub get_property_resource ($$%) {
my ($self, $propName, %opt) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4329)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4307)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4308)"

{
#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=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4321)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4319)"

  my 
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4309)"
$v = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4310)"
get_property_value
#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4311)"

                     ($propName);
  if (UNIVERSAL::isa ($v, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4312)"
'Message::Util::IF::DVURIValue'
#line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4313)"
)) {
    $r = $v->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4314)"
get_resource
#line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4315)"

                  ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4316)"
database
#line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4317)"
);
  }

#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 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4327)"

#line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@type=dis|MultipleResource]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/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}
$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 = 20050919.1549;
push our @ISA, 'Message::Util::Error';
package Message::Util::DIS::ManakaiDISException;
our $VERSION = 20050919.1549;
push our @ISA, 'Message::Util::Error::DOMException::ManakaiDOMException', 'Message::Util::Error::ManakaiDOMExceptionIF', 'Message::Util::IF::DISException', 'Message::Util::IFLatest::DISException';
sub HIERARCHY_REQUEST_ERR () {
'3'}
sub ___error_def () {

#line 1 "lib/Message/Util/DIS.dis [u] (Chunk #4331)"
{'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_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', '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#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', 'The specified resource does not have its Perl 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 #4332)"
}
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;
package Message::Util::DIS::ManakaiDISExceptionTarget;
our $VERSION = 20050919.1549;
push our @ISA, 'Message::Util::Error::MUErrorTarget';
sub ___report_error ($$) {
my ($self, $err) = @_;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISExceptionTarget][@type=dis|MultipleResource]/IntMethod[@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4339)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISExceptionTarget][@type=dis|MultipleResource]/IntMethod[@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4337)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISExceptionTarget][@type=dis|MultipleResource]/IntMethod[@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4333)"
($err->isa (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4334)"
'Message::Util::Error::DOMException::ManakaiDOMException'
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISExceptionTarget][@type=dis|MultipleResource]/IntMethod[@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4335)"
)) {
  $err->throw;
} else {
## TODO: Implement warning reporting
  warn $err->stringify;
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4336)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4338)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4340)"
}
}
$Message::DOM::ClassFeature{q<Message::Util::DIS::ManakaiDISExceptionTarget>} = {'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#core', {'', '1', '1.0', '1'}};
$Message::DOM::ClassPoint{q<Message::Util::DIS::ManakaiDISExceptionTarget>} = 1;
for ($Message::Util::IF::DISModuleResolver::, $Message::Util::IF::DISModuleElement::, $Message::Util::IFLatest::DISResource::, $Message::Util::IF::DISDocumentFragment::, $Message::Util::IF::DISDatabase::, $Message::Util::IFLatest::DISElement::, $Message::Util::IFLatest::DISDocumentFragment::, $Message::Util::IFLatest::DISAnyResource::, $Message::Util::IFLatest::DISParser::, $Message::Util::IF::DISResource::, $Message::Util::IF::NSResolverDIS::, $Message::Util::IFLatest::DISResourceMV::, $Message::Util::IF::DISElement::, $Message::Util::IF::DISImplementation::, $Message::Util::IFLatest::DISModuleResolver::, $Message::Util::Error::ManakaiDOMExceptionIF::, $Message::Util::IFLatest::DISModuleElement::, $Message::Util::IF::DISFor::, $Message::Util::IF::DISComment::, $Message::Util::IFLatest::DISComment::, $Message::Util::IF::DISNode::, $Message::Util::IF::DISResourceMV::, $Message::Markup::IFLatest::SWCFGParser::, $Message::Util::Error::MUErrorTarget::, $Message::Util::IF::DISAnyResource::, $Message::Util::IFLatest::DISDatabase::, $Message::Util::IFLatest::DISNode::, $Message::Util::IFLatest::DISImplementation::, $Message::Util::IF::DISParser::, $Message::Util::IFLatest::DISFor::, $Message::Util::IFLatest::DISDocument::, $Message::Util::IF::DISResourceProp::, $Message::Util::IFLatest::DISModule::, $Message::Util::IFLatest::DISResourceProp::, $Message::Util::IFLatest::DISElementList::, $Message::Util::IF::DISModule::, $Message::Util::IFLatest::NSResolverDIS::, $Message::Util::IF::DISElementList::, $Message::Util::IF::DISException::, $Message::DOM::IFLatest::GetFeature::, $Message::Util::IF::DISDocument::){}
## License: <http://suika.fam.cx/~wakaba/archive/2004/8/18/license#Perl+MPL>
1;