#!/usr/bin/perl 
## This file is automatically generated
## 	at 2005-09-04T13:46:54+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::PerlCode;
require Message::Util::Error::DOMException;
require Message::Markup::SuikaWikiConfig21;
require Message::DOM::DOMLS;
require Message::Util::ManakaiNode;
package Message::Util::DIS;
our $VERSION = 20050904.1346;
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 = ('ManakaiDISExceptionCode', ['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 = 20050904.1346;
push our @ISA, 'Message::Markup::SuikaWikiConfig21::ManakaiSWCFGImplementation';
sub create_dis_parser ($) {
my ($self) = @_;
my $r;

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

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

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=createDISParser][@type=DISLang:Method]/Return[@Type=ManakaiDISParser][@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)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=createDISParser][@type=DISLang:Method]/Return[@Type=ManakaiDISParser][@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)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=createDISParser][@type=DISLang:Method]/Return[@Type=ManakaiDISParser][@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)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=createDISDatabase][@type=DISLang:Method]/Return[@Type=ManakaiDISDatabase][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #29)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=createDISDatabase][@type=DISLang:Method]/Return[@Type=ManakaiDISDatabase][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #27)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=createDISDatabase][@type=DISLang:Method]/Return[@Type=ManakaiDISDatabase][@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)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=createDISDatabase][@type=DISLang:Method]/Return[@Type=ManakaiDISDatabase][@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)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=createDISDatabase][@type=DISLang:Method]/Return[@Type=ManakaiDISDatabase][@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)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=createDISDatabase][@type=DISLang:Method]/Return[@Type=ManakaiDISDatabase][@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)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=createDISDatabase][@type=DISLang:Method]/Return[@Type=ManakaiDISDatabase][@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)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=createDISDatabase][@type=DISLang:Method]/Return[@Type=ManakaiDISDatabase][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #25)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #26)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=createDISDocument][@type=DISLang:Method]/Return[@Type=ManakaiDISDocument][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #43)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=createDISDocument][@type=DISLang:Method]/Return[@Type=ManakaiDISDocument][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #41)"

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

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

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=plLoadDISDatabase][@type=DISLang:Method]/Return[@Type=ManakaiDISDatabase][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #55)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=plLoadDISDatabase][@type=DISLang:Method]/Return[@Type=ManakaiDISDatabase][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #53)"
use 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=plLoadDISDatabase][@type=DISLang:Method]/Return[@Type=ManakaiDISDatabase][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #45)"
Storable qw/retrieve/;
local $Carp::CarpLevel = $Carp::CarpLevel + 1;
$r = retrieve $fileName;

## Restores weak references
require Scalar::Util;
for my $doc (values %{$r->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #46)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceFile'
#line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=plLoadDISDatabase][@type=DISLang:Method]/Return[@Type=ManakaiDISDatabase][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #47)"
}}) {
  Scalar::Util::weaken ($doc->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #48)"
'node'
#line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=plLoadDISDatabase][@type=DISLang:Method]/Return[@Type=ManakaiDISDatabase][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #49)"
}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #50)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#db'
#line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=plLoadDISDatabase][@type=DISLang:Method]/Return[@Type=ManakaiDISDatabase][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #51)"
});
}
for my $def (values %{$r->{modDef}},
             values %{$r->{forDef}},
             values %{$r->{resDef}}) {
  Scalar::Util::weaken ($def->{db});
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #52)"

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

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

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

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

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/IntMethod[@Name=camelCaseToUnderscoreName][@type=DISLang:Method]/Return[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #57)"
$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 #58)"

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

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

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

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

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=tfurisToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #63)"
$typeURI = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #64)"
'http://suika.fam.cx/~wakaba/archive/2004/dom/main#any' unless 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=tfurisToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #65)"
defined $typeURI;
$forURI = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #66)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' unless 
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=tfurisToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #67)"
defined $forURI;

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

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

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

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [bc] (Chunk #75)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #71)"
($forURI eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #72)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all'
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #73)"
) {
  $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 #74)"

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

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

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

#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=tfurisToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #79)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #80)"

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

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #84)"
}
$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#core', {'', '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>} = 6.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 = 20050904.1346;
push our @ISA, 'Message::Markup::SuikaWikiConfig21::ManakaiSWCFGParser';
sub parse ($$) {
my ($self, $input) = @_;

{
#line 1 "/document (lib/Message/DOM/DOMLS.dis)/IF[@Name=LSInput][@QName=ManakaiDOMLSInput][@type=dis:MultipleResource]/ResourceDef[@type=DISLang|InputProcessor]/PerlDef [b] (Chunk #91)"

#line 1 "/document (lib/Message/DOM/DOMLS.dis)/IF[@Name=LSInput][@QName=ManakaiDOMLSInput][@type=dis:MultipleResource]/ResourceDef[@type=DISLang|InputProcessor]/PerlDef [bc] (Chunk #89)"
if 
#line 1 "/document (lib/Message/DOM/DOMLS.dis)/IF[@Name=LSInput][@QName=ManakaiDOMLSInput][@type=dis:MultipleResource]/ResourceDef[@type=DISLang|InputProcessor]/PerlDef [u] (Chunk #85)"
(ref $input eq 'HASH') {
  $input = bless $input, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #86)"
'Message::DOM::DOMLS::ManakaiDOMLSInput'
#line 2 "/document (lib/Message/DOM/DOMLS.dis)/IF[@Name=LSInput][@QName=ManakaiDOMLSInput][@type=dis:MultipleResource]/ResourceDef[@type=DISLang|InputProcessor]/PerlDef [u] (Chunk #87)"
;
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #88)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISParser][@type=ManakaiDOM:Class]/Method[@Name=parse][@type=DISLang:Method]/Return[@Type=ManakaiDISDocument][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #113)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISParser][@type=ManakaiDOM:Class]/Method[@Name=parse][@type=DISLang:Method]/Return[@Type=ManakaiDISDocument][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #93)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISParser][@type=ManakaiDOM:Class]/Method[@Name=parse][@type=DISLang:Method]/Return[@Type=ManakaiDISDocument][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #99)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISParser][@type=ManakaiDOM:Class]/Method[@Name=parse][@type=DISLang:Method]/Return[@Type=ManakaiDISDocument][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #97)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISParser][@type=ManakaiDOM:Class]/Method[@Name=parse][@type=DISLang:Method]/Return[@Type=ManakaiDISDocument][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #95)"

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

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

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

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

#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISParser][@type=ManakaiDOM:Class]/Method[@Name=parse][@type=DISLang:Method]/Return[@Type=ManakaiDISDocument][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #111)"

#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISParser][@type=ManakaiDOM:Class]/Method[@Name=parse][@type=DISLang:Method]/Return[@Type=ManakaiDISDocument][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #103)"
;
if (defined $r) {
  $r = bless $r, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #104)"
'Message::Util::DIS::ManakaiDISDocument'
#line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISParser][@type=ManakaiDOM:Class]/Method[@Name=parse][@type=DISLang:Method]/Return[@Type=ManakaiDISDocument][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #105)"
;
  $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #106)"
default_element_type_namespace_uri
#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISParser][@type=ManakaiDOM:Class]/Method[@Name=parse][@type=DISLang:Method]/Return[@Type=ManakaiDISDocument][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #107)"

            (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #108)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--'
#line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISParser][@type=ManakaiDOM:Class]/Method[@Name=parse][@type=DISLang:Method]/Return[@Type=ManakaiDISDocument][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #109)"
);
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #110)"

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

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #114)"
}
$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;
package Message::Util::DIS::ManakaiDISNode;
our $VERSION = 20050904.1346;
use Message::Util::Error;
sub owner_dis_document ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #131)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/Attr[@Name=ownerDISDocument][@type=DISLang:Attribute]/Get[@Type=ManakaiDISDocument][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #129)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/Attr[@Name=ownerDISDocument][@type=DISLang:Attribute]/Get[@Type=ManakaiDISDocument][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #127)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/Attr[@Name=ownerDISDocument][@type=DISLang:Attribute]/Get[@Type=ManakaiDISDocument][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #115)"
$r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #116)"
Message::Util::DIS::ManakaiDISNode->_get_node_reference
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/Attr[@Name=ownerDISDocument][@type=DISLang:Attribute]/Get[@Type=ManakaiDISDocument][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #117)"

        ($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #118)"
'node'
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/Attr[@Name=ownerDISDocument][@type=DISLang:Attribute]/Get[@Type=ManakaiDISDocument][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #119)"
}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #120)"
'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#ownerDocument'
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/Attr[@Name=ownerDISDocument][@type=DISLang:Attribute]/Get[@Type=ManakaiDISDocument][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #121)"
})
  if $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #122)"
'node'
#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/Attr[@Name=ownerDISDocument][@type=DISLang:Attribute]/Get[@Type=ManakaiDISDocument][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #123)"
}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #124)"
'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#ownerDocument'
#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/Attr[@Name=ownerDISDocument][@type=DISLang:Attribute]/Get[@Type=ManakaiDISDocument][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #125)"
};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #126)"

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

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

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

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

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #153)"
my 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #135)"
$class;
if ($object->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #136)"
'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#nodeType'
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #137)"
} eq '#element') {
  $class = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #138)"
'Message::Util::DIS::ManakaiDISElement'
#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #139)"
;
} elsif ($object->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #140)"
'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#nodeType'
#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #141)"
} eq '#comment') {
  $class = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #142)"
'Message::Util::DIS::ManakaiDISComment'
#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #143)"
;
} elsif ($object->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #144)"
'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#nodeType'
#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #145)"
} eq '#document') {
  $class = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #146)"
'Message::Util::DIS::ManakaiDISDocument'
#line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #147)"
;
} elsif ($object->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #148)"
'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#nodeType'
#line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #149)"
} eq '#fragment') {
  $class = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #150)"
'Message::Util::DIS::ManakaiDISDocumentFragment'
#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #151)"
;
} else {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #152)"

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

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

#line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #155)"
;
}
$r = $object->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #156)"
_new_reference
#line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #157)"
 ($class);
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #158)"

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

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

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

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

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

      my 
#line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #173)"
$db = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #174)"
owner_dis_document
#line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #175)"

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

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #196)"
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 34 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #201)"

#line 34 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #197)"
;
    } else {
      $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #198)"
undef
#line 36 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #199)"
;
    }
  } # FIND
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #200)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #241)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #239)"

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

#line 15 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #215)"
try {local $Error::Depth = $Error::Depth + 3;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #216)"

      my 
#line 15 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #217)"
$db = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #218)"
owner_dis_document
#line 15 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #219)"

                    ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #220)"
dis_database
#line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #221)"
;
      for my $mod_uri (keys %{$db->{modDef}}) {
        my $mod = $db->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #222)"
get_module
#line 18 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #223)"
 ($mod_uri);
        my $mod_ln = $mod->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #224)"
local_name
#line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #225)"
;
        next if exists $binds->{$mod_ln};
        my $ns_uri = $mod->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #226)"
get_property_text
#line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #227)"

                                         (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #228)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Namespace'
#line 22 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #229)"
, '');
        if ($ns_uri eq $namespaceURI) {
          $r = $mod_ln;
          last FIND;
        }
      }
    } catch 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #230)"
Message::Util::DIS::ManakaiDISException with 
#line 28 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #231)"
{
      my $err = shift;
      $err->throw
        unless $err->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #232)"
'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype'
#line 31 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #233)"
} eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #234)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_DB_ASSOCIATED_ERR'
#line 31 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #235)"
;
    };

    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 #236)"
undef
#line 71 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #237)"
;
        last FIND;
      }
      $i++;
      redo;
    }
  }
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #238)"

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

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #242)"
}
$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::ManakaiDISElement;
our $VERSION = 20050904.1346;
push our @ISA, 'Message::Util::DIS::ManakaiDISNode', 'Message::Markup::SuikaWikiConfig21::ManakaiSWCFGElement';
sub dis_get_attribute_list ($$%) {
my ($self, $attrName, %opt) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disGetAttributeList][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #255)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disGetAttributeList][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #253)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disGetAttributeList][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #243)"
$r = bless [], 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #244)"
'Message::Util::DIS::ManakaiDISElementList'
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disGetAttributeList][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #245)"
;
for my $c (@{$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #246)"
dis_child_elements
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disGetAttributeList][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #247)"

                          (for_arg => $opt{for_arg}, forp_arg => $opt{forp_arg})}) {
  if ($c->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #248)"
expanded_uri eq 
#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disGetAttributeList][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #249)"
$attrName and
      $c->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #250)"
media_type_match
#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disGetAttributeList][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #251)"

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

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #325)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #259)"
my 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #257)"
($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 #258)"

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

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

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

#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #271)"

#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #261)"

    $typeURI = $typeq eq ''
               ? defined $defaultTypeURI ? $defaultTypeURI
                                         : 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #262)"
'http://suika.fam.cx/~wakaba/archive/2004/dom/main#any'
               : 
#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #263)"
$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #264)"
qname_to_uri
#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #265)"
 ($typeq, %opt);
    if (length $forq) {
      $forURI = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #266)"
qname_to_uri
#line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #267)"
 ($forq, %opt);
    } else {
      $forURI = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #268)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all'
#line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #269)"
;
    }
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #270)"

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

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

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

#line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #279)"

#line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #277)"
;
} else {  ## "For" omitted
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #278)"

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

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

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

#line 18 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #287)"

#line 18 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #281)"

    $typeURI = $typeq eq ''
               ? defined $defaultTypeURI ? $defaultTypeURI
                                         : 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #282)"
'http://suika.fam.cx/~wakaba/archive/2004/dom/main#any'
               : 
#line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #283)"
$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #284)"
qname_to_uri
#line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #285)"
 ($typeq, %opt);
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #286)"

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

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

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

#line 23 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #297)"

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

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

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

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

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

#line 27 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #303)"

  for 
#line 27 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #299)"
my $forpq (@forpq) {
    push @$forpURI, $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #300)"
qname_to_uri
#line 28 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #301)"

                                         ($forpq, %opt);
  }

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

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

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

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

#line 32 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #311)"

#line 32 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/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 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/ResourceDef[@QName=tfpurisToURI][@type=dis2pm:BlockCode]/PerlDef [b] (Chunk #319)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/ResourceDef[@QName=tfpurisToURI][@type=dis2pm:BlockCode]/PerlDef [bc] (Chunk #317)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/ResourceDef[@QName=tfpurisToURI][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #313)"
($forURI eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #314)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' and 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/ResourceDef[@QName=tfpurisToURI][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #315)"
@{$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 #316)"

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

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

#line 34 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #323)"

#line 34 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #321)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #322)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #355)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #331)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #327)"
$r = bless [], 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #328)"
'Message::Util::DIS::ManakaiDISElementList'
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #329)"
;    

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

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

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

{
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #347)"

#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #345)"

  for 
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #333)"
my $cn (@{$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #334)"
child_nodes
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #335)"
}) {
    ## $cn is an #element.
    my $dn = $cn->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #336)"
'node'
#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #337)"
}
                ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #338)"
_new_reference
#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #339)"

                              (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #340)"
'Message::Util::DIS::ManakaiDISElement'
#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #341)"
);
    next unless $dn->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #342)"
for_match
#line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #343)"
 ($opt{for_arg}, $opt{forp_arg});
    push @$r, $dn;
  }

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

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

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

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

#line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #353)"

#line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #351)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #352)"

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

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

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

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

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

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

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

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

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

  $r = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #360)"
element_type_match
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=isResourceElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #361)"

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

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

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

#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=isResourceElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #373)"

#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=isResourceElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #371)"
;
#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)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #378)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #379)"
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 #380)"
}}
sub is_property_element ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #413)"
my ($self) = @_;
my $r = 0;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=isPropertyElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #411)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=isPropertyElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #381)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=isPropertyElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #403)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=isPropertyElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #401)"

  my 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=isPropertyElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #383)"
$xn = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #384)"
expanded_uri
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=isPropertyElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #385)"
;
  if ($xn eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #386)"
'http://www.w3.org/1999/02/22-rdf-syntax-ns#type'
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=isPropertyElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #387)"
) {
    $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #388)"
1
#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=isPropertyElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #389)"
;
  } else {
    my $rdef = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #390)"
owner_dis_document
#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=isPropertyElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #391)"

                           ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #392)"
dis_database
#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=isPropertyElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #393)"

                           ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #394)"
get_resource
#line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=isPropertyElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #395)"
 ($xn);
    $r = $rdef->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #396)"
is_type_uri
#line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=isPropertyElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #397)"

                                                   (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #398)"
'http://www.w3.org/1999/02/22-rdf-syntax-ns#Resource'
#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=isPropertyElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #399)"
);
  }

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

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

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

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

#line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=isPropertyElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #409)"

#line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=isPropertyElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #407)"
;
#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)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #414)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #415)"
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_property_element';

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

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

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

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

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

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

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

  my 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=elementTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #419)"
$et = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #420)"
expanded_uri
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=elementTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #421)"
;
  my $rdef = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #422)"
owner_dis_document
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=elementTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #423)"

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

                           ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #426)"
get_resource
#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=elementTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #427)"
 ($et);
  $r = $rdef->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #428)"
is_subset_of_uri
#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=elementTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #429)"
 ($etype);

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

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

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

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

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

#line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=elementTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #437)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #438)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #565)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #443)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #557)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #451)"

  my 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #445)"
$dataType;
  my $vnode = defined $attrURI
              ? $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #446)"
dis_get_attribute
#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #447)"

                                   ($attrURI,
                                    for_arg => $opt{for_arg},
                                    forp_arg => $opt{forp_arg})
              : $self;
  my $plimpl = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #448)"
pl_implementation
#line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #449)"
;
  if ($vnode) {
    unless ($plimpl) {
      
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #450)"

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

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

{
#line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #455)"

#line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #453)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #454)"
report Message::Util::DIS::ManakaiDISException -object => $self, '-type' => 'NOT_SUPPORTED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'pl_value_code_fragment', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_PERL_CODE_IMPL_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISElement';

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

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

#line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #555)"

#line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #459)"
;
    }
    my $isnull = $vnode->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #460)"
dis_get_attribute
#line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #461)"

                                   (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #462)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--is-null'
#line 15 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #463)"
,
                                    for_arg => $opt{for_arg},
                                    forp_arg => $opt{forp_arg});
    if ($isnull and $isnull->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #464)"
value
#line 18 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #465)"
) {
      $r = $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #466)"
create_perl_atom
#line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #467)"
 ('undef');
    } else {
      my $vnode_type_uri = $vnode->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #468)"
media_type_uri
#line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #469)"

                                   (for_arg => $opt{for_arg},
                                    forp_arg => $opt{forp_arg});
      my $vnode_value = $vnode->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #470)"
value
#line 24 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #471)"
;
      if ($vnode_type_uri) {
        my $vnode_type = $disResource->{db}
                             ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #472)"
get_resource
#line 27 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #473)"

                                              ($vnode_type_uri);
        if ($vnode_type->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #474)"
is_subset_of_uri
#line 29 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #475)"

                                (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #476)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Boolean'
#line 30 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #477)"
)) {
          $r = $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #478)"
create_perl_atom
#line 31 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #479)"

                                ($vnode_value ? 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #480)"
1 : 
#line 32 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #481)"

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #482)"
0
#line 32 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #483)"
);
        } elsif ($vnode_type->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #484)"
is_subset_of_uri
#line 33 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #485)"

                                (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #486)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TypeQName'
#line 34 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #487)"
)) {
          $r = $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #488)"
create_perl_string_literal
#line 35 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #489)"

                            ($vnode->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #490)"
qname_to_uri
#line 36 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #491)"
 ($vnode_value,
                                                     node => $vnode));
        } elsif ($vnode_type->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #492)"
is_subset_of_uri
#line 38 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #493)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #494)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl'
#line 38 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #495)"
)) {
          $r = $disResource->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #496)"
pl_preprocess_perl_statement
#line 39 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #497)"

                                   ($vnode_value,
                                    node => $self,
                                    contains_statements => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #498)"
0
#line 42 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #499)"
);
        } else { ## DISCore:String or some
          $r = $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #500)"
create_perl_string_literal
#line 44 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #501)"

                                               ($vnode_value);
        }
      } elsif ($opt{data_type_uri}) {
        $dataType ||= $disResource->{db}
                                  ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #502)"
get_resource
#line 49 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #503)"

                                      ($opt{data_type_uri});
        if ($dataType->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #504)"
is_subset_of_uri
#line 51 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #505)"

                                      (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #506)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/IDL#AnyRealNumber'
#line 52 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #507)"
)) {
          $r = $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #508)"
create_perl_atom
#line 53 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #509)"
 (0 + $vnode_value);
        } elsif ($dataType->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #510)"
is_subset_of_uri
#line 54 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #511)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #512)"
'http://suika.fam.cx/~wakaba/archive/2004/dom/main#boolean'
#line 54 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #513)"
)) {
          $r = $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #514)"
create_perl_atom
#line 55 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #515)"

                            ($vnode_value eq 'tr'.'ue' ? 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #516)"
1 : 
#line 56 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #517)"

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #518)"
0
#line 56 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #519)"
);
        } else { ## DOMMain:DOMString or some
          $r = $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #520)"
create_perl_string_literal
#line 58 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #521)"

                                               ($vnode_value);
        }
      } else {  ## Untyped
        $r = $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #522)"
create_perl_string_literal
#line 62 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #523)"
($vnode_value);
      }
    }
  } # has value

  if (not $r and $opt{use_default_value}) {
    $dataType ||= $disResource->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #524)"
get_resource
#line 68 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #525)"

                                      ($opt{data_type_uri});
    if ($dataType->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #526)"
is_subset_of_uri
#line 70 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #527)"

                                      (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #528)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#String'
#line 71 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #529)"
)) {
      $r = $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #530)"
create_perl_string_literal
#line 72 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #531)"
 ('');
    } elsif ($dataType->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #532)"
is_subset_of_uri
#line 73 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #533)"

                                      (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #534)"
'http://suika.fam.cx/~wakaba/archive/2004/dom/main#boolean'
#line 74 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #535)"
) or
             $dataType->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #536)"
is_subset_of_uri
#line 75 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #537)"

                                      (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #538)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/IDL#AnyRealNumber'
#line 76 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #539)"
)) {
      $r = $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #540)"
create_perl_atom
#line 77 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #541)"
 ('0');
    } elsif ($dataType->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #542)"
is_subset_of_uri
#line 78 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #543)"

                                      (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #544)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl--ARRAY'
#line 79 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #545)"
)) {
      $r = $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #546)"
create_perl_atom
#line 80 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #547)"
 ('[]');
    } elsif ($dataType->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #548)"
is_subset_of_uri
#line 81 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #549)"

                                      (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #550)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl--hash'
#line 82 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #551)"
)) {
      $r = $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #552)"
create_perl_atom
#line 83 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #553)"
 ('{}');
    }
  }

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

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

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

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

#line 91 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #563)"

#line 91 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #561)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #562)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@QName=qnameToPair][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #589)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@QName=qnameToPair][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #569)"

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

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

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

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

{
#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@QName=qnameToPair][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #581)"

#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@QName=qnameToPair][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #579)"

  if 
#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@QName=qnameToPair][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #571)"
(defined $lname) {
    $r = [$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #572)"
prefix_to_uri
#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@QName=qnameToPair][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #573)"
 ($prefix), $lname];
  } else {  ## In default namespace
    $r = [$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #574)"
prefix_to_uri
#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@QName=qnameToPair][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #575)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #576)"
undef
#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@QName=qnameToPair][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #577)"
), $prefix];
  }

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

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

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

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

#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@QName=qnameToPair][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #587)"

#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@QName=qnameToPair][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #585)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #586)"

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

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

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

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

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

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

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

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

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

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

                      (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #596)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ContentType'
#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=mediaTypeURI][@Type=MediaTypeURI][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #597)"
, for_arg => $opt{for_arg},
                       forp_arg => $opt{forp_arg});
  $r = $ctn->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #598)"
qname_value_uri if 
#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=mediaTypeURI][@Type=MediaTypeURI][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #599)"
$ctn;

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

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

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

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

#line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=mediaTypeURI][@Type=MediaTypeURI][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #609)"

#line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=mediaTypeURI][@Type=MediaTypeURI][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #607)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #608)"

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

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

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

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #615)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #613)"
(defined $mediaType) {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #614)"

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

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

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

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

    my 
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #617)"
$ctn = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #618)"
dis_get_attribute
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #619)"

                          (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #620)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ContentType'
#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #621)"
, for_arg => $opt{for_arg},
                           forp_arg => $opt{forp_arg});
    my $ct;
    $ct = $ctn->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #622)"
qname_value_uri if 
#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #623)"
$ctn;
    $ct = $defaultMediaType unless defined $ct;
    my $res = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #624)"
owner_dis_document
#line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #625)"

                         ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #626)"
dis_database
#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #627)"

                         ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #628)"
get_resource
#line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #629)"
 ($ct);
    $res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #630)"
is_referred
#line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #631)"
 ($ctn or $self);
    unless ($res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #632)"
is_subset_of_uri
#line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #633)"
 ($mediaType)) {
      $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #634)"
0
#line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #635)"
;
    } else {
      $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #636)"
1
#line 15 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #637)"
;
    }
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #638)"

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

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

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

#line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #649)"

#line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #645)"
;
} else {
  $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #646)"
1
#line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #647)"
;
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #648)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@QName=qnameToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #675)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@QName=qnameToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #655)"

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

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

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

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

{
#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@QName=qnameToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #667)"

#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@QName=qnameToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #665)"

  if 
#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@QName=qnameToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #657)"
(defined $lname) {
    $r = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #658)"
prefix_to_uri
#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@QName=qnameToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #659)"
 ($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 #660)"
prefix_to_uri
#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@QName=qnameToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #661)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #662)"
undef
#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@QName=qnameToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #663)"
) . $prefix;
    }
  }

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

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

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

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

#line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@QName=qnameToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #673)"

#line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@QName=qnameToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #671)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #672)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1085)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #677)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1077)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #689)"

  my 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #679)"
$plimpl = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #680)"
pl_implementation
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #681)"
;
  my $et = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #682)"
expanded_uri
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #683)"
;
  if ($et eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #684)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Def'
#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #685)"
) {
    my $value = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #686)"
value
#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #687)"
;
    if (defined $value) {
      
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #688)"

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

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

{
#line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #693)"

#line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #691)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #692)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $self, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'pl_code_fragment', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#DISPERL_NO_VALUE_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISElement', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => $et;

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

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

#line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #737)"

#line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #697)"
;
    }
    $r = $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #698)"
create_perl_block_container
#line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #699)"
;
    for my $c (@{$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #700)"
dis_child_elements
#line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #701)"

                          (for_arg => $opt{for_arg}, forp_arg => $opt{forp_arg})}) {
      my $ccode = $c->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #702)"
pl_code_fragment
#line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #703)"

                          ($disResource,
                           for_arg => $opt{for_arg}, forp_arg => $opt{forp_arg},
                           contains_statements => $opt{contains_statements});
      $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #704)"
append_code_fragment
#line 20 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #705)"
 ($ccode->clone) if $ccode;
    }
  } elsif ({
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #706)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#constValue'
#line 23 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #707)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #708)"
1
#line 23 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #709)"
,
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #710)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Perl#cloneCode'
#line 24 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #711)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #712)"
1
#line 24 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #713)"
,
  }->{$et}) {
    my ($qname, $const_name, $on) = split /\s*\.\s*/,
                                     $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #714)"
value
#line 27 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #715)"
, 3;
    my $parentResource = $disResource->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #716)"
get_property_resource
#line 28 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #717)"

                                        (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #718)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#parentResource'
#line 29 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #719)"
);
    my $uri = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #720)"
tfqnames_to_uri
#line 30 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #721)"

                     ($qname,
                      ($parentResource->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #722)"
get_property_resource
#line 32 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #723)"

                                        (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #724)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#parentResource'
#line 33 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #725)"
) ||
                       $parentResource || $disResource)->
                              
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #726)"
name_uri
#line 35 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #727)"
,
                      $opt{for_arg}, node => $self);
    my $const;
    if (defined $const_name) {
      my $owner = $disResource->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #728)"
get_resource
#line 39 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #729)"

                              ($uri);
      $owner->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #730)"
is_referred
#line 41 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #731)"
 ($self);
      if ($et eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #732)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#constValue'
#line 42 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #733)"
) {
        $const = $owner->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #734)"
get_const_resource_by_name
#line 43 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #735)"
 ($const_name);
        unless (defined $const) {
          
#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 #743)"
local $Error::Depth = $Error::Depth - 1;

{
#line 48 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #741)"

#line 48 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #739)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #740)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $self, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'pl_code_fragment', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISElement', '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' => $const_name, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#RESOURCE_NOT_DEFINED_ERR', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => $et, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#parentURI' => $uri;

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

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

#line 54 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #751)"

#line 54 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #745)"
;
        }
      } else {
        $const = $owner->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #746)"
get_child_resource_by_name_and_type
#line 57 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #747)"

                                  ($const_name, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #748)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#AnyMethod'
#line 58 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #749)"
);
        unless (defined $const) {
          
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #750)"

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

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

{
#line 61 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #755)"

#line 61 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #753)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #754)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $self, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'pl_code_fragment', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISElement', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#expectedType' => 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#AnyMethod', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#localName' => $const_name, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#RESOURCE_NOT_DEFINED_ERR', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => $et, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#parentURI' => $uri;

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

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

#line 67 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #777)"

#line 67 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #759)"
;
        }
      }
    } else {
      $const = $disResource->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #760)"
get_resource
#line 71 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #761)"

                              ($uri);
    }
    if ($const->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #762)"
is_type_uri
#line 74 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #763)"

                              (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #764)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Const'
#line 75 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #765)"
)) {
      $const->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #766)"
is_referred
#line 76 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #767)"
 ($self);

      my $data_type = $const->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #768)"
dis_actual_data_type_resource
#line 78 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #769)"
;
      my $val = $const->{src}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #770)"
pl_value_code_fragment
#line 79 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #771)"

                    (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #772)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Value'
#line 80 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #773)"
, $disResource,
                     for_arg => $opt{for_arg},
                     forp_arg => $opt{forp_arg},
                     data_type_uri => $data_type
                            ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #774)"
uri
#line 84 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #775)"
);
      unless (defined $val) {
        
#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 #783)"
local $Error::Depth = $Error::Depth - 1;

{
#line 88 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #781)"

#line 88 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #779)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #780)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $const->{src}, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'pl_code_fragment', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISElement', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#localName' => $const->{localName}, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_CONST_VALUE_ERR', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => $et, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $const->{uri};

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

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

#line 93 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #811)"

#line 93 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #785)"
;
      }
    
      if ($opt{contains_statements}) {
        $r = $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #786)"
create_perl_statement
#line 97 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #787)"
;
        my $rvar = $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #788)"
create_perl_variable
#line 98 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #789)"

                                         ('$', 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #790)"
undef
#line 99 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #791)"
, 'r');
        $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #792)"
append_new_assignment
#line 100 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #793)"
 ($rvar => $val);
      } else {
        $r = $val;
      }
    } elsif ($const->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #794)"
is_type_uri
#line 104 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #795)"

                         (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #796)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#AnyMethod'
#line 105 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #797)"
)) {
      my $ret = $const->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #798)"
get_child_resource_by_type
#line 106 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #799)"

                         ($const->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #800)"
is_type_uri
#line 107 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #801)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #802)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#Method'
#line 107 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #803)"
)
                          ? 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #804)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#MethodReturn'
                          : 
#line 108 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #805)"
($on and $on eq 'set')
                            ? 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #806)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#AttributeSet'
                            : 
#line 109 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #807)"

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #808)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#AttributeGet'
#line 109 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #809)"
);
      unless ($ret) { 
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #810)"

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

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

{
#line 115 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #833)"

#line 115 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #819)"

          if 
#line 115 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #813)"
($const->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #814)"
is_type_uri
#line 115 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #815)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #816)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#Method'
#line 115 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #817)"
)) {
            
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #818)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #820)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $const->{src}, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'pl_code_fragment', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISElement', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#localName' => $const->{localName}, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_METHOD_RETURN_ERR', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#errResource' => $const, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $const->{uri}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => $et;

#line 124 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #823)"

#line 124 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #821)"
;
          } elsif ($on and $on eq 'set') {
            
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #822)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #824)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $const->{src}, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'pl_code_fragment', '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_SET_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISElement', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#errResource' => $const, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => $et;

#line 130 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #827)"

#line 130 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #825)"
;
          } else {
            
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #826)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #828)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $const->{src}, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'pl_code_fragment', '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', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISElement', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#errResource' => $const, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => $et;

#line 136 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #831)"

#line 136 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #829)"
;
          }
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #830)"

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

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

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

#line 138 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #849)"

#line 138 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #837)"
; # UNDEEP
      }
      $r = $ret->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #838)"
pl_code_fragment
#line 140 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #839)"
;
    } elsif ($const->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #840)"
is_type_uri
#line 141 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #841)"

                         (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #842)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#AnyDefContainer'
#line 142 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #843)"
)) {
      $r = $const->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #844)"
pl_code_fragment
#line 143 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #845)"
;
    } else {
      if ($et eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #846)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#constValue'
#line 145 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #847)"
) {
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #848)"

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

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

{
#line 146 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #853)"

#line 146 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #851)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #852)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $self->{src}, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'pl_code_fragment', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISElement', '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' => $const->{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' => $const->{uri};

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

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

#line 151 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #859)"

#line 151 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #857)"
;
      } else {  # DISPerl:cloneCode
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #858)"

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

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

{
#line 153 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #863)"

#line 153 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #861)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #862)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $self->{src}, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'pl_code_fragment', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISElement', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#expectedType' => 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#AnyMethod', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#localName' => $const->{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' => $const->{uri};

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

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

#line 158 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1065)"

#line 158 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #867)"
;
      }
    }
  } elsif ($et eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #868)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#value'
#line 161 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #869)"
) {
    my $val = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #870)"
pl_value_code_fragment
#line 162 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #871)"

                    (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #872)"
undef
#line 163 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #873)"
, $disResource,
                     for_arg => $opt{for_arg},
                     forp_arg => $opt{forp_arg});
    $r = $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #874)"
create_perl_statement
#line 166 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #875)"
;
    my $rvar = $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #876)"
create_perl_variable
#line 167 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #877)"

                                         ('$', 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #878)"
undef
#line 168 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #879)"
, 'r');
    $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #880)"
append_new_assignment
#line 169 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #881)"
 ($rvar => $val);
  } elsif ({
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #882)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--GetProp'
#line 171 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #883)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #884)"
1
#line 171 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #885)"
,
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #886)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--GetPropNode'
#line 172 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #887)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #888)"
1
#line 172 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #889)"
,
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #890)"
'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#GetPropNode'
#line 173 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #891)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #892)"
1
#line 173 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #893)"
,
  }->{$et}) {
    my $prop_uri = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #894)"
qname_value_uri
#line 175 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #895)"
;
    $disResource->{db}
             ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #896)"
get_resource
#line 177 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #897)"
 ($prop_uri)
             ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #898)"
is_referred
#line 178 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #899)"
 ($self);
    $r = $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #900)"
create_perl_statement
#line 179 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #901)"
;
    my $val = $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #902)"
create_perl_inline_container
#line 180 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #903)"
;
    $val->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #904)"
append_code
#line 181 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #905)"
 ('$self->{node}->{');
    $val->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #906)"
append_string_literal
#line 182 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #907)"
 ($prop_uri);
    $val->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #908)"
append_code
#line 183 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #909)"
 ('}');
    my $rvar = $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #910)"
create_perl_variable
#line 184 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #911)"

                                       ('$', 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #912)"
undef
#line 185 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #913)"
, 'r');
    $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #914)"
append_new_assignment
#line 186 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #915)"
 ($rvar => $val);
    
    if ({
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #916)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--GetPropNode'
#line 188 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #917)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #918)"
1
#line 188 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #919)"
,
         
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #920)"
'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#GetPropNode'
#line 189 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #921)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #922)"
1
#line 189 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #923)"
}->{$et}) {
      my $q = $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #924)"
create_perl_block_container
#line 190 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #925)"
;
      $q->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #926)"
append_code_fragment
#line 191 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #927)"
 ($r);
      $q->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #928)"
append_new_if
#line 192 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #929)"

               ($plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #930)"
create_perl_inline_unparsed_code
#line 193 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #931)"

                                             ('defined $r'),
                my $qt = $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #932)"
create_perl_block_container
#line 195 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #933)"
);
      $qt->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #934)"
append_statement
#line 196 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #935)"

         ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #936)"
append_new_assignment
#line 197 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #937)"

               ($rvar->clone => my $qtr = $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #938)"
create_perl_inline_container
#line 198 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #939)"
);
      my $cls = $disResource->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #940)"
get_resource
#line 199 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #941)"
 ({
                     
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #942)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--GetPropNode'
#line 200 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #943)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #944)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#ManakaiDOMNode'
#line 200 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #945)"
,
                     
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #946)"
'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#GetPropNode'
#line 201 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #947)"
 =>
                                           
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #948)"
'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#ManakaiSWCFGNode'
#line 202 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #949)"
,
                   }->{$et}, for_arg => $opt{for_arg});
      $cls->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #950)"
is_referred
#line 204 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #951)"
 ($self);
      $qtr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #952)"
append_code
#line 205 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #953)"

               ($cls->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #954)"
pl_fully_qualified_name
#line 206 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #955)"
 . q[->_get_node_reference ($r)]);
      $r = $q;
    }
  } elsif ($et eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #956)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--SetProp'
#line 209 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #957)"
) {
    my $prop_uri = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #958)"
qname_value_uri
#line 210 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #959)"
;
    $disResource->{db}
             ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #960)"
get_resource
#line 212 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #961)"
 ($prop_uri)
             ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #962)"
is_referred
#line 213 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #963)"
 ($self);
    $r = $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #964)"
create_perl_statement
#line 214 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #965)"
;
    my $val = $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #966)"
create_perl_inline_container
#line 215 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #967)"
;
    $val->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #968)"
append_code
#line 216 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #969)"
 ('$self->{node}->{');
    $val->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #970)"
append_string_literal
#line 217 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #971)"
 ($prop_uri);
    $val->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #972)"
append_code
#line 218 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #973)"
 ('}');
    my $rvar = $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #974)"
create_perl_variable
#line 219 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #975)"

                                       ('$', 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #976)"
undef
#line 220 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #977)"
, 'given');
    $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #978)"
append_new_assignment
#line 221 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #979)"
 ($val => $rvar);
    my $chk = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #980)"
dis_get_attribute
#line 222 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #981)"

                                   (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #982)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--CheckReadOnly'
#line 223 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #983)"
);
    if ($chk and $chk->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #984)"
value
#line 224 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #985)"
) {
      my $q = $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #986)"
create_perl_if
#line 225 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #987)"

               (my $qc = $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #988)"
create_perl_inline_container
#line 226 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #989)"
,
                my $qt = $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #990)"
create_perl_block_container
#line 227 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #991)"
);
      $qc->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #992)"
append_code
#line 228 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #993)"
 ('$self->{node}->{');
      $qc->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #994)"
append_string_literal
#line 229 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #995)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #996)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#read-only'
#line 229 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #997)"
);
      $qc->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #998)"
append_code
#line 230 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #999)"
 ('}');

      my $for_uri = $disResource->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1000)"
get_for
#line 232 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1001)"

                       ($opt{for_arg})->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1002)"
isa_uri
#line 233 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1003)"

                       (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1004)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ManakaiDOM1'
#line 234 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1005)"
)
                    ? $opt{for_arg} : 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1006)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ManakaiDOMLatest'
#line 235 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1007)"
;
      my $cls = $disResource->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1008)"
get_resource
#line 236 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1009)"

                                        (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1010)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#DOMException'
#line 237 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1011)"
,
                                               for_arg => $for_uri);
      my $const = $disResource->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1012)"
get_resource
#line 239 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1013)"

                         (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1014)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#NO_MODIFICATION_ALLOWED_ERR'
#line 240 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1015)"
,
                                               for_arg => $for_uri);
      my $subtype = $disResource->{db}
                                    ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1016)"
get_resource
#line 243 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@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/4/manakai-dom-exception#NOMOD_THIS'
#line 244 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1019)"
,
                                               for_arg => $for_uri);
      $_->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1020)"
is_referred
#line 246 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1021)"

                       ($self) for $cls, $const, $subtype;
      my $context_param = $disResource->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1022)"
_pl_get_context_parameter
#line 248 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1023)"
;
      $disResource->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1024)"
_pl_append_throw
#line 249 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1025)"

                       ($qt, $cls, $const, $subtype,
                        {%$context_param});
      my $or = $r;
      $r = $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1026)"
create_perl_block_container
#line 253 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1027)"
;
      $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1028)"
append_code_fragment
#line 254 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1029)"
 ($or);
      $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1030)"
append_code_fragment
#line 255 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1031)"
 ($q);
    } # Read-only checking
  } elsif ($et eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1032)"
'http://suika.fam.cx/~wakaba/archive/2004/dom/main#raiseException'
#line 257 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1033)"
) {
    my ($cls, $const, $subtype)
        = @{$disResource->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1034)"
xcref_to_resource
#line 259 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1035)"

                                 ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1036)"
value
#line 260 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1037)"
,
                                  $self,
                                  node => $self,
                                  for_arg => $opt{for_arg})};
    my $context_param = $disResource->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1038)"
_pl_get_context_parameter
#line 264 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1039)"
;
    $disResource->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1040)"
_pl_append_throw
#line 265 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1041)"

                    ($r = $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1042)"
create_perl_block_container
#line 266 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1043)"
,
                     $cls, $const, $subtype,
                     {%$context_param});
  } elsif ({
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1044)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ContentType'
#line 270 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1045)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1046)"
1
#line 270 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1047)"
,
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1048)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--For'
#line 271 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1049)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1050)"
1
#line 271 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1051)"
, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1052)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ForCheck'
#line 271 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1053)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1054)"
1
#line 271 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1055)"
,
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1056)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ImplNote'
#line 272 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1057)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1058)"
1
#line 272 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1059)"
,
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1060)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#nop'
#line 273 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1061)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1062)"
1
#line 273 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1063)"
,
  }->{$et}) {
    #
  } else {
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1064)"

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

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

{
#line 285 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1069)"

#line 285 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1067)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1068)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $self, '-type' => 'NOT_SUPPORTED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'pl_code_fragment', '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::ManakaiDISElement', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => $et;

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

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

#line 288 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1075)"

#line 288 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1073)"
;
  }

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

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

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

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

#line 290 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1083)"

#line 290 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1081)"
; # DEEP
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1082)"

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

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

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

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

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

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

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

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

  my 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValueURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1089)"
$v = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1090)"
value
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValueURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1091)"
;
  if (defined $v and not ref $v eq 'ARRAY') {
    $r = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1092)"
qname_to_uri
#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValueURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1093)"
 ($v, node => $self);
  } else {
    $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1094)"
undef
#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValueURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1095)"
;
  }

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

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

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

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

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

#line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValueURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1103)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1104)"

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

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1110)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1111)"
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 #1112)"
}}
sub qname_value_namespace_uri ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1137)"
my ($self) = @_;
my $r;

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

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

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

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

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

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

  my 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValueNamespaceURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1115)"
$v = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1116)"
value
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValueNamespaceURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1117)"
;
  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 #1118)"
prefix_to_uri
#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValueNamespaceURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1119)"

                                    (defined $v ? $p : 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1120)"
undef
#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValueNamespaceURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1121)"
);
  } else {
    $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1122)"
undef
#line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValueNamespaceURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1123)"
;
  }

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

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

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

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

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

#line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValueNamespaceURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@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)"
}
$r;

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

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

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

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

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

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

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

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

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

    my 
#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1147)"
$for_res = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1148)"
owner_dis_document
#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1149)"

                           ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1150)"
dis_database
#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1151)"

                           ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1152)"
get_for
#line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1153)"
 ($forArg);
    my $forp_res = [map {
                          $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1154)"
owner_dis_document
#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1155)"

                               ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1156)"
dis_database
#line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1157)"

                               ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1158)"
get_for
#line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1159)"
 ($_)
                        } @{$forpArg}];

    my @ce = @{$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1160)"
dis_all_child_elements
#line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1161)"
};
    for my $ce (@ce) {
      my $et = $ce->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1162)"
expanded_uri
#line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1163)"
;
      if ($et eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1164)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ForCheck'
#line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1165)"
) {
        my $fors = [split /\s+/, $ce->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1166)"
value
#line 18 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1167)"
];
        FCs: for my $f (@$fors) {
          if ($f =~ /^!=(.+)$/) {        ## -- NOT EQUAL TO
            my $uri = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1168)"
qname_to_uri
#line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1169)"
 ($1);
            my $for = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1170)"
owner_dis_document
#line 22 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1171)"

                           ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1172)"
dis_database
#line 23 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1173)"

                           ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1174)"
get_for
#line 24 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1175)"
 ($uri);
            $for->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1176)"
is_referred
#line 25 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1177)"
 ($ce);
            for my $arg_res ($for_res, @{$forp_res}) {
              if ($arg_res eq $for) {
                $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1178)"
0
#line 28 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1179)"
;
                last FORMATCH;
              }
            }
          } elsif ($f =~ /^!(.+)$/) {    ## -- NOT ISA
            my $uri = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1180)"
qname_to_uri
#line 33 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1181)"
 ($1);
            my $for = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1182)"
owner_dis_document
#line 34 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1183)"

                           ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1184)"
dis_database
#line 35 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1185)"

                           ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1186)"
get_for
#line 36 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1187)"
 ($uri);
            $for->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1188)"
is_referred
#line 37 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1189)"
 ($ce);
            for my $arg_res ($for_res, @{$forp_res}) {
              if ($arg_res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1190)"
isa_uri
#line 39 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1191)"
 ($uri)) {
                $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1192)"
0
#line 40 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1193)"
;
                last FORMATCH;
              }
            }
          } elsif ($f =~ /^=(.+)$/) {    ## -- EQUAL TO
            my $uri = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1194)"
qname_to_uri
#line 45 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1195)"
 ($1);
            my $for = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1196)"
owner_dis_document
#line 46 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1197)"

                           ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1198)"
dis_database
#line 47 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1199)"

                           ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1200)"
get_for
#line 48 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1201)"
 ($uri);
            $for->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1202)"
is_referred
#line 49 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1203)"
 ($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 #1204)"
0
#line 55 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1205)"
;
            last FORMATCH;
          } else {                       ## -- ISA
            my $uri = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1206)"
qname_to_uri
#line 58 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1207)"
 ($f);
            my $for = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1208)"
owner_dis_document
#line 59 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1209)"

                           ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1210)"
dis_database
#line 60 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1211)"

                           ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1212)"
get_for
#line 61 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1213)"
 ($uri);
            $for->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1214)"
is_referred
#line 62 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1215)"
 ($ce);
            for my $arg_res ($for_res, @{$forp_res}) {
              if ($arg_res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1216)"
isa_uri
#line 64 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1217)"
 ($uri)) {
                next FCs;
              }
            }
            $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1218)"
0
#line 68 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1219)"
;
            last FORMATCH;
          }
        } # FCs
      } # dis:ForCheck
    } # children

    my $has_for = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1220)"
0
#line 75 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1221)"
;
    for my $ce (@ce) {
      if ($ce->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1222)"
expanded_uri eq
          
#line 77 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1223)"

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1224)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--For'
#line 77 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1225)"
) {
        my $fors = [split /\s+/, $ce->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1226)"
value
#line 78 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1227)"
];
        my $ok = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1228)"
1
#line 79 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1229)"
;
        $has_for = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1230)"
1
#line 80 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1231)"
;
        AFOR: for my $f (@$fors) {
          if ($f =~ /^!=(.+)$/) {         ## -- NOT EQUAL TO
            my $uri = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1232)"
qname_to_uri
#line 83 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1233)"
 ($1);
            my $for = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1234)"
owner_dis_document
#line 84 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1235)"

                           ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1236)"
dis_database
#line 85 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1237)"

                           ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1238)"
get_for
#line 86 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1239)"
 ($uri);
            $for->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1240)"
is_referred
#line 87 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1241)"
 ($ce);
            if ($for eq $for_res) {
              $ok = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1242)"
0
#line 89 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1243)"
;
              last AFOR;
            }
          } elsif ($f =~ /^!(.+)$/) {     ## -- NOT ISA
            my $uri = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1244)"
qname_to_uri
#line 93 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1245)"
 ($1);
            my $for = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1246)"
owner_dis_document
#line 94 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1247)"

                           ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1248)"
dis_database
#line 95 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1249)"

                           ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1250)"
get_for
#line 96 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1251)"
 ($uri);
            $for->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1252)"
is_referred
#line 97 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1253)"
 ($ce);
            if ($for_res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1254)"
isa_uri
#line 98 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1255)"
 ($uri)) {
              $ok = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1256)"
0
#line 99 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1257)"
;
              last AFOR;
            }
          } elsif ($f =~ /^=(.+)$/) {     ## -- EQUAL TO
            my $uri = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1258)"
qname_to_uri
#line 103 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1259)"
 ($1);
            my $for = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1260)"
owner_dis_document
#line 104 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1261)"

                           ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1262)"
dis_database
#line 105 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1263)"

                           ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1264)"
get_for
#line 106 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1265)"
 ($uri);
            $for->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1266)"
is_referred
#line 107 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1267)"
 ($ce);
            unless ($for eq $for_res) {
              $ok = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1268)"
0
#line 109 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1269)"
;
              last AFOR;
            }
          } else {                        ## -- ISA
            my $uri = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1270)"
qname_to_uri
#line 113 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1271)"
 ($f);
            my $for = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1272)"
owner_dis_document
#line 114 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1273)"

                           ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1274)"
dis_database
#line 115 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1275)"

                           ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1276)"
get_for
#line 116 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1277)"
 ($uri);
            $for->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1278)"
is_referred
#line 117 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1279)"
 ($ce);
            unless ($for_res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1280)"
isa_uri
#line 118 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1281)"
($uri)){
              $ok = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1282)"
0
#line 119 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1283)"
;
              last AFOR;
            }
          }
        } # AFOR
        if ($ok) {
          $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1284)"
1
#line 125 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1285)"
;
          last FORMATCH;
        }
      } # dis:For
    } # $ce
    $r = $has_for ? 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1286)"
0 : 
#line 130 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1287)"

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1288)"
1
#line 130 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1289)"
;
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1290)"

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

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

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

#line 137 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1299)"

#line 137 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1297)"
;
} # FORMATCH
#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)"
}
$r}
sub dis_get_attribute ($$%) {
my ($self, $attrName, %opt) = @_;
my $r;

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

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disGetAttribute][@type=DISLang:Method]/Return[@Type=ManakaiDISElement][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1311)"
for 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disGetAttribute][@type=DISLang:Method]/Return[@Type=ManakaiDISElement][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1303)"
my $c (@{$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1304)"
dis_child_elements
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disGetAttribute][@type=DISLang:Method]/Return[@Type=ManakaiDISElement][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1305)"

                          (for_arg => $opt{for_arg}, forp_arg => $opt{forp_arg})}) {
  if ($c->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1306)"
expanded_uri eq 
#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disGetAttribute][@type=DISLang:Method]/Return[@Type=ManakaiDISElement][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1307)"
$attrName and
      $c->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1308)"
media_type_match
#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disGetAttribute][@type=DISLang:Method]/Return[@Type=ManakaiDISElement][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1309)"

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

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1341)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1319)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1315)"
$r = bless [], 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1316)"
'Message::Util::DIS::ManakaiDISElementList'
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1317)"
;    

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

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

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

{
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1333)"

#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1331)"

  for 
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1321)"
my $cn (@{$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1322)"
child_nodes
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1323)"
}) {
    ## $cn is an #element.
    my $dn = $cn->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1324)"
'node'
#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1325)"
}
                ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1326)"
_new_reference
#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1327)"

                              (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1328)"
'Message::Util::DIS::ManakaiDISElement'
#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1329)"
);
    push @$r, $dn;
  }

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

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

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

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

#line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1339)"

#line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/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}
sub tfqnames_to_uri ($$;$$%) {
my ($self, $tfqnames, $defaultTypeURI, $defaultForURI, %opt) = @_;
my $r;

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

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

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

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

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

#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1353)"

#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1347)"

    $typeURI = $typeq eq ''
               ? defined $defaultTypeURI ? $defaultTypeURI
                                         : 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1348)"
'http://suika.fam.cx/~wakaba/archive/2004/dom/main#any'
               : 
#line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1349)"
$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1350)"
qname_to_uri
#line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1351)"
 ($typeq, %opt);
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1352)"

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

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

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

#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1365)"

#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1359)"
;
  if (length $forq) {
    $forURI = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1360)"
qname_to_uri
#line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1361)"
 ($forq, %opt);
  } else {
    $forURI = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1362)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all'
#line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1363)"
;
  }
} else {  ## "For" omitted
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1364)"

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

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

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

#line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1373)"

#line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1367)"

    $typeURI = $typeq eq ''
               ? defined $defaultTypeURI ? $defaultTypeURI
                                         : 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1368)"
'http://suika.fam.cx/~wakaba/archive/2004/dom/main#any'
               : 
#line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1369)"
$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1370)"
qname_to_uri
#line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1371)"
 ($typeq, %opt);
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1372)"

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

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

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

#line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1383)"

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

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

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

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

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [bc] (Chunk #1389)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1385)"
($forURI eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1386)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all'
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1387)"
) {
  $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 #1388)"

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

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

#line 25 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1395)"

#line 25 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1393)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1394)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=plImplementation][@Type=PerlCode:ManakaiPerlCodeImplementation::ManakaiDOM:Perl][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1411)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=plImplementation][@Type=PerlCode:ManakaiPerlCodeImplementation::ManakaiDOM:Perl][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1409)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=plImplementation][@Type=PerlCode:ManakaiPerlCodeImplementation::ManakaiDOM:Perl][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1399)"
$r = ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1400)"
owner_document or
            
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=plImplementation][@Type=PerlCode:ManakaiPerlCodeImplementation::ManakaiDOM:Perl][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1401)"
$self)->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1402)"
implementation
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=plImplementation][@Type=PerlCode:ManakaiPerlCodeImplementation::ManakaiDOM:Perl][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1403)"

               ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1404)"
get_feature
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=plImplementation][@Type=PerlCode:ManakaiPerlCodeImplementation::ManakaiDOM:Perl][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1405)"

                       (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1406)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/PerlCode'
#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=plImplementation][@Type=PerlCode:ManakaiPerlCodeImplementation::ManakaiDOM:Perl][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1407)"
 => '1.0');
#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)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1414)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1415)"
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' => 'pl_implementation';

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

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

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

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

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

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

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

#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #1423)"
$version = '' unless defined $version;
#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)"
}
my $r;

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

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

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1429)"
$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}) {
    $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1430)"
'node'
#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1431)"
}
              ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1432)"
_new_reference
#line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1433)"
 ($class);
    last CLASS;
  }
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1434)"

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

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

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

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1443)"
my 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1439)"
$v = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1440)"
value
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1441)"
;
if (defined $v and not ref $v eq 'ARRAY') {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1442)"

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

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

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

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

    if 
#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1445)"
($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1446)"
media_type_match
#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1447)"

                          (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1448)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#TFPQNames'
#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1449)"
, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1450)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TFQNames'
#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1451)"
,
                           for_arg => $opt{for_arg}, forp_arg => $opt{forp_arg})) {
      $r = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1452)"
tfpqnames_to_uri
#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1453)"

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

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

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

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

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

#line 15 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1467)"

#line 15 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1463)"
;
} else {
  $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1464)"
undef
#line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1465)"
;
}
#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)"
}
$r}
sub prefix_to_uri ($;$%) {
my ($self, $prefix, %opt) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1511)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1473)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1471)"
(defined $prefix) {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1472)"

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

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

{
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1481)"

#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1479)"

#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1475)"

    $r = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1476)"
lookup_namespace_uri
#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1477)"
 ($prefix);
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1478)"

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

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

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

#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1487)"

#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1485)"
;
  unless (defined $r) {
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1486)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1488)"
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::ManakaiDISElement', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'prefix';

#line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1491)"

#line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1489)"
;
  }
} else {  ## Default namespace
  
#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 #1505)"
local $Error::Depth = $Error::Depth + 1;

{
#line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1503)"

#line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1501)"

#line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1493)"

    $r = ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1494)"
owner_dis_document
#line 15 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1495)"
 || $self)
               ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1496)"
module_element
#line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1497)"

               ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1498)"
defining_namespace_uri
#line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1499)"
;
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1500)"

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

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

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

#line 18 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1509)"

#line 18 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@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 "lib/Message/Util/DIS.dis [/b] (Chunk #1512)"
}
$r}
sub qname_value_local_name ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1533)"
my ($self) = @_;
my $r;

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

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

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

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

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

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

  my 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValueLocalName][@type=DISLang:Attribute]/Get[@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1515)"
$v = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1516)"
value
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValueLocalName][@type=DISLang:Attribute]/Get[@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1517)"
;
  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 #1518)"
undef
#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValueLocalName][@type=DISLang:Attribute]/Get[@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1519)"
;
  }

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  my 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValuePrefix][@type=DISLang:Attribute]/Get[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1539)"
$v = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1540)"
value
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValuePrefix][@type=DISLang:Attribute]/Get[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1541)"
;
  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 #1542)"
undef
#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValuePrefix][@type=DISLang:Attribute]/Get[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1543)"
;
  } else {
    $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1544)"
undef
#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValuePrefix][@type=DISLang:Attribute]/Get[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1545)"
;
  }

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

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

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

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

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

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

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

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1560)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1561)"
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 #1562)"
}}
$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/swcfg21#core', {'', '1', '2.1', '1'}};
$Message::DOM::ClassPoint{q<Message::Util::DIS::ManakaiDISElement>} = 6.2;
$Message::Util::DIS::ManakaiDISElement::CompatClass{q<Message::Util::DIS::ManakaiDISElement>} = 1;
package Message::Util::DIS::ManakaiDISModuleElement;
our $VERSION = 20050904.1346;
push our @ISA, 'Message::Util::DIS::ManakaiDISElement';
sub default_for_uri ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1591)"
my ($self) = @_;
my $r;

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

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

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

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

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

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

  my 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1565)"
$df = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1566)"
get_attribute_ns
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1567)"

                                 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1568)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--'
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1569)"
, 'DefaultFor');
  if ($df) {
    $r = (bless $df, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1570)"
'Message::Util::DIS::ManakaiDISElement'
#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1571)"
)
         ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1572)"
qname_value_uri
#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1573)"

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

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

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

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

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

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

#line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1585)"
;
#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)"
}
$r;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #1607)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1608)"

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

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=requireElement][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1637)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=requireElement][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1615)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=requireElement][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1629)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=requireElement][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1627)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=requireElement][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1617)"

  $r = bless $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1618)"
get_attribute_ns
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=requireElement][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1619)"

                           (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1620)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--'
#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=requireElement][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1621)"
, 'Require', make_new_node => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1622)"
1
#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=requireElement][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1623)"
),
             
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1624)"
'Message::Util::DIS::ManakaiDISElement'
#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=requireElement][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1625)"
;

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

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

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

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

#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=requireElement][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1635)"

#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=requireElement][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1633)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1634)"

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

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

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

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

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

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

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

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

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

  my 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1645)"
$df = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1646)"
get_attribute_ns
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1647)"

                                 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1648)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--'
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1649)"
, 'Namespace');
  if ($df) {
    $r = $df->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1650)"
value
#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1651)"
;
  } else {
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1652)"

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

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

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

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

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

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

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

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

#line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1663)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1664)"

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #1685)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1686)"

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

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1692)"
}}
$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/swcfg21#core', {'', '1', '2.1', '1'}};
$Message::DOM::ClassPoint{q<Message::Util::DIS::ManakaiDISModuleElement>} = 7.2;
package Message::Util::DIS::ManakaiDISElementList;
our $VERSION = 20050904.1346;
$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 = 20050904.1346;
push our @ISA, 'Message::Util::DIS::ManakaiDISNode', 'Message::Markup::SuikaWikiConfig21::ManakaiSWCFGComment';
$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 = 20050904.1346;
push our @ISA, 'Message::Util::DIS::ManakaiDISNode', 'Message::Markup::SuikaWikiConfig21::ManakaiSWCFGDocumentFragment';
$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 = 20050904.1346;
push our @ISA, 'Message::Util::DIS::ManakaiDISNode', 'Message::Markup::SuikaWikiConfig21::ManakaiSWCFGDocument';
sub dis_child_elements ($%) {
my ($self, %opt) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1723)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1697)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1693)"
$r = bless [], 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1694)"
'Message::Util::DIS::ManakaiDISElementList'
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1695)"
;    

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

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

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

{
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1715)"

#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1713)"

  for 
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1699)"
my $cn (@{$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1700)"
child_nodes
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1701)"
}) {
    next unless $cn->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1702)"
node_type eq 
#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1703)"
'#element';
    my $dn = $cn->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1704)"
'node'
#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1705)"
}
                ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1706)"
_new_reference
#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1707)"

                              (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1708)"
'Message::Util::DIS::ManakaiDISElement'
#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1709)"
);
    next unless $dn->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1710)"
for_match
#line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1711)"
 ($opt{for_arg}, $opt{forp_arg});
    push @$r, $dn;
  }

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

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

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

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

#line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1721)"

#line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1719)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1720)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=moduleElement][@Type=ManakaiDISModuleElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1747)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=moduleElement][@Type=ManakaiDISModuleElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1725)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=moduleElement][@Type=ManakaiDISModuleElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1737)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=moduleElement][@Type=ManakaiDISModuleElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1735)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=moduleElement][@Type=ManakaiDISModuleElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1727)"

  $r = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1728)"
get_attribute_ns
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=moduleElement][@Type=ManakaiDISModuleElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/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--'
#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=moduleElement][@Type=ManakaiDISModuleElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1731)"
, 'Module', make_new_node => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1732)"
1
#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=moduleElement][@Type=ManakaiDISModuleElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1733)"
);

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

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

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

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

#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=moduleElement][@Type=ManakaiDISModuleElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1745)"

#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=moduleElement][@Type=ManakaiDISModuleElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1741)"
;
$r = bless $r, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1742)"
'Message::Util::DIS::ManakaiDISModuleElement'
#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=moduleElement][@Type=ManakaiDISModuleElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1743)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1744)"

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

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=disDatabase][@Type=ManakaiDISDatabase][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1769)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=disDatabase][@Type=ManakaiDISDatabase][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1763)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=disDatabase][@Type=ManakaiDISDatabase][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1753)"
($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1754)"
'node'
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=disDatabase][@Type=ManakaiDISDatabase][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1755)"
}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1756)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#db'
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=disDatabase][@Type=ManakaiDISDatabase][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1757)"
}) {
  $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1758)"
'node'
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=disDatabase][@Type=ManakaiDISDatabase][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1759)"
}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1760)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#db'
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=disDatabase][@Type=ManakaiDISDatabase][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1761)"
};
} else {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1762)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1764)"
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)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=disDatabase][@Type=ManakaiDISDatabase][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1767)"

#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=disDatabase][@Type=ManakaiDISDatabase][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1765)"
;
}
#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;

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=disDatabase][@Type=ManakaiDISDatabase][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [b] (Chunk #1785)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=disDatabase][@Type=ManakaiDISDatabase][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [bc] (Chunk #1783)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=disDatabase][@Type=ManakaiDISDatabase][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #1773)"
$self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1774)"
'node'
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=disDatabase][@Type=ManakaiDISDatabase][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #1775)"
}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1776)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#db'
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=disDatabase][@Type=ManakaiDISDatabase][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #1777)"
} = $given;
require Scalar::Util;
Scalar::Util::weaken ($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1778)"
'node'
#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=disDatabase][@Type=ManakaiDISDatabase][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #1779)"
}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1780)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#db'
#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=disDatabase][@Type=ManakaiDISDatabase][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #1781)"
});
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1782)"

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

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1817)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1793)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1789)"
$r = bless [], 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1790)"
'Message::Util::DIS::ManakaiDISElementList'
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1791)"
;    

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

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

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

{
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1809)"

#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1807)"

  for 
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1795)"
my $cn (@{$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1796)"
child_nodes
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1797)"
}) {
    next unless $cn->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1798)"
node_type eq 
#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1799)"
'#element';
    my $dn = $cn->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1800)"
'node'
#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1801)"
}
                ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1802)"
_new_reference
#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1803)"

                              (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1804)"
'Message::Util::DIS::ManakaiDISElement'
#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1805)"
);
    push @$r, $dn;
  }

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

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

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

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

#line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1815)"

#line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1813)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1814)"

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

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1818)"
}
$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 = 20050904.1346;
push our @ISA, 'Message::Util::DIS::ManakaiDISExceptionTarget';
sub get_source_file ($$) {
my ($self, $fileName) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getSourceFile][@type=DISLang:Method]/Return[@Type=ManakaiDISDocument][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1825)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getSourceFile][@type=DISLang:Method]/Return[@Type=ManakaiDISDocument][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1823)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getSourceFile][@type=DISLang:Method]/Return[@Type=ManakaiDISDocument][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1819)"
$r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1820)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceFile'
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getSourceFile][@type=DISLang:Method]/Return[@Type=ManakaiDISDocument][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1821)"
}->{$fileName};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1822)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getModule][@type=DISLang:Method]/Return[@Type=ManakaiDISModuleDefinition][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1847)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getModule][@type=DISLang:Method]/Return[@Type=ManakaiDISModuleDefinition][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1829)"
my 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getModule][@type=DISLang:Method]/Return[@Type=ManakaiDISModuleDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1827)"
$modURI;
if (defined $opt{for_arg}) {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1828)"

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

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

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [bc] (Chunk #1835)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1831)"
($opt{for_arg} eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1832)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all'
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1833)"
) {
  $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 #1834)"

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

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

#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getModule][@type=DISLang:Method]/Return[@Type=ManakaiDISModuleDefinition][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1845)"

#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getModule][@type=DISLang:Method]/Return[@Type=ManakaiDISModuleDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1839)"
;
} 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 #1840)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all'
#line 15 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getModule][@type=DISLang:Method]/Return[@Type=ManakaiDISModuleDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1841)"
,
         forp => [],
       }, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1842)"
'Message::Util::DIS::ManakaiDISModuleDefinition'
#line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getModule][@type=DISLang:Method]/Return[@Type=ManakaiDISModuleDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1843)"
;
  require Scalar::Util;
  Scalar::Util::weaken ($r->{db});
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1844)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2071)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1853)"

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

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

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

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

{
#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2063)"

#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1859)"

#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1855)"

  ## -- Node names

  ## Unique resource identifier generated from node id
  my $node_id = $el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1856)"
node_id
#line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1857)"
;
  my $node_uri;
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1858)"

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

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

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/ResourceDef[@QName=tfpurisToURI][@type=dis2pm:BlockCode]/PerlDef [bc] (Chunk #1865)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/ResourceDef[@QName=tfpurisToURI][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1861)"
($opt{for_arg} eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1862)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' and 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/ResourceDef[@QName=tfpurisToURI][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1863)"
@{$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 #1864)"

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

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

#line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1881)"

#line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1869)"
;

  ## User defined resource identifiers
  my $qn_node = $el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1870)"
dis_get_attribute
#line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1871)"

                              (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1872)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--QName'
#line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1873)"
, for_arg => $opt{for_arg},
                               forp_arg => $opt{forp_arg});
  my $res;
  if ($qn_node) {
    my $qn_uri = $qn_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1874)"
qname_value_uri
#line 18 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1875)"
;
    $res = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1876)"
get_resource
#line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1877)"

                        ($qn_uri, for_arg => $opt{for_arg});
    if ($res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1878)"
is_defined
#line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1879)"
) {
      
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1880)"

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

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

{
#line 22 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1891)"

#line 22 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1885)"

#line 22 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1883)"

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1886)"
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 27 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1889)"

#line 27 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1887)"
;
      
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1888)"

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

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

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

#line 28 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1907)"

#line 28 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1895)"
;
    }
    $res->{nameURI} = $qn_uri;
    $res->{localName} = $qn_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1896)"
qname_value_local_name
#line 31 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1897)"
;
    $res->{namespaceURI} = $qn_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1898)"
qname_value_namespace_uri
#line 32 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1899)"
;
  } else { ## Anonymous or local
    my $n_node = $el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1900)"
dis_get_attribute
#line 34 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1901)"

                              (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1902)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Name'
#line 35 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1903)"
, for_arg => $opt{for_arg},
                               forp_arg => $opt{forp_arg});
    if ($n_node) {
      if ($parentResource) {
        my $puri = $parentResource->{uri};
        my $ru;
        my $ln = $n_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1904)"
value
#line 41 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1905)"
;
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1906)"

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/ResourceDef[@QName=getChildResourceURI][@type=dis2pm:BlockCode]/PerlDef [b] (Chunk #1913)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/ResourceDef[@QName=getChildResourceURI][@type=dis2pm:BlockCode]/PerlDef [bc] (Chunk #1911)"
my 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/ResourceDef[@QName=getChildResourceURI][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1909)"
$__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 #1910)"

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

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

#line 47 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1937)"

#line 47 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1915)"
;
        $res = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1916)"
get_resource
#line 48 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1917)"

                            ($ru, for_arg => $opt{for_arg});
        $res->{nameURI} = $ru;
        $res->{localName} = $n_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1918)"
value
#line 51 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1919)"
;
        $res->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1920)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isAnon'
#line 52 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1921)"
} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1922)"
1
#line 52 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1923)"
;
      } else {  ## Root local name resource
        my $ln = $n_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1924)"
value
#line 54 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1925)"
;
        my $ns_uri = $mod->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1926)"
get_property_text
#line 55 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1927)"

                                         (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1928)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Namespace'
#line 56 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1929)"
, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1930)"
undef
#line 56 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1931)"
);
        my $qn_uri = $ns_uri . $ln;
        $res = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1932)"
get_resource
#line 58 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1933)"

                            ($qn_uri, for_arg => $opt{for_arg});
        if ($res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1934)"
is_defined
#line 60 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1935)"
) {
          
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1936)"

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

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

{
#line 64 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1947)"

#line 64 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1941)"

#line 64 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1939)"

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1942)"
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->{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 69 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1945)"

#line 69 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1943)"
;
         
#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 #1948)"
}

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

#line 70 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2061)"

#line 70 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1951)"
;
        }
        $res->{nameURI} = $qn_uri;
        $res->{namespaceURI} = $ns_uri;
        $res->{localName} = $ln;
      }
    } else {
      $res = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1952)"
get_resource
#line 77 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1953)"
 ($node_uri);
      $res->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1954)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isAnon'
#line 78 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1955)"
} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1956)"
1
#line 78 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1957)"
;
    }
  } # anon
  $res->{for} = $opt{for_arg};
  $res->{forp} = $opt{forp_arg};
  $res->{src} = $el;
  $res->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1958)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#definingModule'
#line 84 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1959)"
} = $mod->{uri};
  $mod->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1960)"
add_property_resource_list
#line 85 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1961)"

                                    (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1962)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#resource'
#line 86 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1963)"
, $res);
  $res->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1964)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#parentResource'
#line 87 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1965)"
}
     = $parentResource ? $parentResource->{uri} : 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1966)"
undef
#line 88 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1967)"
;
  $res->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1968)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#dynamicParentResource'
#line 89 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1969)"
}
     = $dynParent ? $dynParent->{uri} : 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1970)"
undef
#line 90 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1971)"
;
  unless ($res->{uri} eq $node_uri) {
    my $nu_res = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1972)"
get_resource
#line 92 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1973)"
 ($node_uri);
    $res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1974)"
merge_as_alias
#line 93 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1975)"
 ($nu_res);
  }
  $res->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1976)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isDefined'
#line 95 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1977)"
} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1978)"
1
#line 95 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1979)"
;
  $res->{seq} = $self->{seq}++;
  $res->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1980)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNodeID'
#line 97 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1981)"
} = $node_id;
  
  ## -- Alias
  my $al_node = $el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1982)"
dis_get_attribute
#line 100 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1983)"

                              (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1984)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AliasFor'
#line 101 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1985)"
, for_arg => $opt{for_arg},
                               forp_arg => $opt{forp_arg});
  if ($al_node) {
    my $canon_uri = $al_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1986)"
tfqnames_value_uri
#line 104 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1987)"

                                                   ($node_id, $opt{for_arg},
                            for_arg => $self->{for},
                            forp_arg => $self->{forp});
    my $canon_res = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1988)"
get_resource
#line 108 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1989)"

                                                   ($canon_uri);
    $canon_res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1990)"
is_referred
#line 110 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1991)"
 ($al_node);
    $canon_res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1992)"
merge_as_alias
#line 111 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1993)"

                              ($res, node => $al_node);
    $res = $canon_res;
  }

  ## -- Registers as child
  $parentResource->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1994)"
add_property_resource_list
#line 117 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1995)"

                              (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1996)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#childResource'
#line 118 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1997)"
, $res)
     if $parentResource;
  $dynParent->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1998)"
add_property_resource_list
#line 120 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1999)"

                              (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2000)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#dynamicChildResource'
#line 121 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2001)"
, $res)
     if $dynParent;

  my $is_multires = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2002)"
0
#line 124 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2003)"
;
  my @props;
  my @cres;
  my @ce0 = @{$el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2004)"
dis_child_elements
#line 127 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2005)"

                            (for_arg => $opt{for_arg}, forp_arg => $opt{forp_arg})};
  while (@ce0) {
    my $ce = shift @ce0;
    if ($ce->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2006)"
element_type_match
#line 131 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2007)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2008)"
'http://www.w3.org/1999/02/22-rdf-syntax-ns#type'
#line 131 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2009)"
)) {
      my $type_uri = $ce->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2010)"
qname_value_uri
#line 132 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2011)"
;
      $res->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2012)"
'http://www.w3.org/1999/02/22-rdf-syntax-ns#type'
#line 133 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2013)"
}->{$type_uri} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2014)"
1
#line 133 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2015)"
;
      my $type = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2016)"
get_resource
#line 134 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2017)"
 ($type_uri);
      $type->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2018)"
is_referred
#line 135 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2019)"
 ($ce);
      if ($type->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2020)"
is_subset_of_uri
#line 136 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@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--MultipleResource'
#line 137 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2023)"
)) {
        $is_multires = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2024)"
1
#line 138 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2025)"
;
      }
    } elsif ($ce->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2026)"
element_type_match
#line 140 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2027)"

                                           (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2028)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--subsetOf'
#line 141 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2029)"
)) {
      my $sres = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2030)"
get_resource
#line 142 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2031)"

                          ($ce->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2032)"
tfqnames_value_uri
#line 143 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2033)"

                                            ($node_id, $opt{for_arg},
                            for_arg => $opt{for_arg}, forp_arg => $opt{forp_arg}));
      $res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2034)"
add_super_resource
#line 146 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2035)"
 ($sres);
    } elsif ($ce->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2036)"
is_resource_element
#line 147 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2037)"
) {
      push @cres, $ce;
    } else {
      ## Property and invalid element is not checked, since not
      ## all property definitions has loaded at this stage. 
      push @props, $ce;
    }
  } # @ce0

  ## -- Child resources
  unless ($is_multires) {
    for my $re (@cres) {
      unless ($al_node) {
        $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2038)"
load_resource
#line 160 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2039)"

                             ($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 #2040)"
dis_get_attribute
#line 165 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@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/lang#dis--aliasChild'
#line 166 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2043)"
, for_arg => $opt{for_arg},
                             forp_arg => $opt{forp_arg});
        if ($ac and $ac->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2044)"
value
#line 168 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2045)"
) {
          $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2046)"
load_resource
#line 169 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2047)"

                             ($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 #2048)"
element_type_match
#line 181 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2049)"

                                       (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2050)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--resourceFor'
#line 182 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2051)"
)) {
        my $for_uri = $pe->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2052)"
qname_value_uri
#line 183 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2053)"
;
        my $for = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2054)"
get_for
#line 184 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2055)"
 ($for_uri);
        $for->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2056)"
is_referred
#line 185 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2057)"
 ($pe);
        $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2058)"
load_resource
#line 186 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2059)"

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

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

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

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

#line 198 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2069)"

#line 198 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2067)"
; # DEEP
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2068)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=ManakaiDISForDefinition][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2089)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=ManakaiDISForDefinition][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2087)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=ManakaiDISForDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2073)"
$forURI = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2074)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' unless 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=ManakaiDISForDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2075)"
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 #2076)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all'
#line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=ManakaiDISForDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2077)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2078)"
1
#line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=ManakaiDISForDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2079)"
},
         revISA => {},
         db => $self,
       }, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2080)"
'Message::Util::DIS::ManakaiDISForDefinition'
#line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=ManakaiDISForDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2081)"
;
  $self->{forDef}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2082)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all'
#line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=ManakaiDISForDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2083)"
}->{revISA}->{$forURI} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2084)"
1
#line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=ManakaiDISForDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2085)"
;
  require Scalar::Util;
  Scalar::Util::weaken ($r->{db});
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2086)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2195)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2091)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2187)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2099)"

  my 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2093)"
$qn_node = $el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2094)"
get_attribute_ns
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@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 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2097)"
, 'QName');
  unless ($qn_node) {
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2098)"

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

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

{
#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2109)"

#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2103)"

#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2101)"

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2104)"
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_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 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2107)"

#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2105)"
;
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2106)"

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

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

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

#line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2153)"

#line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2113)"
;
  }
  $qn_node = bless $qn_node, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2114)"
'Message::Util::DIS::ManakaiDISElement'
#line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2115)"
;
  my $qn_uri = $qn_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2116)"
qname_value_uri
#line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2117)"
;
  my $for = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2118)"
get_for
#line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2119)"
 ($qn_uri);

  unless ($for->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2120)"
is_defined
#line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2121)"
) {
    ## -- Initializes "For" Definition Object
    $for->{src} = $el;
    $for->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2122)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isDefined'
#line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2123)"
} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2124)"
1
#line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2125)"
;
    $for->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2126)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#definingModule'
#line 20 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2127)"
} = $mod->{uri};

    for my $ce (@{$el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2128)"
dis_all_child_elements
#line 22 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2129)"
}) {
      my $xn = $ce->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2130)"
expanded_uri
#line 23 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2131)"
;
      if ($xn eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2132)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ISA' or 
#line 24 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2133)"
$xn eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2134)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Implement'
#line 24 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2135)"
) {
        my $sfor = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2136)"
get_for
#line 25 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2137)"

                    ($ce->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2138)"
qname_value_uri
#line 26 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2139)"
);
        $for->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2140)"
add_isa
#line 27 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2141)"
 ($sfor);
        $sfor->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2142)"
is_referred
#line 28 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2143)"
 ($ce);
        ## TODO: warn if dis:Implement
      } elsif ({
                 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2144)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Description'
#line 31 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@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 32 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2147)"
 => 1,
                 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2148)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--FullName'
#line 33 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2149)"
 => 1,
                 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2150)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--QName'
#line 34 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2151)"
 => 1,
               }->{$xn}) {
        # 
      } else {
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2152)"

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

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

{
#line 39 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2163)"

#line 39 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2157)"

#line 39 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@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)"
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' => $mod->{uri};

#line 44 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2161)"

#line 44 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2159)"
;
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2160)"

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

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

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

#line 45 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2169)"

#line 45 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2167)"
;
      }
    }
  } else {
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2168)"

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

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

{
#line 49 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2179)"

#line 49 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2173)"

#line 49 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2171)"

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

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

#line 54 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2177)"

#line 54 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2175)"
;
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2176)"

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

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

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

#line 55 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2185)"

#line 55 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2183)"
;
  } # isDefine?

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

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

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

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

#line 57 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2193)"

#line 57 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2191)"
; # DEEP
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2192)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=plStore][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2201)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=plStore][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2199)"
use 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=plStore][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2197)"
Storable qw/nstore/;
local $Carp::CarpLevel = $Carp::CarpLevel + 1;
nstore $self, $fileName;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2198)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2223)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2209)"
for 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2203)"
my $fd (values %{$self->{forDef}}) {
  if (my $ref = $fd->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2204)"
is_referred and
      
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2205)"
not $fd->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2206)"
is_defined
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2207)"
) {
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2208)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2210)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $ref, '-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/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)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2217)"

#line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2211)"
;
  }
}
for my $fd (values %{$self->{resDef}}) {
  if (my $ref = $fd->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2212)"
is_referred and
      
#line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2213)"
not $fd->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2214)"
is_defined
#line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2215)"
) {
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2216)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2218)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $ref, '-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/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)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2221)"

#line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2219)"
;
  }
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2220)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2445)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2231)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2225)"
$resolver = bless $resolver, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2226)"
'Message::Util::DIS::ManakaiDISModuleResolver'
              if 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2227)"
ref $resolver eq 'CODE'; 
## -- Module Name, URI
$opt{for_arg} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2228)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' unless 
#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2229)"
defined $opt{for_arg};
my $mod_node;
my $mod_name_node;

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

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

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

{
#line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2437)"

#line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2241)"

#line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2233)"

  $mod_node = $doc->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2234)"
module_element
#line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2235)"
;
  $mod_name_node = $mod_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2236)"
get_attribute_ns
#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2237)"

                                         (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2238)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--'
#line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2239)"
, 'QName');
  unless ($mod_name_node) {
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2240)"

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

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

{
#line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2251)"

#line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2245)"

#line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2243)"

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2246)"
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 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2249)"

#line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2247)"
;
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2248)"

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

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

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

#line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2303)"

#line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2255)"
;
  }
  $mod_name_node = bless $mod_name_node, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2256)"
'Message::Util::DIS::ManakaiDISElement'
#line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2257)"
;
  my $mod_name_uri = $mod_name_node
                        ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2258)"
qname_value_uri
#line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2259)"
;
  my $mod = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2260)"
get_module
#line 22 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2261)"

                           ($mod_name_uri, for_arg => $opt{for_arg});

  unless ($mod->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2262)"
is_defined
#line 25 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2263)"
) {
    ## -- Initializes Module Definition Object
    $mod->{nameURI} = $mod_name_uri;
    $mod->{localName} = $mod_name_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2264)"
qname_value_local_name
#line 28 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2265)"
;
    $mod->{namespaceURI} = $mod_name_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2266)"
qname_value_namespace_uri
#line 29 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2267)"
;
    $mod->{for} = $opt{for_arg};
    $mod->{src} = $mod_node;
    $mod->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2268)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isDefined'
#line 32 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2269)"
} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2270)"
1
#line 32 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2271)"
;
    $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2272)"
set_source_file
#line 33 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2273)"

                                ($mod->{nameURI} => $doc);

    $mod->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2274)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceFile'
#line 36 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2275)"
}
      = $mod->{src}
            ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2276)"
owner_document
#line 38 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2277)"

            ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2278)"
flag
#line 39 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2279)"

                                 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2280)"
'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#fileName'
#line 40 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2281)"
);
    
    ## -- Loads "for" definition
    my $root_elements
               = $doc->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2282)"
dis_all_child_elements
#line 44 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2283)"
;
    if ($mod->{for} eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2284)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all'
#line 45 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2285)"
) {
      for my $el (@$root_elements) {
        next unless $el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2286)"
expanded_uri eq 
#line 47 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2287)"

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2288)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ForDef'
#line 47 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2289)"
;
        $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2290)"
load_for
#line 48 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2291)"
 ($mod, $el);
      }
    }

    ## -- Loads "for all"
    my $rmod = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2292)"
get_module
#line 53 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2293)"

                       ($mod->{nameURI}, for_arg => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2294)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all'
#line 54 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2295)"
);
    unless ($rmod->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2296)"
is_defined
#line 55 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2297)"
) {
      my $rdoc = $resolver->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2298)"
uri_to_document
#line 56 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2299)"

                       ($self, $rmod->{uri}, $mod->{namespaceURI},
                        $mod->{localName}, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2300)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all'
#line 58 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2301)"
);
      unless ($rdoc) {
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2302)"

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

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

{
#line 63 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2313)"

#line 63 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2307)"

#line 63 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2305)"

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

#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' => $mod->{src}, '-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->{namespaceURI}, '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->{localName}, '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 70 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2311)"

#line 70 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2309)"
;
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2310)"

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

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

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

#line 71 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2361)"

#line 71 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2317)"
;
      }
      $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2318)"
load_module
#line 73 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2319)"

                    ($rdoc, $resolver, for_arg => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2320)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all'
#line 74 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2321)"
,
                     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 #2322)"
require_element
#line 80 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2323)"
;
    for my $rm (@{$req_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2324)"
dis_all_child_elements
#line 81 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2325)"
}) {
      next unless $rm->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2326)"
expanded_uri eq 
#line 82 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2327)"

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2328)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Module'
#line 82 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2329)"
;
      my ($uri, $nuri, $ln, $for);
      my $mqn = $rm->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2330)"
get_attribute_ns
#line 84 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2331)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2332)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--'
#line 84 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2333)"
, 'QName');
      if ($mqn) {
        my $mqv = $mqn->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2334)"
value
#line 86 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2335)"
;
        my $mqp = (bless $mqn, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2336)"
'Message::Util::DIS::ManakaiDISElement'
#line 87 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2337)"
)
                  ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2338)"
qname_to_pair
#line 88 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2339)"

                                               ($mqv, node => $mqn);
        ($nuri, $ln) = @$mqp;
      } else {
        my $mn = $rm->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2340)"
get_attribute_ns
#line 92 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2341)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2342)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--'
#line 92 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2343)"
, 'Name');
        if ($mn) {
          $nuri = $mod->{namespaceURI};
          $ln = $mn->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2344)"
value
#line 95 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2345)"
;
        } else {
          $nuri = $mod->{namespaceURI};
          $ln = $mod->{localName};
        }
      }
      my $wfn = $rm->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2346)"
get_attribute_ns
#line 101 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2347)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2348)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--'
#line 101 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2349)"
, 'WithFor');
      if ($wfn) {
        $for = (bless $wfn, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2350)"
'Message::Util::DIS::ManakaiDISElement'
#line 103 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2351)"
)
               ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2352)"
qname_value_uri
#line 104 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2353)"
;
      } else {
        $for = $mod->{for};
      }
      my $rmod = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2354)"
get_module
#line 108 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2355)"

                               ($nuri . $ln, for_arg => $for);
      unless ($rmod->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2356)"
is_defined
#line 110 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2357)"
) {
        my $rdoc = $resolver->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2358)"
uri_to_document
#line 111 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2359)"

                               ($self, $rmod->{uri}, $nuri, $ln, $for);
        unless ($rdoc) {
          
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2360)"

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

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

{
#line 121 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2371)"

#line 121 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2365)"

#line 121 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2363)"

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2366)"
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 128 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2369)"

#line 128 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2367)"
;
          
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2368)"

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

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

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

#line 129 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2397)"

#line 129 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2375)"
;
        }
        $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2376)"
load_module
#line 131 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2377)"

                               ($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 #2378)"
dis_child_elements
#line 138 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2379)"

                                 (for_arg => $opt{for_arg});
    for my $el (@$root_elements) {
      if ($el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2380)"
is_resource_element
#line 141 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2381)"
) {
        $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2382)"
load_resource
#line 142 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2383)"

                                 ($mod, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2384)"
undef
#line 143 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2385)"
, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2386)"
undef
#line 143 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2387)"
, $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 #2388)"
expanded_uri
#line 147 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2389)"
;
        if ({
                 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2390)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ForDef'
#line 149 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2391)"
 => 1,
                 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2392)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Module'
#line 150 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2393)"
 => 1,
                 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2394)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ImplNote'
#line 151 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2395)"
 => 1,
            }->{$et}) {
          # 
        } else {
          
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2396)"

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

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

{
#line 156 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2407)"

#line 156 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2401)"

#line 156 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2399)"

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2402)"
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 161 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2405)"

#line 161 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2403)"
;
          
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2404)"

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

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

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

#line 162 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2419)"

#line 162 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2411)"
;
        }
      } # element types
    }
    
    my $dn = $mod_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2412)"
get_attribute_ns
#line 167 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2413)"

                                 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2414)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--'
#line 168 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2415)"
, 'Namespace');
    unless ($dn and defined $dn->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2416)"
value
#line 169 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2417)"
) {
      
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2418)"

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

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

{
#line 172 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2429)"

#line 172 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2423)"

#line 172 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2421)"

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2424)"
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 176 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2427)"

#line 176 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2425)"
;
      
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2426)"

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

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

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

#line 177 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2435)"

#line 177 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2433)"
;
    }
  } # Unless this module loaded

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

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

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

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

#line 180 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2443)"

#line 180 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2441)"
; # Deep
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2442)"

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

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

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

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

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

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

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

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

#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #2453)"
$version = '' unless defined $version;
#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)"
}
my $r;

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

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2461)"

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

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2575)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2467)"
my 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2465)"
($q1, $q2, $q3) = split /\s*\.\s*/, $xcref, 3;

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

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

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

{
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2567)"

#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2513)"

  if 
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2469)"
(defined $q3) {
    $r->[2] = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2470)"
get_resource
#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2471)"

                 ($contextNode->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2472)"
tfqnames_to_uri
#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2473)"

                                  ($q3, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2474)"
undef
#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2475)"
, $opt{for_arg}, node => $opt{node}));
    $r->[1] = $r->[2]->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2476)"
get_property_resource
#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2477)"

                                  (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2478)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#parentResource'
#line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2479)"
);
  } elsif (defined $q2) {
    if ($q2 =~ /:/) {
      $r->[1] = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2480)"
get_resource
#line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2481)"

                 ($contextNode->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2482)"
tfqnames_to_uri
#line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2483)"

                                  ($q2, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2484)"
undef
#line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2485)"
, $opt{for_arg}, node => $opt{node}));
    } else {
      $r->[0] = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2486)"
get_resource
#line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2487)"

                 ($contextNode->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2488)"
tfqnames_to_uri
#line 15 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2489)"

                                  ($q1, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2490)"
undef
#line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2491)"
, $opt{for_arg}, node => $opt{node}));
      $r->[1] = $r->[0]->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2492)"
get_const_resource_by_name
#line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2493)"
 ($q2);
    }
  } else {  ## $q1 only
    $r->[2] = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2494)"
get_resource
#line 20 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2495)"

                 ($contextNode->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2496)"
tfqnames_to_uri
#line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2497)"

                                  ($q1, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2498)"
undef
#line 22 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2499)"
, $opt{for_arg}, node => $opt{node}));
    if ($r->[2]->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2500)"
is_type_uri
#line 23 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2501)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2502)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ExceptionOrWarningSubType'
#line 23 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2503)"
)) {
      $r->[1] = $r->[2]->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2504)"
get_property_resource
#line 24 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2505)"

                                  (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2506)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#parentResource'
#line 25 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2507)"
);
    } 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 #2508)"
is_type_uri
#line 32 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2509)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2510)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ExceptionOrWarningSubType'
#line 32 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2511)"
)) {
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2512)"

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

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

{
#line 39 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2517)"

#line 39 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2515)"

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

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

#line 44 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2529)"

#line 44 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2521)"
;
  }
  $r->[2]->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2522)"
is_referred
#line 46 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2523)"

                                       ($opt{node} or $contextNode)
    if $r->[2];
  
  if (not $r->[1] or
      not $r->[1]->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2524)"
is_type_uri
#line 51 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2525)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2526)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Const'
#line 51 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2527)"
)) {
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2528)"

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

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

{
#line 53 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2533)"

#line 53 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2531)"

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

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

#line 59 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2553)"

#line 59 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2537)"
;
  }
  $r->[1]->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2538)"
is_referred
#line 61 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2539)"

                                       ($opt{node} or $contextNode);

  unless ($r->[0]) {
    my $cg = $r->[1]->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2540)"
get_property_resource
#line 65 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2541)"

                                  (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2542)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#parentResource'
#line 66 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2543)"
);
    $r->[0] = $cg->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2544)"
get_property_resource
#line 67 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2545)"

                                  (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2546)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#parentResource'
#line 68 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2547)"
) if $cg;
  }
  if (not $r->[0] or
      not $r->[0]->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2548)"
is_type_uri
#line 71 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2549)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2550)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#AnyExceptionClass'
#line 71 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2551)"
)) {
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2552)"

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

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

{
#line 75 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2557)"

#line 75 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2555)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2556)"
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#AnyExceptionClass', '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 #2558)"
}

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

#line 81 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2565)"

#line 81 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2561)"
;
  }
  $r->[0]->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2562)"
is_referred
#line 83 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2563)"

                                       ($opt{node} or $contextNode);

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

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

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

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

#line 85 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2573)"

#line 85 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2571)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2572)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=setSourceFile][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2583)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=setSourceFile][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2581)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=setSourceFile][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2577)"
$self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2578)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceFile'
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=setSourceFile][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2579)"
}->{$fileName} = $doc;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2580)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2609)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2589)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2585)"
$resourceURI = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2586)"
'http://suika.fam.cx/~wakaba/archive/2004/dom/main#any' unless 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2587)"
defined $resourceURI;
my $resURI;
if (defined $opt{for_arg}) {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2588)"

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

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

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [bc] (Chunk #2595)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #2591)"
($opt{for_arg} eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2592)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all'
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #2593)"
) {
  $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 #2594)"

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

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

#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2607)"

#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2599)"
;
} 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 #2600)"
1
#line 15 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2601)"
},
         subOf => {},
         supOf => {},
         db => $self,
         for => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2602)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all'
#line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2603)"
,
         forp => [],
         seq => -1,
       }, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2604)"
'Message::Util::DIS::ManakaiDISResourceDefinition'
#line 22 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2605)"
;
  require Scalar::Util;
  Scalar::Util::weaken ($r->{db});
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2606)"

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

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2610)"
}
$r}
$Message::DOM::ClassFeature{q<Message::Util::DIS::ManakaiDISDatabase>} = {'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#core', {'', '1', '1.0', '1'}};
$Message::DOM::ClassPoint{q<Message::Util::DIS::ManakaiDISDatabase>} = 2;
$Message::Util::DIS::ManakaiDISDatabase::CompatClass{q<Message::Util::DIS::ManakaiDISDatabase>} = 1;
package Message::Util::DIS::ManakaiDISModuleResolver;
our $VERSION = 20050904.1346;
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=ManakaiDISDocument][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2615)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleResolver][@type=dis:MultipleResource]/Method[@Name=uriToDocument][@type=DISLang:Method]/Return[@Type=ManakaiDISDocument][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2613)"

#line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleResolver][@type=dis:MultipleResource]/Method[@Name=uriToDocument][@type=DISLang:Method]/Return[@Type=ManakaiDISDocument][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2611)"
$r = $self->(@_);
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2612)"

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

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2616)"
}
$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::ManakaiDISModuleDefinition;
our $VERSION = 20050904.1346;
push our @ISA, 'Message::Util::DIS::ManakaiDISPropertyAccessor', 'Message::Util::DIS::ManakaiDISExceptionTarget', 'Message::Util::DIS::ManakaiDISPerlModuleDefinition';
sub pl_interface_name ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2679)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2677)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2617)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2669)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2625)"

  my 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2619)"
$mg = $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2620)"
get_resource
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2621)"

                                      ($self->{namespaceURI});
  unless ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2622)"
is_defined
#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2623)"
) {
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2624)"

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

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

{
#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2635)"

#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2629)"

#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2627)"

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2630)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $self->{src}, '-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#RESOURCE_NOT_DEFINED_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' => 'pl_interface_name', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $self->{namespaceURI};

#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2633)"

#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2631)"
;
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2632)"

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

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

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

#line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2667)"

#line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2639)"
;
  }
  my $an = $mg->{src}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2640)"
dis_get_attribute
#line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2641)"

                             (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2642)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AppName'
#line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2643)"
, for_arg => $self->{for},
                              forp_arg => [
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2644)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ForIF'
#line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2645)"
],
                              media_type => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2646)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl'
#line 15 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2647)"
,
                              default_media_type => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2648)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl'
#line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2649)"
);
  if ($an) {
    $r = $an->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2650)"
value
#line 18 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2651)"
;
    $r =~ s/::$//g;
    my $sf = $an->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2652)"
dis_get_attribute
#line 20 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2653)"

                         (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2654)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#moduleSuffix'
#line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2655)"
,
                          for_arg => $self->{for},
                          forp_arg => [
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2656)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ForIF'
#line 23 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2657)"
],
                          media_type => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2658)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl'
#line 24 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2659)"
,
                          default_media_type => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2660)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl'
#line 25 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2661)"
);
    if ($sf) {
      $r .= $sf->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2662)"
value
#line 27 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2663)"
;
    }
  } else {
    $r = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2664)"
pl_fully_qualified_name
#line 30 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2665)"
;
  }

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

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

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

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

#line 32 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2675)"

#line 32 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2673)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2674)"

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

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2680)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2681)"
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' => 'pl_interface_name';

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2699)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2683)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2691)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2689)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2685)"

  $r = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2686)"
pl_fully_qualified_name
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2687)"
;
  $r =~ s/.*?:://g;

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

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

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

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

#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2697)"

#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2695)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2696)"

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

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2702)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2703)"
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' => 'pl_file_name_stem';

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerModule][@type=DISLang:Attribute]/Get[@Type=ManakaiDISModuleDefinition][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2709)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerModule][@type=DISLang:Attribute]/Get[@Type=ManakaiDISModuleDefinition][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2707)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerModule][@type=DISLang:Attribute]/Get[@Type=ManakaiDISModuleDefinition][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2705)"
$r = $self;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2706)"

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

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2712)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2713)"
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 #2714)"
}}
sub local_name ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2721)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=localName][@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2719)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=localName][@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2717)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=localName][@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2715)"
$r = $self->{localName};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2716)"

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

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2722)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2723)"
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' => 'local_name';

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=nameURI][@Type=NameURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2729)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=nameURI][@Type=NameURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2727)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=nameURI][@Type=NameURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2725)"
$r = $self->{nameURI};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2726)"

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

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2732)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2733)"
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' => 'name_uri';

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=namespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2739)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=namespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2737)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=namespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2735)"
$r = $self->{namespaceURI};
#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 #2740)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2742)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2743)"
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' => 'namespace_uri';

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=uri][@Type=ModuleURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2749)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=uri][@Type=ModuleURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2747)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=uri][@Type=ModuleURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2745)"
$r = $self->{uri};
#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 #2750)"
}
$r;

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=forURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2759)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=forURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2757)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=forURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2755)"
$r = $self->{for};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2756)"

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

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2762)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2763)"
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' => 'for_uri';

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2819)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2765)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2811)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2773)"

  my 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2767)"
$mg = $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2768)"
get_resource
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2769)"

                                      ($self->{namespaceURI});
  unless ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2770)"
is_defined
#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2771)"
) {
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2772)"

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

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

{
#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2783)"

#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2777)"

#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2775)"

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2778)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $self->{src}, '-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#RESOURCE_NOT_DEFINED_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' => 'pl_fully_qualified_name', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $self->{namespaceURI};

#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2781)"

#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2779)"
;
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2780)"

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

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

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

#line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2809)"

#line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2787)"
;
  }
  my $an = $mg->{src}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2788)"
dis_get_attribute
#line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2789)"

                             (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2790)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AppName'
#line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2791)"
, for_arg => $self->{for},
                              media_type => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2792)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl'
#line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2793)"
,
                              default_media_type => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2794)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl'
#line 15 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2795)"
);
  if ($an) {
    $r = $an->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2796)"
value
#line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2797)"
;
    $r =~ s/::$//g;
    $r .= '::' . $self->{localName};
    my $sf = $an->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2798)"
dis_get_attribute
#line 20 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2799)"

                         (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2800)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#moduleSuffix'
#line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2801)"
,
                          for_arg => $self->{for},
                          media_type => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2802)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl'
#line 23 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2803)"
,
                          default_media_type => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2804)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl'
#line 24 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2805)"
);
    if ($sf) {
      $r .= $sf->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2806)"
value
#line 26 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2807)"
;
    }
  } else {
    $r = ($mg->{localName} || 'main') . '::' . $self->{localName};
  }

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

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

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

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

#line 31 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2817)"

#line 31 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2815)"
;
#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::ManakaiDISModuleDefinition', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'pl_fully_qualified_name';

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2831)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2829)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2825)"
$r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2826)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isDefined'
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2827)"
};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2828)"

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

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2834)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2835)"
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_defined';

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

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

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

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

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

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

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

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

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

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

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

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2851)"

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

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=uris][@Type=Perl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2859)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=uris][@Type=Perl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2857)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=uris][@Type=Perl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2855)"
$r = [$self->{uri}];
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2856)"

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

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2862)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2863)"
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 #2864)"
}}
use overload bool => sub () {1}, 'eq' => sub ($$) {
my ($self, $anotherModule) = @_;
my $r = 0;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2873)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2871)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2865)"
(UNIVERSAL::isa ($anotherModule,
                    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2866)"
'Message::Util::DIS::ManakaiDISModuleDefinition'
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2867)"
)) {
  $r = $self->{uri} eq $anotherModule->{uri};
} else {
  $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2868)"
0
#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2869)"
;
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2870)"

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

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2874)"
}
$r}
, fallback => 1;
$Message::DOM::ClassFeature{q<Message::Util::DIS::ManakaiDISModuleDefinition>} = {'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#core', {'', '1', '1.0', '1'}};
$Message::DOM::ClassPoint{q<Message::Util::DIS::ManakaiDISModuleDefinition>} = 4;
$Message::Util::DIS::ManakaiDISModuleDefinition::CompatClass{q<Message::Util::DIS::ManakaiDISModuleDefinition>} = 1;
package Message::Util::DIS::ManakaiDISForDefinition;
our $VERSION = 20050904.1346;
push our @ISA, 'Message::Util::DIS::ManakaiDISExceptionTarget';
sub isa_uri ($$) {
my ($self, $superURI) = @_;
my $r = 0;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Method[@Name=isaURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2881)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Method[@Name=isaURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2879)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Method[@Name=isaURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2875)"
$r = $self->{uri} eq $superURI ? 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2876)"
1 : 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Method[@Name=isaURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2877)"
$self->{isa}->{$superURI};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2878)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2907)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2885)"
my 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2883)"
@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 #2884)"

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

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

{
#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2899)"

#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2897)"

  for 
#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2887)"
my $from (@from) {
    for my $to (@to) {
      $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2888)"
get_for
#line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2889)"

                              ($from)->{isa}->{$to} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2890)"
1
#line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2891)"
;
      $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2892)"
get_for
#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2893)"

                              ($to)->{revISA}->{$from} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2894)"
1
#line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2895)"
;
    }
  }

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

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

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

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

#line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2905)"

#line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2903)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2904)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerModule][@Type=ManakaiDISModuleDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2919)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerModule][@Type=ManakaiDISModuleDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2917)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerModule][@Type=ManakaiDISModuleDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2909)"
$r = $self->{db}
          ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2910)"
get_resource
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerModule][@Type=ManakaiDISModuleDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2911)"

                   ($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2912)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#definingModule'
#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerModule][@Type=ManakaiDISModuleDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2913)"
})
   if defined $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2914)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#definingModule'
#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerModule][@Type=ManakaiDISModuleDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2915)"
};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2916)"

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

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2922)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2923)"
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' => 'owner_module';

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2931)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2929)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2925)"
$r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2926)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isDefined'
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2927)"
};
#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::ManakaiDISForDefinition', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'is_defined';

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

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

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

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

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

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

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

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

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

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

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

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2951)"

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

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isReferred][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2961)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isReferred][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2959)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isReferred][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2955)"
$r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2956)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isReferred'
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isReferred][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2957)"
};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2958)"

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

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isReferred][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [b] (Chunk #2971)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isReferred][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [bc] (Chunk #2969)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isReferred][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #2965)"
$self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2966)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isReferred'
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isReferred][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #2967)"
} = $given if $given;
#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)"
}

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Attr[@Name=uris][@Type=Perl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2979)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Attr[@Name=uris][@Type=Perl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2977)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Attr[@Name=uris][@Type=Perl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2975)"
$r = [$self->{uri}];
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2976)"

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

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2982)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2983)"
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 #2984)"
}}
sub uri ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2991)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Attr[@Name=uri][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2989)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Attr[@Name=uri][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2987)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Attr[@Name=uri][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2985)"
$r = $self->{uri};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2986)"

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

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

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2994)"
}}
use overload bool => sub () {1}, 'eq' => sub ($$) {
my ($self, $anotherFor) = @_;
my $r = 0;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3003)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3001)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2995)"
(UNIVERSAL::isa ($anotherFor, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2996)"
'Message::Util::DIS::ManakaiDISForDefinition'
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2997)"
)) {
  $r = $self->{uri} eq $anotherFor->{uri};
} else {
  $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2998)"
0
#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2999)"
;
}
#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)"
}
$r}
, fallback => 1;
$Message::DOM::ClassFeature{q<Message::Util::DIS::ManakaiDISForDefinition>} = {'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#core', {'', '1', '1.0', '1'}};
$Message::DOM::ClassPoint{q<Message::Util::DIS::ManakaiDISForDefinition>} = 2;
$Message::Util::DIS::ManakaiDISForDefinition::CompatClass{q<Message::Util::DIS::ManakaiDISForDefinition>} = 1;
package Message::Util::DIS::ManakaiDISPerlModuleDefinition;
our $VERSION = 20050904.1346;
sub pl_generate_perl_module_file ($) {
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3455)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@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 #3449)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3447)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3029)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3007)"

  $r = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3008)"
pl_implementation
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3009)"

            ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3010)"
create_perl_file
#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3011)"
;

  ## -- Source information
  $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3012)"
source_file
#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3013)"

         ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3014)"
get_property_text
#line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3015)"

                        (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3016)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceFile'
#line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3017)"
, ''));
  $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3018)"
source_module
#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3019)"
 ($self->{nameURI});
  $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3020)"
source_for
#line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3021)"
 ($self->{for});
  
  ## -- License information
  my $ownermod = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3022)"
owner_module
#line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3023)"
;
  my $license = $ownermod->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3024)"
get_property_resource
#line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3025)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3026)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--License'
#line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3027)"
);
  unless ($license) {
    
#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 #3035)"
local $Error::Depth = $Error::Depth - 1;

{
#line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3033)"

#line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3031)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3032)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $ownermod->{src}, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'pl_generate_perl_module_file', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_LICENSE_ATTR_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISPerlModuleDefinition', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $ownermod->{uri};

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

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

#line 20 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3113)"

#line 20 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3037)"
;
  }
  $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3038)"
license_uri
#line 22 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3039)"

                    ($license->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3040)"
uri
#line 23 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3041)"
);

  ## -- Classes
  ## TODO: Custom module construction support
  my $thismod_name = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3042)"
pl_fully_qualified_name
#line 27 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3043)"
;
  my $thismod_pack = $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3044)"
get_last_package
#line 28 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3045)"

                             ($thismod_name, make_new_package => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3046)"
1
#line 29 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3047)"
);
  my %const;
  for my $cls (@{$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3048)"
get_property_resource_list
#line 31 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3049)"

                                      (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3050)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#resource'
#line 32 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3051)"
)}) {
    if ($cls->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3052)"
owner_module
           eq 
#line 33 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3053)"
$ownermod) {
      if ($cls->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3054)"
is_type_uri
#line 34 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3055)"

                      (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3056)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Class'
#line 35 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3057)"
)) {
        ## -- Subroutines and variables
        my $pack = $cls->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3058)"
pl_code_fragment
#line 37 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3059)"
;
        $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3060)"
append_package
#line 38 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3061)"
 ($pack);
        my $pack_name = $cls->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3062)"
pl_fully_qualified_name
#line 39 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3063)"
;

        ## -- Constants
        for my $cr (@{$cls->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3064)"
get_property_resource_list
#line 42 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3065)"

                                  (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3066)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#childResource'
#line 43 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3067)"
)}) {
          if ($cr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3068)"
is_type_uri
#line 44 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3069)"

                                  (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3070)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Const'
#line 45 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3071)"
)) {
            $thismod_pack->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3072)"
add_export
#line 46 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3073)"

              (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3074)"
undef
#line 47 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3075)"
,
               my $nm = $cr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3076)"
pl_name
#line 48 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3077)"
);
            $const{$nm} = $cr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3078)"
pl_fully_qualified_name
#line 49 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3079)"
;
          } elsif ($cr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3080)"
is_type_uri
#line 50 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3081)"

                                  (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3082)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ConstGroup'
#line 51 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3083)"
)) {
            my $tag = $cr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3084)"
pl_name
#line 52 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3085)"
;
            for my $gcr (@{$cr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3086)"
get_property_resource_list
#line 53 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3087)"

                                  (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3088)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#childResource'
#line 54 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3089)"
)}) {
              if ($gcr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3090)"
is_type_uri
#line 55 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3091)"

                                  (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3092)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Const'
#line 56 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3093)"
)) {
                $thismod_pack->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3094)"
add_export
#line 57 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3095)"

                  ($tag, my $nm = $gcr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3096)"
pl_name
#line 58 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3097)"
);
                $const{$nm} = $gcr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3098)"
pl_fully_qualified_name
#line 59 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3099)"
;
              }
            }
          }
        }

        ## -- Features
        my %feature;
        for my $el (@{$cls->{src}
                          ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3100)"
dis_child_elements
#line 68 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3101)"

                              (for_arg => $cls->{for},
                               forp_arg => $cls->{forp})}) {
          next unless $el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3102)"
expanded_uri eq 
#line 71 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3103)"

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3104)"
'http://suika.fam.cx/~wakaba/archive/2004/dom/meta#provideFeature'
#line 71 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3105)"
;
          my $furi = $el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3106)"
qname_value_uri
#line 72 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3107)"
;
          my $f = $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3108)"
get_resource
#line 73 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3109)"

                                                           ($furi);
          unless ($f->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3110)"
is_defined
#line 75 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@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 #3119)"
local $Error::Depth = $Error::Depth - 1;

{
#line 87 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3117)"

#line 87 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3115)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3116)"
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' => 'pl_generate_perl_module_file', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#expectedType' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#DOMFeature', '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::ManakaiDISPerlModuleDefinition', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $furi;

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

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

#line 91 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3445)"

#line 91 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3121)"
;
          }
          for my $s ($f, @{$f->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3122)"
get_property_resource_list
#line 93 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3123)"

                           (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3124)"
'http://suika.fam.cx/~wakaba/archive/2004/dom/meta#extendFeature'
#line 94 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3125)"
,
                            recursive => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3126)"
1
#line 95 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3127)"
,
                            default_media_type => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3128)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TypeQName'
#line 96 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3129)"
)}) {
            $feature{$s->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3130)"
uri
#line 97 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3131)"
}
                 = [$s, $el];
          }
        }
        for my $f (values %feature) {
          my @fname = @{$f->[0]->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3132)"
feature_name_list
#line 102 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3133)"
};
          my $fver = $f->[0]->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3134)"
get_property_text
#line 103 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3135)"

                                (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3136)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Version'
#line 104 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3137)"
, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3138)"
undef
#line 104 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3139)"
);
          next unless defined $fver;
          my $fi = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3140)"
pl_is_feature_implemented
#line 106 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3141)"
 ($f->[0]->{uri}) ? 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3142)"
1 : 
#line 106 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3143)"

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3144)"
0
#line 106 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3145)"
;
          my @ec = @{$f->[1]->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3146)"
dis_child_elements
#line 107 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3147)"

                            (for_arg => $cls->{for},
                             forp_arg => $cls->{forp})};
          if (@ec) {
            my $has_through = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3148)"
0
#line 111 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3149)"
;
            for my $ec (@ec) {
              next unless $ec->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3150)"
expanded_uri eq 
#line 113 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3151)"

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3152)"
'http://suika.fam.cx/~wakaba/archive/2004/dom/meta#providedThrough'
#line 113 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3153)"
;
              my $curi = $ec->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3154)"
tfqnames_value_uri
#line 114 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3155)"

                          ($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3156)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNodeID'
#line 115 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3157)"
}, $cls->{for},
                           for_arg => $cls->{for},
                           forp_arg => $cls->{forp});
              my $c = $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3158)"
get_resource
#line 118 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3159)"

                                                            ($curi);
              $c->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3160)"
is_referred
#line 120 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3161)"
 ($ec);
              my $cp = $c->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3162)"
pl_fully_qualified_name
#line 121 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3163)"
;
              for my $fname (@fname) {
                $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3164)"
append_statement
#line 123 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3165)"

                  ('$Message::DOM::ImplFeature{q<' . $cp .
                   '>}->{q<' .
                   $fname . '>}->{q<' . $fver . '>} ||= '.$fi);
                $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3166)"
append_statement
#line 127 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3167)"

                  ('$Message::DOM::ImplFeature{q<' . $cp .
                   '>}->{q<' . $fname . '>}->{q<>} = 1');
              }
              $has_through = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3168)"
1
#line 131 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3169)"
;
            }
            next if $has_through;
          }
          ## No DOMMetaImpl:ProvidedThrough attribute
          for my $fname (@fname) {
            $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3170)"
append_statement
#line 137 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3171)"

                ('$Message::DOM::ImplFeature{q<' . $pack_name .
                 '>}->{q<' .
                 $fname . '>}->{q<' . $fver . '>} ||= '.$fi);
            $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3172)"
append_statement
#line 141 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3173)"

                ('$Message::DOM::ImplFeature{q<' . $pack_name .
                 '>}->{q<' . $fname . '>}->{q<>} = 1');
          }
        } # for

        my %ifeature;
        my $ifpoint = 0;
        for my $feature (@{$cls->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3174)"
get_property_resource_list
#line 149 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3175)"

                     (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3176)"
'http://suika.fam.cx/~wakaba/archive/2004/dom/main#implementFeature'
#line 150 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3177)"
,
                      isa_recursive => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3178)"
1
#line 151 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3179)"
,
                      default_media_type => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3180)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TypeQName'
#line 152 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3181)"
)}) {
          my $fver = $feature->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3182)"
get_property_text
#line 153 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3183)"

                                (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3184)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Version'
#line 154 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3185)"
, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3186)"
undef
#line 154 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3187)"
);
          $ifpoint += $fver;
          my $fi = defined $fver
                 ? $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3188)"
pl_is_feature_implemented
#line 157 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3189)"

                                   ($feature->{uri}) ? 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3190)"
1 : 
#line 158 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3191)"

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3192)"
0
                 : 
#line 158 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3193)"

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3194)"
1
#line 158 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3195)"
;
          for my $fname (@{$feature->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3196)"
feature_name_list
#line 159 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3197)"
}) {
            $ifeature{$fname}->{$fver} = $fi;
            $ifeature{$fname}->{''} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3198)"
1
#line 161 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3199)"
;
          }                  
        }
        $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3200)"
append_statement
#line 164 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3201)"

                ('$Message::DOM::ClassFeature{q<' . $pack_name .
                 '>} = ' . 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3202)"
Message::Util::PerlCode::ManakaiPerlCodeImplementation->perl_literal
#line 166 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3203)"
 (\%ifeature));

        ## Score calculated from provided features
        $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3204)"
append_statement
#line 169 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3205)"

                ('$Message::DOM::ClassPoint{q<' . $pack_name .
                 '>} = ' . $ifpoint);

        ## -- Roles
        for my $role (@{$cls->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3206)"
get_property_resource_list
#line 174 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3207)"

                     (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3208)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#role'
#line 175 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3209)"
, isa_recursive => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3210)"
1
#line 175 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3211)"
,
                      default_media_type => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3212)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TypeQName'
#line 176 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3213)"
)}) {
          if ($role->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3214)"
is_subset_of_uri
#line 177 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3215)"

(
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3216)"
'http://suika.fam.cx/~wakaba/archive/2004/dom/meta#ImplementationSourceForManakaiDOMImplementationRegistry'
#line 178 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3217)"
)) {
            $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3218)"
append_statement
#line 179 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3219)"

                  ('$Message::DOM::ManakaiDOMImplementationRegistry'.
                   '::SourceClass{q<' . $pack_name . '>} = 1');
          }
          if ($role->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3220)"
is_subset_of_uri
#line 183 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3221)"

    (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3222)"
'http://suika.fam.cx/~wakaba/archive/2004/dom/meta#ImplementationForManakaiDOMImplementationSource'
#line 184 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3223)"
)) {
            $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3224)"
append_statement
#line 185 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3225)"

                  ('$Message::DOM::ManakaiDOMImplementationSource'.
                   '::SourceClass{q<' . $pack_name . '>} = 1');
          }
          if ($role->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3226)"
is_subset_of_uri
#line 189 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3227)"

(
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3228)"
'http://suika.fam.cx/~wakaba/archive/2004/dom/meta#ImplementationCompatibleWithManakaiDOMMinimumImplementation'
#line 190 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3229)"
)
          ) {
            $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3230)"
append_statement
#line 192 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3231)"

                  ('$Message::DOM::ManakaiDOMImplementation'.
                   '::CompatClass{q<' . $pack_name . '>} = 1');
          }
          
          ## Node
          if ($role->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3232)"
is_subset_of_uri
#line 198 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3233)"

                        (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3234)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#ElementRole'
#line 199 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3235)"
)) {
            my $for_specific_et;
            for my $et (@{$cls->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3236)"
get_property_resource_list
#line 201 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3237)"

                     (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3238)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Markup#elementType'
#line 202 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3239)"
, isa_recursive => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3240)"
1
#line 202 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3241)"
,
                      default_media_type => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3242)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TFQNames'
#line 203 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3243)"
)}) {
              $for_specific_et = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3244)"
1
#line 204 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3245)"
;
              my $ln = $et->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3246)"
mv_local_name
#line 205 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3247)"
;
              $ln = '*' unless defined $ln;
              my $ns = $et->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3248)"
mv_namespace_uri
#line 207 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3249)"
;
              $ns = '' unless defined $ns;
                ## ISSUE: Is NULL-namespace should be allowed here?
              $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3250)"
append_statement
#line 210 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3251)"

                  ('$Message::DOM::ManakaiDOMElement' .
                   '::CompatClassET{q<' . $ns . '>}->{q<' . $ln .
                   '>}->{q<' . $pack_name . '>} = 1');
            }
            $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3252)"
append_statement
#line 215 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3253)"

                  ('$Message::DOM::ManakaiDOMElement'.
                   '::CompatClass{q<' . $pack_name . '>} = 1')
              unless $for_specific_et;
          }
          if ($role->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3254)"
is_subset_of_uri
#line 220 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3255)"

                        (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3256)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#AttributeRole'
#line 221 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3257)"
)) {
            my $for_specific_attr;
            for my $at (@{$cls->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3258)"
get_property_resource_list
#line 223 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3259)"

                     (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3260)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--DocAttr'
#line 224 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3261)"
, isa_recursive => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3262)"
1
#line 224 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3263)"
,
                      default_media_type => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3264)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TFQNames'
#line 225 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3265)"
)}) {
              $for_specific_attr = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3266)"
1
#line 226 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3267)"
;
              my $ln = $at->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3268)"
mv_local_name
#line 227 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3269)"
;
              $ln = '*' unless defined $ln;
              my $ns = $at->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3270)"
mv_namespace_uri
#line 229 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3271)"
;
              $ns = '' unless defined $ns;
              my $et = $at->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3272)"
mv_owner_element_resource
#line 231 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3273)"
;
              my $etns = '*';
              my $etln = '*';
              if ($et) {
                $etns = $et->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3274)"
mv_local_name
#line 235 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3275)"
;
                $etln = '*' unless defined $etln;
                my $etns = $at->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3276)"
mv_namespace_uri
#line 237 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3277)"
;
                $etns = '' unless defined $etns;
                  ## ISSUE: Should NULL-namespace be allowed here?
              }
              
              $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3278)"
append_statement
#line 242 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3279)"

                  ('$Message::DOM::ManakaiDOMElement' .
                   '::CompatClassAttr{q<' . $etns . '>}->{q<' . $etln .
                   '>}->{q<' . $ns . '>}->{q<' . $ln . '>}->{q<' .
                   $pack_name . '>} = 1');
            }
            $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3280)"
append_statement
#line 248 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3281)"

                  ('$Message::DOM::ManakaiDOMAttr'.
                   '::CompatClass{q<' . $pack_name . '>} = 1')
              unless $for_specific_attr;
          }
          if ($role->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3282)"
is_subset_of_uri
#line 253 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3283)"

                        (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3284)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#TextRole'
#line 254 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3285)"
)) {
            $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3286)"
append_statement
#line 255 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3287)"

                  ('$Message::DOM::ManakaiDOMText'.
                   '::CompatClass{q<' . $pack_name . '>} = 1');
          }
          if ($role->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3288)"
is_subset_of_uri
#line 259 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3289)"

                        (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3290)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#CommentRole'
#line 260 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3291)"
)) {
            $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3292)"
append_statement
#line 261 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3293)"

                  ('$Message::DOM::ManakaiDOMComment'.
                   '::CompatClass{q<' . $pack_name . '>} = 1');
          }
          if ($role->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3294)"
is_subset_of_uri
#line 265 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3295)"

                        (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3296)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#CDATASectionRole'
#line 266 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3297)"
)) {
            $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3298)"
append_statement
#line 267 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3299)"

                  ('$Message::DOM::ManakaiDOMCDATASection'.
                   '::CompatClass{q<' . $pack_name . '>} = 1');
          }
          if ($role->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3300)"
is_subset_of_uri
#line 271 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3301)"

                        (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3302)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#ProcessingInstructionRole'
#line 272 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3303)"
)) {
            $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3304)"
append_statement
#line 273 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3305)"

                  ('$Message::DOM::ManakaiDOMProcessingInstruction'.
                   '::CompatClass{q<' . $pack_name . '>} = 1');
            ## TODO: Target name dependent
          }
          if ($role->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3306)"
is_subset_of_uri
#line 278 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3307)"

                        (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3308)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#DocumentRole'
#line 279 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3309)"
)) {
            my $for_specific_et;
            for my $et (@{$cls->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3310)"
get_property_resource_list
#line 281 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3311)"

                     (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3312)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Markup#rootElementType'
#line 282 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3313)"
, isa_recursive => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3314)"
1
#line 282 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3315)"
,
                      default_media_type => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3316)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TFQNames'
#line 283 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3317)"
)}) {
              $for_specific_et = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3318)"
1
#line 284 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3319)"
;
              my $ln = $et->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3320)"
mv_local_name
#line 285 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3321)"
;
              $ln = '*' unless defined $ln;
              my $ns = $et->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3322)"
mv_namespace_uri
#line 287 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3323)"
;
              $ns = '' unless defined $ns;
                ## ISSUE: Is NULL-namespace should be allowed here?
              $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3324)"
append_statement
#line 290 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3325)"

                  ('$Message::DOM::ManakaiDOMDocument' .
                   '::CompatClassET{q<' . $ns . '>}->{q<' . $ln .
                   '>}->{q<' . $pack_name . '>} = 1');
            }
            $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3326)"
append_statement
#line 295 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3327)"

                  ('$Message::DOM::ManakaiDOMDocument'.
                   '::CompatClass{q<' . $pack_name . '>} = 1')
              unless $for_specific_et;
            ## TODO: by document type name and media type
          }
          if ($role->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3328)"
is_subset_of_uri
#line 301 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3329)"

                        (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3330)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#DocumentFragmentRole'
#line 302 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3331)"
)) {
            $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3332)"
append_statement
#line 303 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3333)"

                  ('$Message::DOM::ManakaiDOMDocumentFragment'.
                   '::CompatClass{q<' . $pack_name . '>} = 1');
          }
          if ($role->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3334)"
is_subset_of_uri
#line 307 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3335)"

                        (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3336)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#DocumentTypeRole'
#line 308 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3337)"
)) {
            $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3338)"
append_statement
#line 309 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3339)"

                  ('$Message::DOM::ManakaiDOMDocumentType'.
                   '::CompatClass{q<' . $pack_name . '>} = 1');
            ## TODO: Doctype name or public ID dependent
          }
          if ($role->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3340)"
is_subset_of_uri
#line 314 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3341)"

                        (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3342)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#EntityRole'
#line 315 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3343)"
)) {
            $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3344)"
append_statement
#line 316 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3345)"

                  ('$Message::DOM::ManakaiDOMEntity'.
                   '::CompatClass{q<' . $pack_name . '>} = 1');
            ## TODO: Entity name or public ID dependent
          }
          if ($role->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3346)"
is_subset_of_uri
#line 321 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3347)"

                        (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3348)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#EntityReferenceRole'
#line 322 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3349)"
)) {
            $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3350)"
append_statement
#line 323 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3351)"

                  ('$Message::DOM::ManakaiDOMEntityReference'.
                   '::CompatClass{q<' . $pack_name . '>} = 1');
            ## TODO: Entity name or public ID dependent
          }
          if ($role->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3352)"
is_subset_of_uri
#line 328 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3353)"

                        (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3354)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#NotationRole'
#line 329 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3355)"
)) {
            $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3356)"
append_statement
#line 330 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3357)"

                  ('$Message::DOM::ManakaiDOMNotation'.
                   '::CompatClass{q<' . $pack_name . '>} = 1');
            ## TODO: Notation name or public ID dependent
          }
          if ($role->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3358)"
is_subset_of_uri
#line 335 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3359)"

                        (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3360)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#NamespaceRole'
#line 336 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3361)"
)) {
            $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3362)"
append_statement
#line 337 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3363)"

                  ('$Message::DOM::ManakaiDOMNamespace'.
                   '::CompatClass{q<' . $pack_name . '>} = 1');
          }
          ## NOTE: DOMCore:AnyNodeRole is subset of  
          ##       DOMCore:ElementRole and DOMCore:TextRole and ...

          if ($role->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3364)"
is_subset_of_uri
#line 344 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3365)"

                        (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3366)"
'http://suika.fam.cx/~wakaba/archive/2004/dom/ls#ParserRole'
#line 345 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3367)"
)) {
            $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3368)"
append_statement
#line 346 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3369)"

                  ('$Message::DOM::DOMLS::ParserClass{q<'.
                   $pack_name . '>} = 1');
          }
          if ($role->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3370)"
is_subset_of_uri
#line 350 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3371)"

                        (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3372)"
'http://suika.fam.cx/~wakaba/archive/2004/dom/ls#SerializerRole'
#line 351 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3373)"
)) {
            $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3374)"
append_statement
#line 352 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3375)"

                  ('$Message::DOM::DOMLS::SerializerClass{q<'.
                   $pack_name . '>} = 1');
          }

          if ($role->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3376)"
is_subset_of_uri
#line 357 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3377)"

                        (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3378)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#ModuleRole'
#line 358 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3379)"
)) {
            $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3380)"
append_statement
#line 359 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3381)"

                  ('$Message::Util::DIS::ManakaiDISModuleDefinition'.
                   '::CompatClass{q<' . $pack_name . '>} = 1');
          }
          if ($role->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3382)"
is_subset_of_uri
#line 363 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3383)"

                        (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3384)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#ForRole'
#line 364 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3385)"
)) {
            $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3386)"
append_statement
#line 365 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3387)"

                  ('$Message::Util::DIS::ManakaiDISForDefinition'.
                   '::CompatClass{q<' . $pack_name . '>} = 1');
          }
          if ($role->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3388)"
is_subset_of_uri
#line 369 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3389)"

                        (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3390)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#ResourceRole'
#line 370 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3391)"
)) {
            $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3392)"
append_statement
#line 371 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3393)"

                  ('$Message::Util::DIS::ManakaiDISResourceDefinition'.
                   '::CompatClass{q<' . $pack_name . '>} = 1');
          }
          if ($role->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3394)"
is_subset_of_uri
#line 375 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3395)"

                        (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3396)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#ElementRole'
#line 376 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3397)"
)) {
            $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3398)"
append_statement
#line 377 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3399)"

                  ('$Message::Util::DIS::ManakaiDISElement'.
                   '::CompatClass{q<' . $pack_name . '>} = 1');
          }
          if ($role->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3400)"
is_subset_of_uri
#line 381 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3401)"

                        (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3402)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#DatabaseRole'
#line 382 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3403)"
)) {
            $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3404)"
append_statement
#line 383 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3405)"

                  ('$Message::Util::DIS::ManakaiDISDatabase'.
                   '::CompatClass{q<' . $pack_name . '>} = 1');
          }
        }
      } elsif ($cls->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3406)"
is_type_uri
#line 388 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3407)"

                      (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3408)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Perl#ScalarVariable'
#line 389 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3409)"
) and
               not $cls->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3410)"
get_property_resource
#line 390 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3411)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3412)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#parentResource'
#line 390 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3413)"
)) {
        $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3414)"
append_code_fragment
#line 391 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3415)"

              ($cls->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3416)"
pl_code_fragment
#line 392 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3417)"
);
      }
    }
  } # Classes

  ## -- Exporter (constants)
  if (keys %const) {
    my $map = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3418)"
Message::Util::PerlCode::ManakaiPerlCodeImplementation->perl_literal
#line 399 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3419)"
 (\%const);
    $thismod_pack->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3420)"
append_statement
#line 400 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3421)"
 ("sub $_ ()")
      for keys %const;
    $thismod_pack->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3422)"
get_sub
#line 402 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3423)"
 ('AUTOLOAD', make_new_node => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3424)"
1
#line 402 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3425)"
)
      ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3426)"
append_code
#line 403 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3427)"
 (q[
        my $al = our $AUTOLOAD;
        $al =~ s/.+:://;
        if (] . $map . q[->{$al}) {
          no strict 'refs';
          *{$AUTOLOAD} = \&{] . $map . q[->{$al}};
          goto &{$AUTOLOAD};
        } else {
          require Carp;
          Carp::croak (qq<Can't locate method "$AUTOLOAD">);
        }
      ]);
    $thismod_pack->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3428)"
get_sub
#line 415 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3429)"
 ('import', make_new_node => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3430)"
1
#line 415 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3431)"
)
      ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3432)"
append_code
#line 416 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3433)"
 (q[
        my $self = shift;
        if (@_) {
          local $Exporter::ExportLevel = $Exporter::ExportLevel + 1;
          $self->SUPER::import (@_);
          for (grep {not /\W/} @_) {
            eval qq{$_};
          }
        }
      ]);
  }

  ## -- Require'ing external modules
  ## TODO: Custom module construction support
  for my $uri (@{$r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3434)"
dis_get_require_uri_list
#line 430 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3435)"
}) {
    my $mod = $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3436)"
get_resource
#line 431 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3437)"
 ($uri)
                   ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3438)"
owner_module
#line 432 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3439)"
;
    next unless $mod;
    my $pack = $mod->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3440)"
pl_fully_qualified_name
#line 434 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3441)"
;
    $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3442)"
add_require_perl_module_name
#line 435 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3443)"
 ($pack)
      unless $pack eq $thismod_name;
  }



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

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

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

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

#line 467 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3453)"

#line 467 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3451)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3452)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3533)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3457)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3525)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3523)"

  if 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3459)"
(defined $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3460)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isFeatureImplemented'
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3461)"
}
                   ->{$featureResourceURI}) {
    $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3462)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isFeatureImplemented'
#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3463)"
}
                   ->{$featureResourceURI};
  } elsif ($self->isa (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3464)"
'Message::Util::DIS::ManakaiDISModuleDefinition'
#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3465)"
)) {
    $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3466)"
1
#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3467)"
;
    for my $cls (@{$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3468)"
get_property_resource_list
#line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3469)"

                                (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3470)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#resource'
#line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3471)"
)}) {
      if ($cls->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3472)"
is_type_uri
#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3473)"

                                (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3474)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Class'
#line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3475)"
)) {
        unless ($cls->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3476)"
pl_is_feature_implemented
#line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3477)"

                                ($featureResourceURI)) {
          $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3478)"
0
#line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3479)"
;
          last;
        }
      }                
      ## NOTE: DISPerl:ScalarVariable's are always implemented
    }
    $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3480)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isFeatureImplemented'
#line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3481)"
}
                   ->{$featureResourceURI} = $r;
  } else { ## Resource definition
    ## TODO: Custom module definition
    if ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3482)"
is_feature_provided
#line 23 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3483)"

                        ($featureResourceURI)) {
      if ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3484)"
is_type_uri
#line 25 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3485)"

                        (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3486)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#MethodReturn'
#line 26 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3487)"
) or
          $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3488)"
is_type_uri
#line 27 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3489)"

                        (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3490)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#AttributeGet'
#line 28 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3491)"
) or
          $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3492)"
is_type_uri
#line 29 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3493)"

                        (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3494)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#AttributeSet'
#line 30 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3495)"
)) {
        my $def = $self->{src}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3496)"
dis_get_attribute
#line 31 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3497)"

                          (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3498)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Def'
#line 32 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3499)"
, for_arg => $self->{for},
                           forp_arg => $self->{forp});
        $r = $def ? 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3500)"
1 : 
#line 34 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3501)"

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3502)"
0
#line 34 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3503)"
;
      } else {
        $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3504)"
1
#line 36 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3505)"
;
        for my $res (@{$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3506)"
get_property_resource_list
#line 37 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3507)"

                        (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3508)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#childResource'
#line 38 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3509)"
)}) {
          if ($res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3510)"
is_type_uri
#line 39 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3511)"

                        (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3512)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#AnyMethod'
#line 40 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3513)"
)) {
            unless ($res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3514)"
pl_is_feature_implemented
#line 41 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3515)"

                        ($featureResourceURI)) {
              $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3516)"
0
#line 43 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3517)"
;
              last;
            }
          }
        } # for
      } # self.type
    } else {
      $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3518)"
1
#line 50 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3519)"
;
    }
    $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3520)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isFeatureImplemented'
#line 52 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3521)"
}->{$featureResourceURI} = $r;
  }

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

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

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

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

#line 59 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3531)"

#line 59 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3529)"
;
#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)"
}
$r}
$Message::DOM::ClassFeature{q<Message::Util::DIS::ManakaiDISPerlModuleDefinition>} = {'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#core', {'', '1', '1.0', '1'}};
$Message::DOM::ClassPoint{q<Message::Util::DIS::ManakaiDISPerlModuleDefinition>} = 1;
package Message::Util::DIS::ManakaiDISResourceDefinition;
our $VERSION = 20050904.1346;
push our @ISA, 'Message::Util::DIS::ManakaiDISPropertyAccessor', 'Message::Util::DIS::ManakaiDISExceptionTarget', 'Message::Util::DIS::ManakaiDISPerlModuleDefinition';
use Message::Util::Error;
our $RegQNameChar = qr/[^\s<>"'\/\\\[\]\{\},!\?=\$\@%]/;
our $RegBlockContent;
$RegBlockContent = qr/(?>[^{}\\]*)(?>(?>[^{}\\]+|\\.|\{(??{$RegBlockContent})\})*)/;
sub dis_is_null_value ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3565)"
my ($self) = @_;
my $r = 0;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3563)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3537)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3535)"
($self->{src}) {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3536)"

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

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

{
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3555)"

#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3553)"

    my 
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3539)"
$val = $self->{src}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3540)"
dis_get_attribute
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3541)"

                                   (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3542)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Value'
#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3543)"
,
                                    for_arg => $self->{for},
                                    forp_arg => $self->{forp});
    if ($val) {
      my $isnull = $val->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3544)"
dis_get_attribute
#line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3545)"

                                   (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3546)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--is-null'
#line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3547)"
,
                                    for_arg => $self->{for},
                                    forp_arg => $self->{forp});
      if ($isnull and $isnull->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3548)"
value
#line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3549)"
) {
        $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3550)"
1
#line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3551)"
;
      }
    }
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3552)"

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

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

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

#line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3561)"

#line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3559)"
;
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3560)"

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

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGetMethodInputNormalizer][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3609)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGetMethodInputNormalizer][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3585)"
my 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGetMethodInputNormalizer][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3569)"
$type;
my $type_node;

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

#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGetMethodInputNormalizer][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3571)"
try {local $Error::Depth = $Error::Depth + 3;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3572)"

#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGetMethodInputNormalizer][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3573)"

  $type = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3574)"
dis_actual_data_type_resource
#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGetMethodInputNormalizer][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3575)"
;
  $type_node = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3576)"
dis_actual_data_type_node
#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGetMethodInputNormalizer][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3577)"
;
} catch 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3578)"
Message::Util::DIS::ManakaiDISException with 
#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGetMethodInputNormalizer][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3579)"
{
  my $err = shift;
  unless ($err->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3580)"
'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype'
#line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGetMethodInputNormalizer][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3581)"
} eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3582)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_DIS_TYPE_ERR'
#line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGetMethodInputNormalizer][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3583)"
) {
    $err->throw;
  }
};
if ($type) {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3584)"

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

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

{
#line 15 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGetMethodInputNormalizer][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3601)"

#line 15 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGetMethodInputNormalizer][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3599)"

    my 
#line 15 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGetMethodInputNormalizer][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3587)"
$noinput = $type_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3588)"
dis_get_attribute
#line 15 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGetMethodInputNormalizer][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3589)"

                                      (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3590)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#noInputNormalize'
#line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGetMethodInputNormalizer][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3591)"
,
                                       for_arg => $self->{for},
                                       forp_arg => $self->{forp});
                            ## NOTE: Is this correct?
                            ##       Should be "for" for the resource
                            ##       for which the "actualType" element
                            ##       is specified?
    unless ($noinput and $noinput->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3592)"
value
#line 23 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGetMethodInputNormalizer][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3593)"
) {
      $r = $type->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3594)"
get_child_resource_by_type
#line 24 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGetMethodInputNormalizer][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3595)"

                                           (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3596)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#InputProcessor'
#line 25 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGetMethodInputNormalizer][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3597)"
);
    }
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3598)"

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

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

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

#line 29 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGetMethodInputNormalizer][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3607)"

#line 29 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGetMethodInputNormalizer][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3605)"
;
}
#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)"
}
$r}
sub pl_additional_isa_packages ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3631)"
my ($self) = @_;
my $r = [];

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plAdditionalISAPackages][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3629)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plAdditionalISAPackages][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3627)"
for 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plAdditionalISAPackages][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3611)"
my $el (@{$self->{src}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3612)"
dis_child_elements
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plAdditionalISAPackages][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3613)"

                 (for_arg => $self->{for},
                  forp_arg => $self->{forp})}) {
  if ($el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3614)"
expanded_uri
          eq 
#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plAdditionalISAPackages][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3615)"

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3616)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AppISA' and
      
#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plAdditionalISAPackages][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3617)"
$el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3618)"
media_type_match
#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plAdditionalISAPackages][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3619)"

                (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3620)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl'
#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plAdditionalISAPackages][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3621)"
, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3622)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl'
#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plAdditionalISAPackages][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3623)"
,
                 for_arg => $self->{for},
                 forp_arg => $self->{forp})) {
    push @$r, $el->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3624)"
value
#line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plAdditionalISAPackages][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3625)"
;
  }
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3626)"

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

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3632)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3633)"
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' => 'pl_additional_isa_packages';

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=forURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3639)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=forURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3637)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=forURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3635)"
$r = $self->{for};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3636)"

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

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3642)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3643)"
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' => 'for_uri';

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isReferred][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3651)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isReferred][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3649)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isReferred][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3645)"
$r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3646)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isReferred'
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isReferred][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/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;

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isReferred][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [b] (Chunk #3661)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isReferred][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [bc] (Chunk #3659)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isReferred][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #3655)"
$self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3656)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isReferred'
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isReferred][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #3657)"
} = $given if $given;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3658)"

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

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMufDescriptionText][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3699)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMufDescriptionText][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3665)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMufDescriptionText][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3691)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMufDescriptionText][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3689)"

  my 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMufDescriptionText][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3667)"
$muf = $self->{src}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3668)"
dis_get_attribute
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMufDescriptionText][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3669)"

                     (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3670)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Def'
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMufDescriptionText][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3671)"
, for_arg => $self->{for},
                      forp_arg => $self->{forp},
                      media_type => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3672)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#muf'
#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMufDescriptionText][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3673)"
);
  if ($muf) {
    $r = $muf->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3674)"
value
#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMufDescriptionText][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3675)"
;
    $r =~ s{< Q ::([^<>]+)>}{$self->{src}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3676)"
qname_to_uri
#line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMufDescriptionText][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3677)"
 ($1, node => $muf)}gex;
    $r =~ s/\s+/ /g;
    $r =~ s/^ //;
    $r =~ s/ $//;
  } else {
    my $desc = $self->{src}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3678)"
dis_get_attribute
#line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMufDescriptionText][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3679)"

                     (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3680)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Description'
#line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMufDescriptionText][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3681)"
, for_arg => $self->{for},
                      forp_arg => $self->{forp},
                      media_type => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3682)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#disdoc'
#line 15 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMufDescriptionText][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3683)"
,
                      default_media_type => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3684)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#disdoc'
#line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMufDescriptionText][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3685)"
);
    if ($desc) {
      $r = $desc->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3686)"
value
#line 18 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMufDescriptionText][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3687)"
;
      $r =~ s/\s+/ /g;
      $r =~ s/^ //;
      $r =~ s/ $//;
      $r =~ s/%/%percent;/g;
    }
  }

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

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

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

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

#line 27 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMufDescriptionText][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3697)"

#line 27 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMufDescriptionText][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3695)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3696)"

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

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3702)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3703)"
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' => '_pl_muf_description_text';

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isSubsetOfURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3709)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isSubsetOfURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3707)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isSubsetOfURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3705)"
$r = $self->{aliasURI}->{$superURI} || $self->{subOf}->{$superURI};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3706)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plParsePreprocessParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3735)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plParsePreprocessParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3715)"
our 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plParsePreprocessParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3711)"
$RegQNameChar;
our $RegBlockContent;
$r = {};
while ($paramSpec =~ s/^
  ## Parameter name
  (\$? $RegQNameChar+)\s*

  (?: =>? \s*
       ## ">" is now optional for inline element (">" is delimiter)

  ## Parameter value
  (
    ## Variable or Bare string
           \$? $RegQNameChar+
    |
    ## Quoted string
       '(?>[^'\\]*)' ## ISSUE: escape mechanism required?
    |
    ## Code
           \{$RegBlockContent\}

  )

s*)?

(?:,\s*|$)//ox) {

my ($n, $v) = ($1, $2);
if (defined $v) {
  if ($v =~ /^'/) {
    $v = {type => 'quoted',
          value => substr ($v, 1, length ($v) - 2)};
  } elsif ($v =~ /^\{/) {
    $v = {type => 'code', value => substr ($v, 1, length ($v) - 2)};
  } elsif ($v =~ /^\$/) {
    $v = {type => 'variable', value => substr $v, 1};
  } else {
    $v = {type => 'bare', value => $v};
  }
} else {
  $v = {type => 'boolean', value => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3712)"
1
#line 41 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plParsePreprocessParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3713)"
};
}

if ($n =~ /^\$/) {
  $r->{$n} = $v;
} else {
  
#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 #3725)"
local $Error::Depth = $Error::Depth + 1;

{
#line 47 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plParsePreprocessParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3723)"

#line 47 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plParsePreprocessParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3721)"

#line 47 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plParsePreprocessParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3717)"

    $r->{$self->{src}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3718)"
qname_to_uri
#line 48 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plParsePreprocessParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3719)"

                         ($n, node => $opt{node} || $self->{src})} = $v;
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3720)"

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

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

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

#line 50 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plParsePreprocessParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3729)"

#line 50 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plParsePreprocessParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3727)"
;
}
} # while

if (length $paramSpec) {

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3730)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $opt{node} || $self->{src}, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => '_pl_parse_preprocess_parameter', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#BROKEN_PARAM_SPEC_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#sourceCode' => $paramSpec;

#line 58 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plParsePreprocessParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3733)"

#line 58 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plParsePreprocessParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3731)"
;
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3732)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getChildResourceByType][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3757)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getChildResourceByType][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3737)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getChildResourceByType][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3749)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getChildResourceByType][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3747)"

  for 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getChildResourceByType][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3739)"
my $cr_uri (@{$self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3740)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#childResource'
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getChildResourceByType][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3741)"
}}) {
    my $cr = $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3742)"
get_resource
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getChildResourceByType][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3743)"

                                     ($cr_uri);
    if ($cr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3744)"
is_type_uri
#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getChildResourceByType][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3745)"
 ($typeURI)) {
      $r = $cr;
      last;
    }
  }

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

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

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

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

#line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getChildResourceByType][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3755)"

#line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getChildResourceByType][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3753)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3754)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerModule][@Type=ManakaiDISModuleDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3769)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerModule][@Type=ManakaiDISModuleDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3767)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerModule][@Type=ManakaiDISModuleDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3759)"
$r = $self->{db}
          ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3760)"
get_module
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerModule][@Type=ManakaiDISModuleDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3761)"

                   ($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3762)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#definingModule'
#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerModule][@Type=ManakaiDISModuleDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3763)"
})
   if defined $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3764)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#definingModule'
#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerModule][@Type=ManakaiDISModuleDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3765)"
};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3766)"

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

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3772)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3773)"
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_module';

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3797)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3775)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3789)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3787)"

  for 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3777)"
my $cr_uri (@{$self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3778)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#childResource'
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3779)"
}}) {
    my $cr = $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3780)"
get_resource
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3781)"

                                     ($cr_uri);
    my $ln = $cr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3782)"
local_name
#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3783)"
;
    if (defined $ln and $ln eq $localName and
        $cr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3784)"
is_type_uri
#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3785)"
 ($typeURI)) {
      $r = $cr;
      last;
    }
  }

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

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

#line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3795)"

#line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3793)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3794)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=nameURI][@Type=NameURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3803)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=nameURI][@Type=NameURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3801)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=nameURI][@Type=NameURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3799)"
$r = $self->{nameURI};
#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 #3804)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3806)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3807)"
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' => 'name_uri';

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=localName][@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3813)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=localName][@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3811)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=localName][@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3809)"
$r = $self->{localName};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3810)"

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

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3816)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3817)"
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' => 'local_name';

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3853)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3819)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3845)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3843)"

  if 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3821)"
(exists $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3822)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvNamespaceURI'
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3823)"
}) {
    $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3824)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvNamespaceURI'
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3825)"
};
  } elsif ($self->{src}) {
    my $node = $self->{src}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3826)"
dis_get_attribute
#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3827)"

                (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3828)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AppName'
#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3829)"
, 
                 for_arg => $self->{for},
                 forp_arg => $self->{forp},
                 media_type => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3830)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TypeQName'
#line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3831)"
,
                 default_media_type => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3832)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TypeQName'
#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3833)"
);
    if ($node) {
      $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3834)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvNamespaceURI'
#line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3835)"
}
         = $node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3836)"
qname_value_namespace_uri
#line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3837)"
;
    } else {
      $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3838)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvNamespaceURI'
#line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3839)"
} = $self->{namespaceURI};
    }
  } else {
    $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3840)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvNamespaceURI'
#line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3841)"
} = $self->{namespaceURI};
  }

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

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

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

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

#line 20 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3851)"

#line 20 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3849)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3850)"

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

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3856)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3857)"
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' => 'mv_namespace_uri';

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3931)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3859)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3923)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3905)"

  if 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3861)"
(defined $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3862)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Type'
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3863)"
}) {
    $r = $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3864)"
get_resource
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3865)"

                                       ($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3866)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Type'
#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3867)"
});
  } else {
    $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3868)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#TypeNode'
#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3869)"
}
       = $self->{src}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3870)"
dis_get_attribute
#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3871)"

                          (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3872)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Type'
#line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3873)"
, for_arg => $self->{for},
                           forp_arg => $self->{forp});
    if ($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3874)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#TypeNode'
#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3875)"
}) {
      $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3876)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Type'
#line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3877)"
}
         = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3878)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#TypeNode'
#line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3879)"
}
                  ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3880)"
tfqnames_value_uri
#line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3881)"

                          (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3882)"
undef
#line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3883)"
, $self->{for}, for_arg => $self->{for},
                           forp_arg => $self->{forp});
      $r = $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3884)"
get_resource
#line 15 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3885)"
 ($r);
      $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3886)"
is_referred
#line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3887)"

                         ($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3888)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#TypeNode'
#line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3889)"
});
    } else {
      my $pr = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3890)"
get_property_resource
#line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3891)"

                                  (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3892)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#dynamicParentResource'
#line 20 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3893)"
);
      if ($pr) {
        $r = $pr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3894)"
dis_data_type_resource
#line 22 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@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/2004/11/8/dis2pm#TypeNode'
#line 23 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3897)"
}
             = $pr->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3898)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#TypeNode'
#line 24 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3899)"
};
        $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3900)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Type'
#line 25 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3901)"
}
             = $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3902)"
uri
#line 26 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3903)"
;
      } else {  ## No parent
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3904)"

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

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

{
#line 31 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3915)"

#line 31 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3909)"

#line 31 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3907)"

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3910)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $self->{src}, '-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';

#line 34 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3913)"

#line 34 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3911)"
;
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3912)"

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

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

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

#line 35 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3921)"

#line 35 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3919)"
;
      }
    }
  }

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

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

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

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

#line 39 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3929)"

#line 39 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3927)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3928)"

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

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

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3934)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3935)"
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 #3936)"
}}
sub get_const_resource_by_name ($$) {
my ($self, $localName) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3969)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3937)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3961)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3959)"

  my 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3939)"
@constGroup;
  for my $cr_uri (@{$self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3940)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#childResource'
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3941)"
}}) {
    my $cr = $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3942)"
get_resource
#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3943)"

                                     ($cr_uri);
    my $ln = $cr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3944)"
local_name
#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3945)"
;
    if ($ln and $ln eq $localName and
        $cr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3946)"
is_type_uri
#line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3947)"

                 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3948)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Const'
#line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3949)"
)) {
      $r = $cr;
      last;
    } elsif ($cr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3950)"
is_type_uri
#line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3951)"

                        (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3952)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ConstGroup'
#line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3953)"
)) {
      push @constGroup, $cr;
    }
  }
  unless ($r) {
    for my $cg (@constGroup) {
      $r = $cg->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3954)"
get_child_resource_by_name_and_type
#line 18 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3955)"

                     ($localName, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3956)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Const'
#line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3957)"
);
      last if $r;
    }
  }

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

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

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

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

#line 25 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3967)"

#line 25 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3965)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3966)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4003)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3971)"

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

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

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3995)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3993)"

  my 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3973)"
@f = @{$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3974)"
get_property_resource_list
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3975)"

                            (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3976)"
'http://suika.fam.cx/~wakaba/archive/2004/dom/main#implementFeature'
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3977)"
,
                             isa_recursive => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3978)"
1
#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3979)"
,
                             default_media_type => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3980)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TypeQName'
#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3981)"
)};
  if (@f) {
    for my $f (@f) {
      if ($f->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3982)"
is_subset_of_uri
#line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3983)"

                   ($featureResourceURI)) {
        $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3984)"
1
#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3985)"
;
        last;
      }
    }
  } else {
    my $parent = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3986)"
get_property_resource
#line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3987)"

                             (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3988)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#parentResource'
#line 15 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3989)"
);
    $r = $parent->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3990)"
is_feature_provided
#line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3991)"

                             ($featureResourceURI)
      if $parent;
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3992)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3994)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3996)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3998)"
}

#line 23 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4001)"

#line 23 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3999)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4000)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4002)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4004)"
}
$r}
sub uri ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4011)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=uri][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4009)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=uri][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4007)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=uri][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4005)"
$r = $self->{uri};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4006)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4008)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4010)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4012)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4013)"
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' => 'uri';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4014)"
}}
sub pl_name ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4151)"
my ($self) = @_;
my $r = '';

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4149)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4015)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4016)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4143)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4141)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4051)"

  if 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4017)"
(exists $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4018)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#name'
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4019)"
}) {
    $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4020)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#name'
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4021)"
};
  } elsif ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4022)"
is_type_uri
#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4023)"

                      (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4024)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#AnyMethod'
#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4025)"
)) {
    
    my $an_node = $self->{src}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4026)"
dis_get_attribute
#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4027)"

                      (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4028)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AppName'
#line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4029)"
, for_arg => $self->{for},
                       forp_arg => $self->{forp},
                       media_type => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4030)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl'
#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4031)"
,
                       default_media_type => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4032)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl'
#line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4033)"
);
    if ($an_node) {
      $r = $an_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4034)"
value
#line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4035)"
;
      if ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4036)"
get_property_boolean
#line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4037)"

                        (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4038)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#isForInternal'
#line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4039)"
, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4040)"
0
#line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4041)"
)) {
        $r = '_' . $r;
      }
      ## No reserved name checks
    } elsif (defined $self->{localName}) {
      $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4042)"
Message::Util::DIS::ManakaiDISImplementation->_camel_case_to_underscore_name
#line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4043)"

                                       ($self->{localName});
      if ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4044)"
get_property_boolean
#line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4045)"

                        (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4046)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#isForInternal'
#line 22 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4047)"
, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4048)"
0
#line 22 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4049)"
)) {
        $r = '_' . $r;
      }
      if ({
            import => 1,
            unimport => 1,
            isa => 1,
            can => 1,
            new => 1,
            as_string => 1,
            stringify => 1,
            clone => 1,
          }->{$r} or $r =~ /^___/) {
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4050)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4052)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4063)"
local $Error::Depth = $Error::Depth - 1;

{
#line 36 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4061)"

#line 36 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4055)"

#line 36 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4053)"

          
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4054)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4056)"
report Message::Util::DIS::ManakaiDISException -object => $self, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#generatedName' => $r, '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#soruceNode' => $self->{src}, '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#RESERVED_PERL_METHOD_NAME_ERR', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $self->{uri}, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'pl_name';

#line 41 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4059)"

#line 41 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4057)"
;
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4058)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4060)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4062)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4064)"
}

#line 42 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4083)"

#line 42 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4065)"
;
      }
    } elsif (my $op_uri = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4066)"
pl_method_operator
#line 44 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4067)"
) {
        $r = {
               
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4068)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#MUErrorHandler'
#line 46 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4069)"
 => '___report_error',
               
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4070)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Perl#AsStringMethod'
#line 47 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4071)"
 => 'stringify',
               
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4072)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Perl#NewMethod'
#line 48 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4073)"
 => 'new',
               
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4074)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Perl#CloneMethod'
#line 49 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4075)"
 => 'clone',
             }->{$op_uri};
        $r = $op_uri if $op_uri =~ /^[A-Z]+$/;
    } else {
      $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4076)"
undef
#line 53 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4077)"
;
    }
  } elsif ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4078)"
is_type_uri
#line 55 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4079)"

                      (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4080)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Const'
#line 56 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4081)"
)) {
    unless (defined $self->{localName}) {
      
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4082)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4084)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4095)"
local $Error::Depth = $Error::Depth - 1;

{
#line 59 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4093)"

#line 59 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4087)"

#line 59 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4085)"

        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4086)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4088)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $self->{src}, '-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_LOCAL_NAME_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' => 'pl_name', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $self->{uri};

#line 63 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4091)"

#line 63 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4089)"
;
      
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4090)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4092)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4094)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4096)"
}

#line 64 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4099)"

#line 64 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4097)"
;
    }
    $r = uc $self->{localName};
    if ($r =~ /^_/ or $r =~ /_$/) {
      
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4098)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4100)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4111)"
local $Error::Depth = $Error::Depth - 1;

{
#line 68 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4109)"

#line 68 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4103)"

#line 68 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4101)"

        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4102)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4104)"
report Message::Util::DIS::ManakaiDISException -object => $self, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#generatedName' => $r, '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#soruceNode' => $self->{src}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#localName' => $self->{localName}, '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#RESERVED_PERL_METHOD_NAME_ERR', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $self->{uri}, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'pl_name';

#line 74 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4107)"

#line 74 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4105)"
;
      
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4106)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4108)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4110)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4112)"
}

#line 75 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4119)"

#line 75 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4113)"
;
    }
  } elsif ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4114)"
is_type_uri
#line 77 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4115)"

                      (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4116)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ConstGroup'
#line 78 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4117)"
)) {
    $r = $self->{localName};
    unless (defined $r) {
      
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4118)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4120)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4131)"
local $Error::Depth = $Error::Depth - 1;

{
#line 81 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4129)"

#line 81 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4123)"

#line 81 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4121)"

        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4122)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4124)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $self->{src}, '-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_LOCAL_NAME_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' => 'pl_name', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $self->{uri};

#line 85 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4127)"

#line 85 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4125)"
;
      
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4126)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4128)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4130)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4132)"
}

#line 86 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4139)"

#line 86 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4133)"
;
    }
  } else {
    $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4134)"
undef
#line 89 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4135)"
;
  }
  $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4136)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#name'
#line 91 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4137)"
} = $r;

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4138)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4140)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4142)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4144)"
}

#line 92 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4147)"

#line 92 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4145)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4146)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4148)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4150)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4152)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4153)"
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' => 'pl_name';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4154)"
}}
sub dis_actual_data_type_resource ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4267)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4265)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4155)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4156)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4259)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4257)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4239)"

  if 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4157)"
(defined $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4158)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--actualType'
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4159)"
}) {
    $r = $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4160)"
get_resource
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4161)"

                                  ($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4162)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--actualType'
#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4163)"
});
  } else {
    $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4164)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#actualTypeNode'
#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4165)"
}
       = $self->{src}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4166)"
dis_get_attribute
#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4167)"

                          (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4168)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--actualType'
#line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4169)"
, for_arg => $self->{for},
                           forp_arg => $self->{forp});
    if ($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4170)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#actualTypeNode'
#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4171)"
}) {
      $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4172)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--actualType'
#line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4173)"
}
         = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4174)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#actualTypeNode'
#line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4175)"
}
                ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4176)"
tfqnames_value_uri
#line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4177)"

                          (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4178)"
undef
#line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4179)"
, $self->{for}, for_arg => $self->{for},
                           forp_arg => $self->{forp});
      $r = $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4180)"
get_resource
#line 15 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4181)"
 ($r);
      $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4182)"
is_referred
#line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4183)"

                         ($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4184)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#actualTypeNode'
#line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4185)"
});
    } elsif (defined $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4186)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Type'
#line 18 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4187)"
}) {
      $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4188)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--actualType'
#line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4189)"
} = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4190)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Type'
#line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4191)"
};
      $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4192)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#actualTypeNode'
#line 20 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4193)"
}
                    = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4194)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#TypeNode'
#line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4195)"
};
      $r = $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4196)"
get_resource
#line 22 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4197)"
 ($r);
    } else {
      $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4198)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#actualTypeNode'
#line 24 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4199)"
}
         = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4200)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#TypeNode'
#line 25 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4201)"
}
         = $self->{src}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4202)"
dis_get_attribute
#line 26 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4203)"

                          (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4204)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Type'
#line 27 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4205)"
, for_arg => $self->{for},
                           forp_arg => $self->{forp});
      if ($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4206)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#TypeNode'
#line 29 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4207)"
}) {
        $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4208)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--actualType'
#line 30 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4209)"
}
           = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4210)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Type'
#line 31 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4211)"
}
           = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4212)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#TypeNode'
#line 32 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4213)"
}
                  ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4214)"
tfqnames_value_uri
#line 33 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4215)"

                          (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4216)"
undef
#line 34 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4217)"
, $self->{for}, for_arg => $self->{for},
                           forp_arg => $self->{forp});
        $r = $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4218)"
get_resource
#line 36 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4219)"
 ($r);
        $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4220)"
is_referred
#line 37 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4221)"

                         ($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4222)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#actualTypeNode'
#line 38 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4223)"
});
      } else {
        my $pr = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4224)"
get_property_resource
#line 40 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4225)"

                                  (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4226)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#dynamicParentResource'
#line 41 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4227)"
);
        if ($pr) {
          $r = $pr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4228)"
dis_actual_data_type_resource
#line 43 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4229)"
;
          $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4230)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#actualTypeNode'
#line 44 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4231)"
}
             = $pr->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4232)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#actualTypeNode'
#line 45 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4233)"
};
          $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4234)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--actualType'
#line 46 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4235)"
}
              = $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4236)"
uri
#line 47 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4237)"
;
        } else {  ## No parent
          
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4238)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4240)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4251)"
local $Error::Depth = $Error::Depth - 1;

{
#line 52 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4249)"

#line 52 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4243)"

#line 52 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4241)"

            
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4242)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4244)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $self->{src}, '-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';

#line 55 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4247)"

#line 55 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4245)"
;
          
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4246)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4248)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4250)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4252)"
}

#line 56 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4255)"

#line 56 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4253)"
;
        }
      }
    }
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4254)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4256)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4258)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4260)"
}

#line 61 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4263)"

#line 61 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4261)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4262)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4264)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4266)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4268)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4269)"
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 #4270)"
}}
sub mv_local_name ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4307)"
my ($self) = @_;
my $r = '';

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4305)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4271)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4272)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4299)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4297)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4295)"

  if 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4273)"
(exists $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4274)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvLocalName'
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4275)"
}) {
    $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4276)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvLocalName'
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4277)"
};
  } elsif ($self->{src}) {
    my $node = $self->{src}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4278)"
dis_get_attribute
#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4279)"

                (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4280)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AppName'
#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4281)"
, 
                 for_arg => $self->{for},
                 forp_arg => $self->{forp},
                 media_type => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4282)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TypeQName'
#line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4283)"
,
                 default_media_type => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4284)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TypeQName'
#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4285)"
);
    if ($node) {
      $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4286)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvLocalName'
#line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4287)"
}
         = $node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4288)"
qname_value_local_name
#line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4289)"
;
    } else {
      $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4290)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvLocalName'
#line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4291)"
} = $self->{localName};
    }
  } else {
    $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4292)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvLocalName'
#line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4293)"
} = $self->{localName};
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4294)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4296)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4298)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4300)"
}

#line 20 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4303)"

#line 20 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4301)"
;
#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;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4308)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4309)"
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' => 'mv_local_name';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4310)"
}}
sub uris ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4317)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=uris][@Type=Perl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4315)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=uris][@Type=Perl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4313)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=uris][@Type=Perl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4311)"
$r = [grep {$self->{aliasURI}->{$_}} keys %{$self->{aliasURI}}];
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4312)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4314)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4316)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4318)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4319)"
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 #4320)"
}}
sub owner_class_node_uri ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4355)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4353)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4327)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4321)"
(exists $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4322)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#ownerClass'
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4323)"
}) {
  $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4324)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#ownerClass'
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4325)"
};
} else {
  my $res = $self;
  
#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 #4345)"
local $Error::Depth = $Error::Depth + 1;

{
#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4343)"

#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4341)"

    RES: 
#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4329)"
{
      if ($res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4330)"
is_type_uri
#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4331)"

                     (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4332)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Class'
#line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4333)"
)) {
        $r = $res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4334)"
source_node_id
#line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4335)"
;
      } else {
        $res = $res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4336)"
get_property_resource
#line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4337)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4338)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#parentResource'
#line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4339)"
);
        redo RES if $res;
      }
    }
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4340)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4342)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4344)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4346)"
}

#line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4351)"

#line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4347)"
;
  $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4348)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#ownerClass'
#line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4349)"
} = $r;
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4350)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4352)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4354)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4356)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4357)"
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 #4358)"
}}
sub pl_file_name_stem ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4409)"
my ($self) = @_;
my $r = '';

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4407)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4359)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4360)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4401)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4399)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4379)"

  if 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4361)"
($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4362)"
is_type_uri
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4363)"

                      (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4364)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Class'
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4365)"
) or
           $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4366)"
is_type_uri
#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4367)"

                      (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4368)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#IF'
#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4369)"
)) {
    my $an_node = $self->{src}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4370)"
dis_get_attribute
#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4371)"

                      (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4372)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AppName'
#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4373)"
, for_arg => $self->{for},
                       forp_arg => $self->{forp},
                       media_type => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4374)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl'
#line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4375)"
);
    if ($an_node) {
      ## NOTE: "lang:Perl" is fully-qualified name by definition
      $r = $an_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4376)"
value
#line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4377)"
;
      $r =~ s/.*?:://g;
    } else {
      unless (defined $self->{localName}) {
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4378)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4380)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4391)"
local $Error::Depth = $Error::Depth - 1;

{
#line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4389)"

#line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4383)"

#line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4381)"

          
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4382)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4384)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $self->{src}, '-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_LOCAL_NAME_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' => 'pl_file_name_stem';

#line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4387)"

#line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4385)"
;
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4386)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4388)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4390)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4392)"
}

#line 20 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4397)"

#line 20 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4393)"
;
      }
      $r = $self->{localName};
    }
  } else {
    $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4394)"
undef
#line 25 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4395)"
;
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4396)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4398)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4400)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4402)"
}

#line 27 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4405)"

#line 27 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4403)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4404)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4406)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4408)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4410)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4411)"
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' => 'pl_file_name_stem';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4412)"
}}
sub pl_prototype ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4439)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plPrototype][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4437)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plPrototype][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4413)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4414)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4431)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plPrototype][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4429)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plPrototype][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4427)"

  my 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plPrototype][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4415)"
$dt = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4416)"
dis_actual_data_type_resource
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plPrototype][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4417)"
;
  if ($dt->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4418)"
is_subset_of_uri
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plPrototype][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4419)"

                                             (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4420)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl--Array'
#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plPrototype][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4421)"
)) {
    $r = '@' . $r;
  } elsif ($dt->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4422)"
is_subset_of_uri
#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plPrototype][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4423)"

                                             (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4424)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl--Hash'
#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plPrototype][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4425)"
)) {
    $r = '%' . $r;
  } else {
    $r = '$' . $r;
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4426)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4428)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4430)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4432)"
}

#line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plPrototype][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4435)"

#line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plPrototype][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4433)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4434)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4436)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4438)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4440)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4441)"
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' => 'pl_prototype';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4442)"
}}
sub mv_owner_element_resource ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4479)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvOwnerElementResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4477)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvOwnerElementResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4443)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4444)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4471)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvOwnerElementResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4469)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvOwnerElementResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4467)"

  if 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvOwnerElementResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4445)"
(exists $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4446)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvOwnerElementURI'
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvOwnerElementResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4447)"
}) {
    $r = $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4448)"
get_resource
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvOwnerElementResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4449)"

                        ($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4450)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvOwnerElementURI'
#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvOwnerElementResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4451)"
})
      if defined $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4452)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvOwnerElementURI'
#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvOwnerElementResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4453)"
};
  } elsif (defined $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4454)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#parentResource'
#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvOwnerElementResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4455)"
}) {
    $r = $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4456)"
get_resource
#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvOwnerElementResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4457)"

                        ($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4458)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#parentResource'
#line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvOwnerElementResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4459)"
});
    undef $r unless $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4460)"
is_type_uri
#line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvOwnerElementResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4461)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4462)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Markup#AnyOwnerElement'
#line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvOwnerElementResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4463)"
);
    $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4464)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvOwnerElementURI'
#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvOwnerElementResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4465)"
} = $r->{uri} if $r;
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4466)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4468)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4470)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4472)"
}

#line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvOwnerElementResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4475)"

#line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvOwnerElementResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4473)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4474)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4476)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4478)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4480)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4481)"
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' => 'mv_owner_element_resource';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4482)"
}}
sub pl_is_defined ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4541)"
my ($self) = @_;
my $r = 0;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4539)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4493)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4483)"
(exists $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4484)"
'node'
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4485)"
}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4486)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plDefined'
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4487)"
}) {
  $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4488)"
'node'
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4489)"
}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4490)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plDefined'
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4491)"
};
} else {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4492)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4494)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4529)"
local $Error::Depth = $Error::Depth + 1;

{
#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4527)"

#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4525)"

    my 
#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4495)"
$typeuri = {
      
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4496)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Class'
#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4497)"
 => [
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4498)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#Method'
#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4499)"
, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4500)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#Attribute'
#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4501)"
,
      ],
      
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4502)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#Method'
#line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4503)"
 => [
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4504)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#MethodReturn'
#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4505)"
,
      ],
      
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4506)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#Attribute'
#line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4507)"
 => [
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4508)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#AttributeGet'
#line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4509)"
, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4510)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#:AttributeSet'
#line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4511)"
,
      ],
    };
    OUTMOST:
    for my $mytype (keys %$typeuri) {
      if ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4512)"
is_type_uri
#line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4513)"
 ($mytype)) {
        for my $ctype ($typeuri->{$mytype}) {
          for my $cres (@{$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4514)"
get_property_resource_list
#line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4515)"

                                  (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4516)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#childResource'
#line 20 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4517)"
)}) {
            if ($cres->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4518)"
is_type_uri
#line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4519)"

                                                         ($ctype)) {
              unless ($cres->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4520)"
pl_is_defined
#line 23 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4521)"
) {
                $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4522)"
0
#line 24 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4523)"
; last OUTMOST;
              }
            }
          }
          next OUTMOST;
        }
      }
    } # OUTMOST
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4524)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4526)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4528)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4530)"
}

#line 35 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4537)"

#line 35 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4531)"
;
  $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4532)"
'node'
#line 36 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4533)"
}->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4534)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plDefined'
#line 36 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4535)"
} = $r;
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4536)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4538)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4540)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4542)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4543)"
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' => 'pl_is_defined';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4544)"
}}
sub dis_data_type_node ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4565)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeNode][@type=DISLang:Attribute]/Get[@Type=ManakaiDISElement][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4563)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeNode][@type=DISLang:Attribute]/Get[@Type=ManakaiDISElement][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4545)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4546)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4555)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeNode][@type=DISLang:Attribute]/Get[@Type=ManakaiDISElement][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4553)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeNode][@type=DISLang:Attribute]/Get[@Type=ManakaiDISElement][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4551)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeNode][@type=DISLang:Attribute]/Get[@Type=ManakaiDISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4547)"

  $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4548)"
dis_data_type_resource
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeNode][@type=DISLang:Attribute]/Get[@Type=ManakaiDISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4549)"
;

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4550)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4552)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4554)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4556)"
}

#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeNode][@type=DISLang:Attribute]/Get[@Type=ManakaiDISElement][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4561)"

#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeNode][@type=DISLang:Attribute]/Get[@Type=ManakaiDISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4557)"
;
$r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4558)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#TypeNode'
#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeNode][@type=DISLang:Attribute]/Get[@Type=ManakaiDISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4559)"
};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4560)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4562)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4564)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4566)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4567)"
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_node';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4568)"
}}
sub pl_preprocess_perl_statement ($$%) {
my ($self, $codeArg, %opt) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4929)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4571)"
unless 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4569)"
($self->{src}) {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4570)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4572)"
report Message::Util::DIS::ManakaiDISException -object => $self, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'pl_preprocess_perl_statement', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_SOURCE_NODE_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 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4575)"

#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4573)"
;
}

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4574)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4576)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4923)"
local $Error::Depth = $Error::Depth + 1;

{
#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4921)"

#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4629)"

  our 
#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4577)"
$RegQNameChar;
  my $plimpl = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4578)"
pl_implementation
#line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4579)"
;
  if ($opt{contains_statements}) {
    $r = $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4580)"
create_perl_block_container
#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4581)"
;
    if (defined $opt{source_line}) {
      $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4582)"
source_file
#line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4583)"
 ($opt{source_file});
      $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4584)"
source_line
#line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4585)"
 ($opt{source_line});
      $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4586)"
current_source_file
#line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4587)"
 ($opt{source_file});
      $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4588)"
current_source_line
#line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4589)"
 ($opt{source_line});
    } elsif ($opt{node}) {
      my $np = $opt{node}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4590)"
node_path
#line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4591)"

                (key => [qw/Name QName Type type/]);
      $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4592)"
source_file
#line 18 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4593)"
 ($np);
      $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4594)"
source_line
#line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4595)"
 (1);
      $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4596)"
current_source_file
#line 20 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4597)"
 ($np);
      $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4598)"
current_source_line
#line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4599)"
 (1);
    }
  } else {
    $r = $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4600)"
create_perl_inline_container
#line 24 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4601)"
;
  }
  for my $source_code (split /(?<![\^\?qwr])(\x3C$RegQNameChar[^<>]+>
                                             )/ox, $codeArg) {
    if ($source_code =~ s/^\x3C//) {
      $source_code =~ s/>$//;
      if ($source_code =~ /=$/) {
      ## TODO: Warning
      #  valid_warn qq<Inline element "\x3C$source_code>" ends with a "=" - >.
      #              q{should "=" be used place of "=>"?};
      }
      if ($source_code =~ s/^(.+?):://) {
        my $et = $self->{src}
                      ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4602)"
qname_to_uri
#line 37 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4603)"

                             ($1,
                              node => $opt{node},
                              default_namespace_uri => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4604)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--'
#line 40 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4605)"
);
        if ($et eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4606)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--Q'
#line 41 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4607)"
) {          ## QName constant
          $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4608)"
append_string_literal
#line 42 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4609)"

                      ($self->{src}
                            ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4610)"
qname_to_uri
#line 44 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4611)"

                                   ($source_code, node => $opt{node}));
        } elsif ({
          
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4612)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--M'
#line 47 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4613)"
 => 1,
          
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4614)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--ClassM'
#line 48 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4615)"
 => 1,
          
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4616)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--AG'
#line 49 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4617)"
 => 1,
          
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4618)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--AS'
#line 50 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4619)"
 => 1,
        }->{$et}) {     ## Method call
          my ($class_qname, $method_qname)
                 = split /\s*\.\s*/, $source_code, 2;
          my $class_uri
                 = $self->{src}
                        ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4620)"
tfqnames_to_uri
#line 56 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4621)"

                               ($class_qname,
                                $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4622)"
owner_class_node_uri
#line 58 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4623)"
,
                                $self->{for},
                                node => $opt{node});
          my $class = $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4624)"
get_resource
#line 61 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4625)"

                                           ($class_uri);
          unless ($class->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4626)"
is_defined
#line 63 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4627)"
) {
            
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4628)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4630)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4635)"
local $Error::Depth = $Error::Depth - 1;

{
#line 67 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4633)"

#line 67 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4631)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4632)"
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' => 'pl_preprocess_perl_statement', '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#sourceCode' => $source_code, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#expectedType' => 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#AnyClass', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#RESOURCE_NOT_DEFINED_ERR', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => $et, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $class_uri;

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4634)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4636)"
}

#line 73 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4647)"

#line 73 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4637)"
;
          }
          $class->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4638)"
is_referred
#line 75 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4639)"

                                           ($opt{node} || $self->{src});
          if ($et eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4640)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--:ClassM' and
              
#line 77 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4641)"
$class->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4642)"
is_type_uri
#line 77 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4643)"

                             (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4644)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#IF'
#line 78 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4645)"
)) {
            
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4646)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4648)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4659)"
local $Error::Depth = $Error::Depth - 1;

{
#line 80 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4657)"

#line 80 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4651)"

#line 80 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4649)"

              
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4650)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4652)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $opt{node} || $self->{src}, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'pl_preprocess_perl_statement', '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#sourceCode' => $source_code, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#expectedType' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#IF', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#INTERFACE_CLASS_METHOD_ERR', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => $et, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $class_uri;

#line 87 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4655)"

#line 87 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4653)"
;
            
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4654)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4656)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4658)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4660)"
}

#line 88 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4683)"

#line 88 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4661)"
;
          }
          unless ($class->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4662)"
is_type_uri
#line 90 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4663)"

                                 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4664)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#IF'
#line 91 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4665)"
)) {
            $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4666)"
_pl_add_require_resource
#line 92 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4667)"

                                 ($class => $r);
          }
          my $method = $class->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4668)"
get_child_resource_by_name_and_type
#line 95 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4669)"

                            ($method_qname,
                             {
                               
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4670)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--AG'
#line 98 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4671)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4672)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#Attribute'
#line 98 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4673)"
,
                               
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4674)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--AS'
#line 99 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4675)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4676)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#Attribute'
#line 99 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4677)"
,
                             }->{$et} || 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4678)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#Method'
#line 100 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4679)"
);
          if (not $method or
              not $method->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4680)"
is_defined
#line 102 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4681)"
) {
            
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4682)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4684)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4695)"
local $Error::Depth = $Error::Depth - 1;

{
#line 105 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4693)"

#line 105 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4687)"

#line 105 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4685)"

              
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4686)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4688)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $opt{node} || $self->{src}, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'pl_preprocess_perl_statement', '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#sourceCode' => $source_code, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#expectedType' => {
                               'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--AG' => 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#Attribute',
                               'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--AS' => 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#Attribute',
                             }->{$et} || 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#Method', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#localName' => $method_qname, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#RESOURCE_NOT_DEFINED_ERR', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => $et, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#parentURI' => $class_uri;

#line 116 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4691)"

#line 116 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4689)"
;
            
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4690)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4692)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4694)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4696)"
}

#line 117 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4725)"

#line 117 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4697)"
;
          }
          my $class_name = '';
          if ($et eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4698)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--ClassM'
#line 120 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4699)"
) {
            $class_name = $class->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4700)"
pl_fully_qualified_name
#line 121 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4701)"
 . '->';
          }
          my $method_name = $method->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4702)"
pl_name
#line 123 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4703)"
;
          $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4704)"
append_bare
#line 124 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4705)"

                                   ($class_name . $method_name);
        } elsif ({
          
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4706)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--Class'
#line 127 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4707)"
 => 1,
          
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4708)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--ClassName'
#line 128 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4709)"
 => 1,
          
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4710)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--IF'
#line 129 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4711)"
 => 1,
          
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4712)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--IFName'
#line 130 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4713)"
 => 1,
        }->{$et}) {                            ## Perl package name
          my $class_uri
                 = $self->{src}
                        ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4714)"
tfqnames_to_uri
#line 134 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4715)"

                               ($source_code,
                                $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4716)"
owner_class_node_uri
#line 136 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4717)"
,
                                $self->{for},
                                node => $opt{node});
          my $class = $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4718)"
get_resource
#line 139 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4719)"

                                           ($class_uri);
          $class->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4720)"
is_referred
#line 141 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4721)"

                                           ($opt{node} || $self->{src});
          my $pack = $class->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4722)"
pl_fully_qualified_name
#line 143 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4723)"
;
          unless ($pack) {
            
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4724)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4726)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4731)"
local $Error::Depth = $Error::Depth - 1;

{
#line 149 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4729)"

#line 149 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4727)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4728)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $opt{node} || $self->{src}, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'pl_preprocess_perl_statement', '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#sourceCode' => $source_code, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_PERL_PACKAGE_NAME_ERR', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => $et, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $class_uri;

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4730)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4732)"
}

#line 154 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4755)"

#line 154 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4733)"
;
          }
          if ({
            
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4734)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--ClassName'
#line 157 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4735)"
 => 1,
            
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4736)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--IFName'
#line 158 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4737)"
 => 1,
          }->{$et}) {
            $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4738)"
append_string_literal
#line 160 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4739)"
 ($pack);
          } else {
            $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4740)"
append_bare
#line 162 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4741)"
 ($pack);
          }
          $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4742)"
_pl_add_require_resource
#line 164 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4743)"

                                 ($class => $r)
            if {
              
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4744)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--Class'
#line 167 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4745)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4746)"
1
#line 167 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4747)"
,
              
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4748)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--ClassName'
#line 168 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4749)"
 => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4750)"
1
#line 168 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4751)"
,
            }->{$et};
        } elsif ($et eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4752)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--Code'
#line 170 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4753)"
) { ## Inline code
          my $code_name;
          $source_code =~ s/^\s+//;
          if ($source_code =~ s/^((?>(?!::).)+)//s) {
            $code_name = $1;
          } else {
            
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4754)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4756)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4767)"
local $Error::Depth = $Error::Depth - 1;

{
#line 176 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4765)"

#line 176 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4759)"

#line 176 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4757)"

              
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4758)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4760)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $opt{node} || $self->{src}, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'pl_preprocess_perl_statement', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#PERL_PREPROCESS_NO_CODE_NAME_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#sourceCode' => $source_code;

#line 180 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4763)"

#line 180 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4761)"
;
            
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4762)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4764)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4766)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4768)"
}

#line 181 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4785)"

#line 181 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4769)"
;
          }
          $source_code =~ s/^::\s*//;
          my $param = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4770)"
_pl_parse_preprocess_parameter
#line 184 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4771)"

                                   ($source_code, node => $opt{node});
          my $code_uri = $self->{src}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4772)"
tfqnames_to_uri
#line 186 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4773)"

                                   ($code_name, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4774)"
undef
#line 187 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4775)"
, $self->{for},
                                    node => $opt{node});
          my $code = $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4776)"
get_resource
#line 189 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4777)"

                                   ($code_uri);
          $code->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4778)"
is_referred
#line 191 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4779)"

                                   ($opt{node} || $self->{src});
          unless ($code->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4780)"
is_type_uri
#line 193 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4781)"

                                   (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4782)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#InlineCode'
#line 194 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4783)"
)) {
            
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4784)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4786)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4795)"
local $Error::Depth = $Error::Depth - 1;

{
#line 197 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4793)"

#line 197 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4787)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4788)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $opt{node} || $self->{src}, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'pl_preprocess_perl_statement', '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#sourceCode' => $source_code, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#expectedType' => 'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#InlineCode', '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' => $code_uri;

#line 202 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4791)"

#line 202 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4789)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4790)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4792)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4794)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4796)"
}

#line 202 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4801)"

#line 202 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4797)"
;
          }
          my $pc = $code->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4798)"
pl_code_fragment
#line 204 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4799)"
->clone;
          unless (defined $pc) {
            
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4800)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4802)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4807)"
local $Error::Depth = $Error::Depth - 1;

{
#line 207 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4805)"

#line 207 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4803)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4804)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $opt{node} || $self->{src}, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'pl_preprocess_perl_statement', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#PERL_CODE_NOT_DEFINED_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#sourceCode' => $source_code, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $code_uri;

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4806)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4808)"
}

#line 211 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4837)"

#line 211 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4809)"
;
          }
          for my $var (grep {/^\$/} keys %$param) {
            my $value;
            if ($param->{$var}->{type} eq 'variable') {
              $value = $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4810)"
create_perl_variable
#line 216 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4811)"

                                  ('$', 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4812)"
undef
#line 217 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4813)"
, $param->{$var}->{value});
            } elsif ($param->{$var}->{type} eq 'code') {
              $value = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4814)"
pl_preprocess_perl_statement
#line 219 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4815)"

                                    ($param->{$var}->{value},
                                     contains_statements => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4816)"
0
#line 221 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4817)"
);
            } else {
              $value = $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4818)"
create_perl_string_literal
#line 223 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4819)"

                                  ($param->{$var}->{value});
            }
            $pc->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4820)"
replace_variable
#line 226 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4821)"

                                  ($var => $value);
          }
          $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4822)"
append_code_fragment
#line 229 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4823)"
 ($pc);
        } elsif ($et eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4824)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--C'
#line 230 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4825)"
) {
          my ($class_qname, $const_name) = split /\./, $source_code, 2;
          my $class_uri
                 = $self->{src}
                        ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4826)"
tfqnames_to_uri
#line 234 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4827)"

                               ($class_qname,
                                $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4828)"
owner_class_node_uri
#line 236 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4829)"
,
                                $self->{for},
                                node => $opt{node});
          my $class = $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4830)"
get_resource
#line 239 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4831)"

                                           ($class_uri);
          $class->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4832)"
is_referred
#line 241 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4833)"

                                           ($opt{node} || $self->{src});
          my $const = $class->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4834)"
get_const_resource_by_name
#line 243 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4835)"
 ($const_name);
          unless (defined $const) {
            
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4836)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4838)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4843)"
local $Error::Depth = $Error::Depth - 1;

{
#line 248 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4841)"

#line 248 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4839)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4840)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $opt{node} || $self->{src}, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'pl_preprocess_perl_statement', '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#sourceCode' => $source_code, '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' => $const_name, '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';

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4842)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4844)"
}

#line 253 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4857)"

#line 253 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4845)"
;
          }
          $const->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4846)"
is_referred
#line 255 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4847)"
 ($opt{node});

          my $data_type = $const->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4848)"
dis_actual_data_type_resource
#line 257 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4849)"
;
          my $val = $const->{src}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4850)"
pl_value_code_fragment
#line 258 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4851)"

                    (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4852)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Value'
#line 259 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4853)"
, $const,
                     for_arg => $const->{for},
                     forp_arg => $const->{forp},
                     data_type_uri => $data_type
                            ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4854)"
uri
#line 263 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4855)"
);
          unless (defined $val) {
            
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4856)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4858)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4863)"
local $Error::Depth = $Error::Depth - 1;

{
#line 267 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4861)"

#line 267 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4859)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4860)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $const->{src}, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'pl_preprocess_perl_statement', '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#localName' => $const->{localName}, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_CONST_VALUE_ERR', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => $et, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $const->{uri};

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4862)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4864)"
}

#line 272 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4869)"

#line 272 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4865)"
;
          }
          $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4866)"
append_code_fragment
#line 274 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4867)"
 ($val);
        } else {
          
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4868)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4870)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4875)"
local $Error::Depth = $Error::Depth - 1;

{
#line 276 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4873)"

#line 276 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4871)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4872)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $opt{node} || $self->{src}, '-type' => 'NOT_SUPPORTED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'pl_preprocess_perl_statement', '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::ManakaiDISResourceDefinition', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceCode' => $source_code, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => $et;

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4874)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4876)"
}

#line 280 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4879)"

#line 280 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4877)"
;
        }
      } else {
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4878)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4880)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4885)"
local $Error::Depth = $Error::Depth - 1;

{
#line 283 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4883)"

#line 283 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4881)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4882)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $opt{node} || $self->{src}, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'pl_preprocess_perl_statement', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#expectedType' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ConstGroup', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#PERL_PREPROCESS_NO_ELEMENT_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/2005/manakai/Util/DIS#sourceCode' => $source_code;

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4884)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4886)"
}

#line 287 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4905)"

#line 287 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4887)"
;
      }
    } else {
      for my $source_code (split /(\b
                                    (?: t r u e \b|
                                        f a l s e \b|
                                        n u l l \b|
                                        t r y \s* \x7B ) |
                                   \\ p \x7B [^\x7B\x7D\\]+ \x7D)/x,
                           $source_code) {
        if ({
          'tr'.'ue' => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4888)"
1
#line 298 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4889)"
,
          'fal'.'se' => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4890)"
1
#line 299 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4891)"
,
          'nu'.'ll' => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4892)"
1
#line 300 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4893)"
,
        }->{$source_code}) {
          $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4894)"
append_atom
#line 302 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4895)"
 ({
            'tr'.'ue' => 1,
            'fal'.'se' => 0,
            'nu'.'ll' => 'undef',
          }->{$source_code});
        } elsif ($source_code =~ /^t r y \s* \x7B$/x) {
          $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4896)"
append_code
#line 308 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4897)"
 ('tr'.
               'y '."\x7B".'local $Error::Depth = $Error::Depth + 3;');
          $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4898)"
add_use_perl_module_name
#line 310 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4899)"

                                            ('Message::Util::Error');
        } elsif ($source_code =~ /^\\ p \x7B ([^\x7B\x7D\\]+) \x7D$/x) {
          my $cls = $1;
          $cls =~ s/^\s+//s;
          $cls =~ s/\s+$//s;
          ## TODO: Formal character class support required
          if ($cls =~ /^inxml\s*[:|]\s*(\w+)/) {
            $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4900)"
append_atom
#line 318 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4901)"
 ('\\'.'p{InXML'.$1.'}');
            $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4902)"
add_use_char_class_name
#line 319 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4903)"

                                ('Char::Class::XML', 'InXML'.$1);
          } else {
            
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4904)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4906)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4911)"
local $Error::Depth = $Error::Depth - 1;

{
#line 322 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4909)"

#line 322 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4907)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4908)"
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' => 'pl_preprocess_perl_statement', '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::ManakaiDISResourceDefinition', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceCode' => $source_code;

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4910)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4912)"
}

#line 325 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4919)"

#line 325 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4913)"
;
          }
        } else {
          if ($source_code =~ s/^(\s*[\w:]+\s*)//) {
            ## NOTE: "$cond ?\n1\n:0" would be a syntax error
            $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4914)"
append_atom
#line 330 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4915)"
 ($1);
          }
          $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4916)"
append_code
#line 332 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4917)"
 ($source_code);
        }
      }
    } # Inline instruction or not
  } # for

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4918)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4920)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4922)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4924)"
}

#line 337 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4927)"

#line 337 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4925)"
; # DEEP
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4926)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4928)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4930)"
}
$r}
sub namespace_uri ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4937)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=namespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4935)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=namespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4933)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=namespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4931)"
$r = $self->{namespaceURI};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4932)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4934)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4936)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4938)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4939)"
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' => 'namespace_uri';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4940)"
}}
sub source_node_id ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4949)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=sourceNodeID][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4947)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=sourceNodeID][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4945)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=sourceNodeID][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4941)"
$r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4942)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNodeID'
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=sourceNodeID][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4943)"
};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4944)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4946)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4948)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4950)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4959)"
my ($self, $given) = @_;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=sourceNodeID][@Type=ResourceURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [b] (Chunk #4957)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=sourceNodeID][@Type=ResourceURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [bc] (Chunk #4955)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=sourceNodeID][@Type=ResourceURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #4951)"
$self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4952)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNodeID'
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=sourceNodeID][@Type=ResourceURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #4953)"
} = $given;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4954)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4956)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4958)"
}

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4960)"
}}
sub add_super_resource ($$) {
my ($self, $superRes) = @_;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4985)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4963)"
my 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4961)"
@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 #4962)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4964)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4979)"
local $Error::Depth = $Error::Depth + 1;

{
#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4977)"

#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4975)"

  for 
#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4965)"
my $from (@from) {
    for my $to (@to) {
      $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4966)"
get_resource
#line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4967)"

                              ($from)->{subOf}->{$to} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4968)"
1
#line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4969)"
;
      $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4970)"
get_resource
#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4971)"

                              ($to)->{supOf}->{$from} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4972)"
1
#line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4973)"
;
    }
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4974)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4976)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4978)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4980)"
}

#line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4983)"

#line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4981)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4982)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4984)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4986)"
}
}
sub pl_fully_qualified_name ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #5069)"
my ($self) = @_;
my $r = '';

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5067)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4987)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4988)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5061)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5059)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5015)"

  if 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4989)"
(exists $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4990)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#PerlCode.plFullyQualifiedName'
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4991)"
}) {
    $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4992)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/PerlCode#plFullyQualifiedName'
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4993)"
};
  } elsif ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4994)"
is_type_uri
#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4995)"

                      (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4996)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Class'
#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4997)"
) or
           $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4998)"
is_type_uri
#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4999)"

                      (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5000)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#IF'
#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5001)"
) or
           $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5002)"
is_type_uri
#line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5003)"

                      (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5004)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Perl#ScalarVariable'
#line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5005)"
)) {
    my $an_node = $self->{src}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5006)"
dis_get_attribute
#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5007)"

                      (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5008)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AppName'
#line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5009)"
, for_arg => $self->{for},
                       forp_arg => $self->{forp},
                       media_type => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5010)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl'
#line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5011)"
);
    if ($an_node) {
      ## NOTE: "lang:Perl" is fully-qualified name by definition
      $r = $an_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5012)"
value
#line 15 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5013)"
;
    } else {
      unless (defined $self->{localName}) {
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5014)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5016)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5027)"
local $Error::Depth = $Error::Depth - 1;

{
#line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5025)"

#line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5019)"

#line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5017)"

          
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5018)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5020)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $self->{src}, '-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_LOCAL_NAME_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' => 'pl_fully_qualified_name';

#line 22 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5023)"

#line 22 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5021)"
;
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5022)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5024)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5026)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5028)"
}

#line 23 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5057)"

#line 23 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5029)"
;
      }
      if ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5030)"
is_type_uri
#line 25 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5031)"

                      (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5032)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#IF'
#line 26 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5033)"
)) {
        $r = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5034)"
owner_module
#line 27 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5035)"

                  ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5036)"
pl_interface_name
#line 28 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5037)"

           . '::' . $self->{localName};
      } else {
        $r = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5038)"
owner_module
#line 31 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5039)"

                  ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5040)"
pl_fully_qualified_name
#line 32 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5041)"

           . '::' . $self->{localName};
      }
    }
  } elsif ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5042)"
is_type_uri
#line 36 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5043)"

                      (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5044)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Const'
#line 37 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5045)"
)) {
    $r = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5046)"
owner_module
#line 38 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5047)"

              ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5048)"
pl_fully_qualified_name
#line 39 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5049)"

       . '::' . $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5050)"
pl_name
#line 40 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5051)"
;
  } else {
    $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5052)"
undef
#line 42 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5053)"
;
  }
  $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5054)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/PerlCode#plFullyQualifiedName'
#line 44 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5055)"
} = $r;

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5056)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5058)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5060)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5062)"
}

#line 45 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5065)"

#line 45 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5063)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5064)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5066)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5068)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5070)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #5071)"
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' => 'pl_fully_qualified_name';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5072)"
}}
sub is_defined ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #5081)"
my ($self) = @_;
my $r = 0;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5079)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5077)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5073)"
$r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5074)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isDefined'
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5075)"
};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5076)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5078)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5080)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5082)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #5083)"
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' => 'is_defined';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5084)"
}}
sub pl_method_operator ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #5143)"
my ($self) = @_;
my $r = '';

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5141)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5085)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5086)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5135)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5133)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5111)"

  if 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5087)"
(exists $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5088)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Operator'
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5089)"
}) {
    $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5090)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Operator'
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5091)"
};
  } else {
    my $op_node = $self->{src}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5092)"
dis_get_attribute
#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5093)"

                     (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5094)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Operator'
#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5095)"
, for_arg => $self->{for},
                      forp_arg => $self->{forp});
    if ($op_node) {
      if ($op_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5096)"
media_type_match
#line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5097)"

                          (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5098)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl'
#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5099)"
, for_arg => $self->{for},
                           for_arg => $self->{forp})) {
        $r = $op_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5100)"
value
#line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5101)"
;
      } elsif ($op_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5102)"
media_type_match
#line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5103)"

                          (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5104)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TypeQName'
#line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5105)"
, for_arg => $self->{for},
                           for_arg => $self->{forp})) {
        $r = $op_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5106)"
qname_value_uri
#line 15 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5107)"
;
      } else {
        my $ct_uri = $op_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5108)"
media_type_uri
#line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5109)"

                             (for_arg => $self->{for},
                              forp_arg => $self->{forp});
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5110)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5112)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5123)"
local $Error::Depth = $Error::Depth - 1;

{
#line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5121)"

#line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5115)"

#line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5113)"

          
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5114)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5116)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $op_node, '-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/2005/manakai/Util/DIS#UNSUPPORTED_MEDIA_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' => 'pl_method_operator', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $ct_uri;

#line 25 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5119)"

#line 25 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5117)"
;
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5118)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5120)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5122)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5124)"
}

#line 26 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5131)"

#line 26 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5125)"
;
      }
    } else {
      $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5126)"
undef
#line 29 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5127)"
;
    }
    $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5128)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Operator'
#line 31 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5129)"
} = $r;
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5130)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5132)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5134)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5136)"
}

#line 33 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5139)"

#line 33 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5137)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5138)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5140)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5142)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5144)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #5145)"
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' => 'pl_method_operator';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5146)"
}}
sub _pl_add_require_resource ($$$) {
my ($self, $resourceArg, $codeArg) = @_;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAddRequireResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #5165)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAddRequireResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #5147)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5148)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5159)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAddRequireResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #5157)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAddRequireResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #5155)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAddRequireResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5149)"

  $codeArg->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5150)"
dis_add_require_uri
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAddRequireResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5151)"

              ($resourceArg->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5152)"
uri
#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAddRequireResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5153)"
);

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5154)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5156)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5158)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5160)"
}

#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAddRequireResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #5163)"

#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAddRequireResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5161)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5162)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5164)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5166)"
}
}
sub pl_code_fragment ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #6145)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #6143)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5167)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5168)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6137)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #6135)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5267)"

  if 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5169)"
(exists $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5170)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plCodeFragment'
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5171)"
}) {
    $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5172)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plCodeFragment'
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5173)"
};
  } elsif (not $self->{src}) {
    $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5174)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plCodeFragment'
#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5175)"
} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5176)"
undef
#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5177)"
;
  } elsif ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5178)"
is_type_uri
#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5179)"

                        (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5180)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#MethodReturn'
#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5181)"
) or
           $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5182)"
is_type_uri
#line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5183)"

                        (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5184)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#AttributeGet'
#line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5185)"
) or
           $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5186)"
is_type_uri
#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5187)"

                        (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5188)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#AttributeSet'
#line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5189)"
) or
           $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5190)"
is_type_uri
#line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5191)"

                        (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5192)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#BlockCode'
#line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5193)"
) or
           $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5194)"
is_type_uri
#line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5195)"

                        (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5196)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#InlineCode'
#line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5197)"
) or
           $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5198)"
is_type_uri
#line 15 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5199)"

                        (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5200)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#InputProcessor'
#line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5201)"
) or
           $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5202)"
is_type_uri
#line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5203)"

                        (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5204)"
'http://suika.fam.cx/~wakaba/archive/2004/dom/main#ReflectGet'
#line 18 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5205)"
) or
           $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5206)"
is_type_uri
#line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5207)"

                        (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5208)"
'http://suika.fam.cx/~wakaba/archive/2004/dom/main#ReflectSet'
#line 20 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5209)"
)) {
    $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5210)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plCodeFragment'
#line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5211)"
} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5212)"
undef
#line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5213)"
;  ## To avoid loop
    my $def = $self->{src}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5214)"
dis_get_attribute
#line 22 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5215)"

                        (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5216)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Def'
#line 23 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5217)"
, for_arg => $self->{for},
                         forp_arg => $self->{forp});
    my $is_inline = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5218)"
is_type_uri
#line 25 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5219)"

                        (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5220)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#InlineCode'
#line 26 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5221)"
) ? 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5222)"
1 : 
#line 26 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5223)"

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5224)"
0
#line 26 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5225)"
;
    unless ($def) {
      $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5226)"
undef
#line 28 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5227)"
;
    } elsif ($def->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5228)"
media_type_match
#line 29 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5229)"

                                    (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5230)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl'
#line 30 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5231)"
, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5232)"
undef
#line 30 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5233)"
,
                                     for_arg => $self->{for},
                                     forp_arg => $self->{forp})) {
      my $source_code = $def->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5234)"
value
#line 33 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5235)"
; 
      $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5236)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plCodeFragment'
#line 34 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5237)"
}
         = $is_inline
             ? $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5238)"
pl_preprocess_perl_statement
#line 36 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5239)"

                                   ($source_code,
                                    node => $def,
                                    contains_statements => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5240)"
0
#line 39 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5241)"
)
             : $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5242)"
pl_preprocess_perl_code
#line 40 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5243)"

                           ($source_code,
                            node => $def,
                            method_resource => 
                        $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5244)"
is_type_uri
#line 44 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5245)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5246)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#MethodReturn'
#line 44 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5247)"
)
                        ? $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5248)"
get_property_resource
#line 45 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5249)"

                                           (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5250)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#parentResource'
#line 46 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5251)"
)
                        : 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5252)"
undef
#line 47 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5253)"
);
    } elsif ($def->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5254)"
media_type_match
#line 48 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5255)"

                                     (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5256)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis'
#line 49 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5257)"
, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5258)"
undef
#line 49 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5259)"
,
                                      for_arg => $self->{for},
                                      forp_arg => $self->{forp})) {
      $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5260)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plCodeFragment'
#line 52 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5261)"
}
         = $def->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5262)"
pl_code_fragment
#line 53 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5263)"

                    ($self, for_arg => $self->{for},
                     forp_arg => $self->{forp},
                     contains_statements => not $is_inline); 
    } else {
      my $mt = $def->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5264)"
media_type_uri
#line 58 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5265)"

                           (for_arg => $self->{for},
                            forp_arg => $self->{forp});
      
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5266)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5268)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5279)"
local $Error::Depth = $Error::Depth - 1;

{
#line 67 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5277)"

#line 67 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5271)"

#line 67 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5269)"

        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5270)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5272)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $def, '-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/2005/manakai/Util/DIS#UNSUPPORTED_MEDIA_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' => 'pl_code_fragment', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $mt;

#line 71 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5275)"

#line 71 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5273)"
;
      
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5274)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5276)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5278)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5280)"
}

#line 72 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5295)"

#line 72 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5281)"
;
    } # media type
  } elsif ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5282)"
is_type_uri
#line 74 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5283)"

                        (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5284)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#Method'
#line 75 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5285)"
)) {
    $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5286)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plCodeFragment'
#line 76 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5287)"
} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5288)"
undef
#line 76 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5289)"
;  ## To avoid loop
    my $ret = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5290)"
get_child_resource_by_type
#line 77 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5291)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5292)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#MethodReturn'
#line 77 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5293)"
);
    unless ($ret) { 
      
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5294)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5296)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5307)"
local $Error::Depth = $Error::Depth - 1;

{
#line 80 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5305)"

#line 80 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5299)"

#line 80 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5297)"

        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5298)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5300)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $self->{src}, '-type' => 'INVALID_SOURCE_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#localName' => $self->{localName}, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#errResource' => $self, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_METHOD_RETURN_ERR', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $self->{uri}, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'pl_code_fragment';

#line 86 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5303)"

#line 86 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5301)"
;
      
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5302)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5304)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5306)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5308)"
}

#line 87 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5361)"

#line 87 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5309)"
;
    }
    my $plimpl = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5310)"
pl_implementation
#line 89 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5311)"
;
    $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5312)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plCodeFragment'
#line 90 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5313)"
}
       = $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5314)"
create_perl_sub
#line 91 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5315)"

                    ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5316)"
pl_name
#line 92 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5317)"
);
    
    ## Method parameters
    my $params = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5318)"
get_property_resource_list
#line 95 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5319)"

                                (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5320)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#childResource'
#line 96 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5321)"
);
    my @param_variables;
    my @named_param_variables;
    my $prototype = '$';
    my $is_optional_param = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5322)"
0
#line 100 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5323)"
;
    my $is_named_param = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5324)"
0
#line 101 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5325)"
;
    for my $param (@$params) {
      next unless $param->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5326)"
is_type_uri
#line 103 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5327)"

                                (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5328)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#MethodParameter'
#line 104 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5329)"
);
      unless ($is_named_param) {
        if ($param->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5330)"
get_property_boolean
#line 106 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5331)"

                         (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5332)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Perl#isNamedParameter'
#line 107 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5333)"
, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5334)"
0
#line 107 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5335)"
)) {
          $is_named_param = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5336)"
1
#line 108 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5337)"
;
          $is_optional_param = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5338)"
1
#line 109 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5339)"
;
          push @param_variables, ['%opt'];
          $prototype .= '%';
        } else {  ## Non-named parameter
          push @param_variables, [
            $param->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5340)"
pl_variable_name
#line 114 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5341)"
,
          ];
          if ($param->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5342)"
pl_is_nullable
#line 116 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5343)"
) {
            $prototype .= ';' unless $is_optional_param;
            $is_optional_param = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5344)"
1
#line 118 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5345)"
;
          }
          $prototype .= $param->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5346)"
pl_prototype
#line 120 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5347)"
;
          my $param_processor
                = $param->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5348)"
pl_get_method_input_normalizer
#line 122 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5349)"
;
          if ($param_processor) {
            $param_variables[-1]->[1]
                = $param_processor->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5350)"
pl_code_fragment
#line 125 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5351)"
->clone;
            $param_variables[-1]->[1]
                           ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5352)"
replace_variable
#line 127 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5353)"

                                 ('$INPUT' => $param_variables[-1]->[0]);
          }
        }
      } else { ## Named parameter
        unless ($param->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5354)"
get_property_boolean
#line 132 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5355)"

                              (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5356)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Perl#isNamedParameter'
#line 133 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5357)"
, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5358)"
0
#line 133 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5359)"
)) {
          
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5360)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5362)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5367)"
local $Error::Depth = $Error::Depth - 1;

{
#line 140 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5365)"

#line 140 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5363)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5364)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $param->{src}, '-type' => 'INVALID_SOURCE_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#localName' => $param->{localName}, '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#NON_NAMED_PARAMETER_AFTER_NAMED_ERR', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $param->{uri}, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'pl_code_fragment';

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5366)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5368)"
}

#line 144 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5489)"

#line 144 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5369)"
;
        }
      }
      if ($is_named_param) {
        push @named_param_variables, [
          $param->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5370)"
pl_variable_name
#line 149 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5371)"
,
          
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5372)"
undef
#line 150 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5373)"
,
          '$' . $param->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5374)"
local_name
#line 151 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5375)"
,
        ];
        my $param_processor
                = $param->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5376)"
pl_get_method_input_normalizer
#line 154 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5377)"
;
        if ($param_processor) {
          $named_param_variables[-1]->[1]
                = $param_processor->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5378)"
pl_code_fragment
#line 157 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5379)"
->clone;
          $named_param_variables[-1]->[1]
                           ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5380)"
replace_variable
#line 159 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5381)"

                                 ('$INPUT' => $param_variables[-1]->[0]);
        }
      }
    } # %$params
    
    $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5382)"
prototype
#line 165 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5383)"
 ($prototype);
    $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5384)"
append_code_fragment
#line 166 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5385)"

           ($plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5386)"
create_perl_statement
#line 167 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5387)"

                  ('my (' . join (', ', '$self',
                     map {$_->[0]} @param_variables) . ') = @_'));
    for my $p (@param_variables, @named_param_variables) {
      if ($p->[1]) {  ## Input processor
        $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5388)"
append_code_fragment
#line 172 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5389)"
 ($p->[1]);
      }
    }

    ## TODO: in/out
    
    ## Return value
    my $data_type;
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5390)"

#line 180 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5391)"
try {local $Error::Depth = $Error::Depth + 3;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5392)"

#line 180 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5393)"

      $data_type = $ret->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5394)"
dis_actual_data_type_resource
#line 181 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5395)"
;
    } catch 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5396)"
Message::Util::DIS::ManakaiDISException with 
#line 182 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5397)"
{
      my $err = shift;
      if ($err->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5398)"
'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype'
#line 184 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5399)"
} ne 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5400)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_DIS_TYPE_ERR'
#line 184 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5401)"
) {
        $err->throw;
      }
    };

    if ($data_type) {
      my $def = $ret->{src}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5402)"
pl_value_code_fragment
#line 190 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5403)"

                    (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5404)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--DefaultValue'
#line 191 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5405)"
, $self,
                     for_arg => $self->{for},
                     forp_arg => $self->{forp},
                     use_default_value => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5406)"
1
#line 194 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5407)"
,
                     data_type_uri => $data_type
                            ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5408)"
uri
#line 196 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5409)"
);
      my $rs = $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5410)"
create_perl_statement
#line 197 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5411)"
;
      my $rvar = $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5412)"
create_perl_variable
#line 198 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5413)"

                                       ('$', 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5414)"
undef
#line 199 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5415)"
, 'r');
      $rvar->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5416)"
variable_scope
#line 200 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5417)"
 ('my');
      if ($def) {
        $rs->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5418)"
append_new_assignment
#line 202 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5419)"
 ($rvar => $def);
      } else {
        $rs->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5420)"
append_code_fragment
#line 204 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5421)"
 ($rvar);
      }
      $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5422)"
append_code_fragment
#line 206 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5423)"
 ($rs);
    }

    my $code = $ret->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5424)"
pl_code_fragment
#line 209 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5425)"
;
    if ($code) {
      for my $np (@named_param_variables) {
        $code->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5426)"
replace_variable
#line 212 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5427)"

                     ($np->[2] => $np->[0]);
      }
      $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5428)"
append_code_fragment
#line 215 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5429)"
 ($code);

      $ret->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5430)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plDefined'
#line 217 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5431)"
} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5432)"
1
#line 217 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5433)"
;
      $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5434)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plDefined'
#line 218 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5435)"
} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5436)"
1
#line 218 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5437)"
;
    } else {  ## Method code not defined
      my $cls = $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5438)"
get_resource
#line 220 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5439)"

                                      (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5440)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#CoreException'
#line 221 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5441)"
,
                                       for_arg => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5442)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Perl'
#line 222 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5443)"
);
      my $const = $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5444)"
get_resource
#line 223 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5445)"

                                  (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5446)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#NOT_SUPPORTED_ERR'
#line 224 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5447)"
,
                                       for_arg => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5448)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Perl'
#line 225 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5449)"
);
      my $subtype = $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5450)"
get_resource
#line 226 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5451)"

                          (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5452)"
'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_IMPL_METHOD_NOT_IMPLEMENTED'
#line 227 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5453)"
,
                                       for_arg => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5454)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Perl'
#line 228 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5455)"
);
      $_->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5456)"
is_referred
#line 229 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5457)"

                       ($ret->{src}) for $cls, $const, $subtype;
      my $context_param = $ret->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5458)"
_pl_get_context_parameter
#line 231 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5459)"
;
      $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5460)"
_pl_append_throw
#line 232 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5461)"

                       ($r, $cls, $const, $subtype,
                        {%$context_param});
      $ret->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5462)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plDefined'
#line 235 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5463)"
} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5464)"
0
#line 235 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5465)"
;
      $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5466)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plDefined'
#line 236 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5467)"
} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5468)"
0
#line 236 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5469)"
;
    }

    if ($data_type) {
      $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5470)"
append_code_fragment
#line 240 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5471)"

             ($plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5472)"
create_perl_variable
#line 241 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5473)"

                                       ('$', 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5474)"
undef
#line 242 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5475)"
, 'r'));
    }
  } elsif ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5476)"
is_type_uri
#line 244 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5477)"

                        (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5478)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#Attribute'
#line 245 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5479)"
)) {  
    $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5480)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plCodeFragment'
#line 246 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5481)"
} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5482)"
undef
#line 246 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5483)"
;  ## To avoid loop
    my $get = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5484)"
get_child_resource_by_type
#line 247 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5485)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5486)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#AttributeGet'
#line 247 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5487)"
);
    unless ($get) { 
      
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5488)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5490)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5501)"
local $Error::Depth = $Error::Depth - 1;

{
#line 257 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5499)"

#line 257 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5493)"

#line 257 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5491)"

        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5492)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5494)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $self->{src}, '-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_ATTR_GET_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#errResource' => $self, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'pl_code_fragment';

#line 261 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5497)"

#line 261 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5495)"
;
      
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5496)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5498)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5500)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5502)"
}

#line 262 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5571)"

#line 262 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5503)"
;
    }
    my $da; ## Reflecting element attribute
    my $plimpl = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5504)"
pl_implementation
#line 265 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5505)"
;
    my $data_type = $get->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5506)"
dis_actual_data_type_resource
#line 266 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5507)"
;
    my $get_code = $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5508)"
create_perl_block_container
#line 267 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5509)"
;
    $get_code->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5510)"
append_statement
#line 268 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5511)"
 (q<my ($self) = @_>);
    my $code = $get->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5512)"
pl_code_fragment
#line 269 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5513)"
;
    unless ($code) {
      $da = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5514)"
get_property_resource
#line 271 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5515)"

                         (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5516)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--DocAttr'
#line 272 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5517)"
,
                          default_media_type => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5518)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#TFPQNames'
#line 273 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5519)"
);
      if ($da) {  ## Reflecting an element attribute
        my $data_type_node = $get->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5520)"
dis_actual_data_type_node
#line 275 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5521)"
;
        my $daget_node = $data_type_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5522)"
dis_get_attribute
#line 276 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5523)"

                                       (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5524)"
'http://suika.fam.cx/~wakaba/archive/2004/dom/main#reflectGet'
#line 277 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5525)"
,
                                        for_arg => $get->{for},
                                        forp_arg => $get->{forp},
                                        media_type => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5526)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TFQNames'
#line 280 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5527)"
);
        ## TODO: More work might be required for 
        ##       default values for element attributes.
        my $daget;
        if ($daget_node) {
          $daget = $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5528)"
get_resource
#line 285 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5529)"

                    ($daget_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5530)"
tfqnames_value_uri
#line 286 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5531)"

                     (for_arg => $get->{for}, forp_arg => $get->{forp}));
        } else {
          $daget = $data_type->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5532)"
get_child_resource_by_type
#line 289 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5533)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5534)"
'http://suika.fam.cx/~wakaba/archive/2004/dom/main#ReflectGet'
#line 289 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5535)"
);
        }
        if ($daget) {
          $code = $daget->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5536)"
pl_code_fragment
#line 292 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5537)"
->clone;
          my $ln = $da->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5538)"
mv_local_name
#line 293 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5539)"
;
          my $pfx = $da->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5540)"
mv_prefix
#line 294 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5541)"
;
          $pfx = defined $pfx ? $pfx . ':' : '';
          $code->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5542)"
replace_variable
#line 296 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5543)"

                 ('$LOCAL_NAME' => $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5544)"
create_perl_string_literal
#line 297 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5545)"
 ($ln));
          $code->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5546)"
replace_variable
#line 298 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5547)"

                 ('$QNAME' => $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5548)"
create_perl_string_literal
#line 299 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5549)"
 ($pfx.$ln));
          $code->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5550)"
replace_variable
#line 300 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5551)"

                 ('$PREFIX' => $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5552)"
create_perl_string_literal
#line 301 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5553)"
 ($pfx));
          my $nsuri = $da->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5554)"
mv_namespace_uri
#line 302 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5555)"
;
          $code->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5556)"
replace_variable
#line 303 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5557)"

                 ('$NS_URI' => defined $nsuri
                               ? $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5558)"
create_perl_string_literal
#line 305 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5559)"
 ($nsuri)
                               : $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5560)"
create_perl_atom
#line 306 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5561)"
 ('undef'));
          $code->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5562)"
replace_variable
#line 307 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5563)"

                 ('$NS_URI_NO_NULL' => defined $nsuri
                               ? $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5564)"
create_perl_string_literal
#line 309 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5565)"
 ($nsuri)
                               : $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5566)"
create_perl_string_literal
#line 310 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5567)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5568)"
'http://suika.fam.cx/~wakaba/-temp/2003/09/27/null'
#line 310 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5569)"
));
        } else {
          
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5570)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5572)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5577)"
local $Error::Depth = $Error::Depth - 1;

{
#line 326 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5575)"

#line 326 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5573)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5574)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $self->{src}, '-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_REFLECT_GET_DEFINED_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' => 'pl_code_fragment', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $data_type->{uri};

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5576)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5578)"
}

#line 329 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5709)"

#line 329 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5579)"
;
        }
      }
    }
    if ($code) {
      ## Default value
      my $def = $get->{src}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5580)"
pl_value_code_fragment
#line 335 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5581)"

                    (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5582)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--DefaultValue'
#line 336 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5583)"
, $self,
                     for_arg => $self->{for},
                     forp_arg => $self->{forp},
                     use_default_value => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5584)"
1
#line 339 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5585)"
,
                     data_type_uri => $data_type
                            ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5586)"
uri
#line 341 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5587)"
);
      my $rs = $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5588)"
create_perl_statement
#line 342 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5589)"
;
      my $rvar = $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5590)"
create_perl_variable
#line 343 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5591)"

                                       ('$', 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5592)"
undef
#line 344 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5593)"
, 'r');
      $rvar->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5594)"
variable_scope
#line 345 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5595)"
 ('my');
      if ($def) {
        $rs->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5596)"
append_new_assignment
#line 347 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5597)"
 ($rvar => $def);
      } else {
        $rs->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5598)"
append_code_fragment
#line 349 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5599)"
 ($rvar);
      }
      $get_code->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5600)"
append_code_fragment
#line 351 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5601)"
 ($rs);

      ## Main code
      $get_code->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5602)"
append_code_fragment
#line 354 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5603)"
 ($code);

      ## Return value
      $get_code->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5604)"
append_statement
#line 357 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5605)"
 (q<$r>);

      $get->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5606)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plDefined'
#line 359 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5607)"
} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5608)"
1
#line 359 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5609)"
;
    } else {  ## Getter code not defined
      my $cls = $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5610)"
get_resource
#line 361 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5611)"

                                      (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5612)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#CoreException'
#line 362 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5613)"
,
                                       for_arg => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5614)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Perl'
#line 363 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5615)"
);
      my $const = $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5616)"
get_resource
#line 364 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5617)"

                                  (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5618)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#NOT_SUPPORTED_ERR'
#line 365 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5619)"
,
                                       for_arg => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5620)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Perl'
#line 366 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5621)"
);
      my $subtype = $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5622)"
get_resource
#line 367 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5623)"

                            (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5624)"
'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_IMPL_ATTR_NOT_IMPLEMENTED'
#line 368 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5625)"
,
                                       for_arg => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5626)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Perl'
#line 369 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5627)"
);
      $_->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5628)"
is_referred
#line 370 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5629)"

                       ($get->{src}) for $cls, $const, $subtype;
      my $context_param = $get->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5630)"
_pl_get_context_parameter
#line 372 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5631)"
;
      $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5632)"
_pl_append_throw
#line 373 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5633)"

                       ($get_code, $cls, $const, $subtype,
                        {%$context_param});
      $get->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5634)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plDefined'
#line 376 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5635)"
} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5636)"
0
#line 376 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5637)"
;
      $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5638)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plDefined'
#line 377 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5639)"
} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5640)"
0
#line 377 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5641)"
;
    }

    my $set = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5642)"
get_child_resource_by_type
#line 380 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5643)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5644)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#AttributeSet'
#line 380 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5645)"
);
    my $set_code = $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5646)"
create_perl_block_container
#line 381 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5647)"
;
    if ($set) {
      my $data_type = $set->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5648)"
dis_actual_data_type_resource
#line 383 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5649)"
;
      my $code = $set->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5650)"
pl_code_fragment
#line 384 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5651)"
;
      unless ($code) {
        $da ||= $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5652)"
get_property_resource
#line 386 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5653)"

                         (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5654)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--DocAttr'
#line 387 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5655)"
,
                          default_media_type => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5656)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#TFPQNames'
#line 388 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5657)"
);
        if ($da) {  ## Reflecting an element attribute
          my $data_type_node = $set->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5658)"
dis_actual_data_type_node
#line 390 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5659)"
;
          my $daset_node = $data_type_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5660)"
dis_get_attribute
#line 391 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5661)"

                                       (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5662)"
'http://suika.fam.cx/~wakaba/archive/2004/dom/main#reflectSet'
#line 392 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5663)"
,
                                        for_arg => $set->{for},
                                        forp_arg => $set->{forp},
                                        media_type => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5664)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TFQNames'
#line 395 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5665)"
);
          my $daset;
          if ($daset_node) {
            $daset = $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5666)"
get_resource
#line 398 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5667)"

                    ($daset_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5668)"
tfqnames_value_uri
#line 399 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5669)"

                     (for_arg => $set->{for}, forp_arg => $set->{forp}));
          } else {
            $daset = $data_type->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5670)"
get_child_resource_by_type
#line 402 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5671)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5672)"
'http://suika.fam.cx/~wakaba/archive/2004/dom/main#ReflectSet'
#line 402 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5673)"
);
          }
          if ($daset) {
            $code = $daset->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5674)"
pl_code_fragment
#line 405 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5675)"
->clone;
            my $ln = $da->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5676)"
mv_local_name
#line 406 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5677)"
;
            my $pfx = $da->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5678)"
mv_prefix
#line 407 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5679)"
;
            $pfx = defined $pfx ? $pfx . ':' : '';
            $code->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5680)"
replace_variable
#line 409 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5681)"

                 ('$LOCAL_NAME' => $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5682)"
create_perl_string_literal
#line 410 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5683)"
 ($ln));
            $code->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5684)"
replace_variable
#line 411 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5685)"

                 ('$QNAME' => $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5686)"
create_perl_string_literal
#line 412 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5687)"
 ($pfx.$ln));
            $code->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5688)"
replace_variable
#line 413 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5689)"

                 ('$PREFIX' => $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5690)"
create_perl_string_literal
#line 414 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5691)"
 ($pfx));
            my $nsuri = $da->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5692)"
mv_namespace_uri
#line 415 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5693)"
;
            $code->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5694)"
replace_variable
#line 416 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5695)"

                 ('$NS_URI' => defined $nsuri
                               ? $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5696)"
create_perl_string_literal
#line 418 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5697)"
 ($nsuri)
                               : $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5698)"
create_perl_atom
#line 419 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5699)"
 ('undef'));
            $code->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5700)"
replace_variable
#line 420 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5701)"

                 ('$NS_URI_NO_NULL' => defined $nsuri
                               ? $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5702)"
create_perl_string_literal
#line 422 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5703)"
 ($nsuri)
                               : $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5704)"
create_perl_string_literal
#line 423 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5705)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5706)"
'http://suika.fam.cx/~wakaba/-temp/2003/09/27/null'
#line 423 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5707)"
));
          } else {
            
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5708)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5710)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5715)"
local $Error::Depth = $Error::Depth - 1;

{
#line 444 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5713)"

#line 444 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5711)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5712)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $self->{src}, '-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_REFLECT_SET_DEFINED_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' => 'pl_code_fragment', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $data_type->{uri};

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5714)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5716)"
}

#line 447 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5905)"

#line 447 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5717)"
;
          }
        }
      }
      if ($code) {
        ## Input
        $set_code->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5718)"
append_statement
#line 453 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5719)"

                      (q<my ($self, $given) = @_>);
        my $param_processor
                = $set->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5720)"
pl_get_method_input_normalizer
#line 456 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5721)"
;
        if ($param_processor) {
          my $pcode = $param_processor->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5722)"
pl_code_fragment
#line 458 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5723)"
->clone;
          $pcode->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5724)"
replace_variable
#line 459 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5725)"

                                           ('$INPUT' => '$given');
          $set_code->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5726)"
append_code_fragment
#line 461 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5727)"
 ($pcode);
        }

        ## Main code
        $set_code->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5728)"
append_code_fragment
#line 465 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5729)"
 ($code);

        $set->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5730)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plDefined'
#line 467 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5731)"
} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5732)"
1
#line 467 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5733)"
;
        $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5734)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plDefined'
#line 468 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5735)"
} = $get->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5736)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plDefined'
#line 468 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5737)"
};
      } else { ## Setter code not defined
        $set_code->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5738)"
append_statement
#line 470 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5739)"

                                      (q<my ($self) = @_>);
        my $cls = $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5740)"
get_resource
#line 472 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5741)"

                                      (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5742)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#CoreException'
#line 473 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5743)"
,
                                       for_arg => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5744)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Perl'
#line 474 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5745)"
);
        my $const = $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5746)"
get_resource
#line 475 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5747)"

                                  (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5748)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#NOT_SUPPORTED_ERR'
#line 476 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5749)"
,
                                       for_arg => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5750)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Perl'
#line 477 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5751)"
);
        my $subtype = $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5752)"
get_resource
#line 478 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5753)"

                            (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5754)"
'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_IMPL_ATTR_NOT_IMPLEMENTED'
#line 479 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5755)"
,
                                       for_arg => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5756)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Perl'
#line 480 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5757)"
);
        $_->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5758)"
is_referred
#line 481 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5759)"

                       ($set->{src}) for $cls, $const, $subtype;
        my $context_param = $get->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5760)"
_pl_get_context_parameter
#line 483 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5761)"
;
        $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5762)"
_pl_append_throw
#line 484 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5763)"

                       ($set_code, $cls, $const, $subtype,
                        {%$context_param});
        $set->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5764)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plDefined'
#line 487 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5765)"
} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5766)"
0
#line 487 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5767)"
;
        $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5768)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plDefined'
#line 488 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5769)"
} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5770)"
0
#line 488 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5771)"
;
      }
    } else {  ## No attribute setter
      $set_code->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5772)"
append_statement
#line 491 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5773)"
 (q<my ($self) = @_>);
      my $cls = $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5774)"
get_resource
#line 492 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5775)"

                                      (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5776)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#CoreException'
#line 493 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5777)"
,
                                       for_arg => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5778)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Perl'
#line 494 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5779)"
);
      my $const = $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5780)"
get_resource
#line 495 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5781)"

                        (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5782)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#NO_MODIFICATION_ALLOWED_ERR'
#line 496 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5783)"
,
                                       for_arg => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5784)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Perl'
#line 497 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5785)"
);
      my $subtype = $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5786)"
get_resource
#line 498 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5787)"

                            (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5788)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR'
#line 499 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5789)"
,
                                       for_arg => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5790)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Perl'
#line 500 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5791)"
);
      $_->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5792)"
is_referred
#line 501 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5793)"

                       ($self->{src}) for $cls, $const, $subtype;
      my $context_param = $get->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5794)"
_pl_get_context_parameter
#line 503 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5795)"
;
      $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5796)"
_pl_append_throw
#line 504 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5797)"

                       ($set_code, $cls, $const, $subtype,
                        {%$context_param});
      $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5798)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plDefined'
#line 507 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5799)"
} = $get->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5800)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plDefined'
#line 507 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5801)"
};
    }

    $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5802)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plCodeFragment'
#line 510 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5803)"
}
       = $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5804)"
create_perl_sub
#line 511 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5805)"

                    ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5806)"
pl_name
#line 512 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5807)"
);
    $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5808)"
prototype
#line 513 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5809)"
 (q<$;$>);

    ## TODO: Don't output "if" if non-debug build
    
    $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5810)"
append_new_if
#line 517 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5811)"

             ($plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5812)"
create_perl_inline_unparsed_code
#line 518 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5813)"

                                (q<@_ == 1>),
              $get_code,
              $set_code);

  ## -- Constants
  } elsif ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5814)"
is_type_uri
#line 524 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5815)"

                      (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5816)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Const'
#line 525 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5817)"
)) {
    my $data_type = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5818)"
dis_actual_data_type_resource
#line 526 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5819)"
;
    my $value = $self->{src}
                     ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5820)"
pl_value_code_fragment
#line 528 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5821)"

                      (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5822)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Value'
#line 529 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5823)"
, $self,
                       for_arg => $self->{for},
                       forp_arg => $self->{forp},
                       data_type_uri => $data_type
                            ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5824)"
uri
#line 533 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5825)"
);
    my $plimpl = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5826)"
pl_implementation
#line 534 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5827)"
;
    $r = $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5828)"
create_perl_sub
#line 535 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5829)"

                    ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5830)"
pl_name
#line 536 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5831)"
);
    $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5832)"
append_code_fragment
#line 537 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5833)"
 ($value);
    $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5834)"
prototype
#line 538 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5835)"
 ('');

  ## -- Classes
  } elsif ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5836)"
is_type_uri
#line 541 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5837)"

                      (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5838)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Class'
#line 542 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5839)"
)) {
    my $plimpl = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5840)"
pl_implementation
#line 543 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5841)"
;
    $r = $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5842)"
create_perl_package
#line 544 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5843)"

                      ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5844)"
pl_fully_qualified_name
#line 545 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5845)"
);
    ## - Inheritance
    for my $scls (@{$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5846)"
get_property_resource_list
#line 547 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5847)"

                            (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5848)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ISA'
#line 548 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5849)"
,
                             default_media_type => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5850)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TFQNames'
#line 549 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5851)"
)}) {
      my $spack_name = $scls->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5852)"
pl_fully_qualified_name
#line 550 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5853)"
;
      if (defined $spack_name) {
        $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5854)"
add_isa_package
#line 552 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5855)"
 ($spack_name);
      }
      $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5856)"
_pl_add_require_resource
#line 554 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5857)"

                  ($scls => $r);
    }

    ## dis:AppISA packages
    for my $spack_name (@{
      $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5858)"
pl_additional_isa_packages
#line 560 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5859)"

    }) {
      $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5860)"
add_isa_package
#line 562 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5861)"
 ($spack_name);
      $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5862)"
add_require_perl_module_name
#line 563 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5863)"

                                      ($spack_name);                     
    }

    ## - Implementing interfaces
    for my $scls (@{$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5864)"
get_property_resource_list
#line 568 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5865)"

                            (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5866)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Implement'
#line 569 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5867)"
, recursive_isa => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5868)"
1
#line 569 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5869)"
,
                             default_media_type => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5870)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TFQNames'
#line 570 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5871)"
)}) {
      my $spack_name = $scls->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5872)"
pl_fully_qualified_name
#line 571 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5873)"
;
      if (defined $spack_name) {
        $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5874)"
add_implement_package
#line 573 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5875)"
 ($spack_name);
      }
    }

    ## - Class members
    my @cr = @{$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5876)"
get_property_resource_list
#line 578 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5877)"

                            (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5878)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#childResource'
#line 579 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5879)"
)};
    my @const;
    for my $cr (@cr) {
      ## - Subroutines
      if ($cr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5880)"
is_type_uri
#line 583 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5881)"

                            (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5882)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#Method'
#line 584 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5883)"
) or
          $cr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5884)"
is_type_uri
#line 585 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5885)"

                            (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5886)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#Attribute'
#line 586 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5887)"
)) {
        my $is_attr = $cr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5888)"
is_type_uri
#line 587 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5889)"

                            (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5890)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#Attribute'
#line 588 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5891)"
) ? 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5892)"
1 : 
#line 588 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5893)"

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5894)"
0
#line 588 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5895)"
;
        my $pname = $cr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5896)"
pl_name
#line 589 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5897)"
;
        my $op = $cr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5898)"
pl_method_operator
#line 590 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5899)"
;
        my $psub = $cr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5900)"
pl_code_fragment
#line 591 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5901)"
->clone;
        if (defined $pname) {
          if ($r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5902)"
get_sub
#line 593 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5903)"
 ($pname)) {
            
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5904)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5906)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5911)"
local $Error::Depth = $Error::Depth - 1;

{
#line 611 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5909)"

#line 611 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5907)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5908)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $cr->{src}, '-type' => 'INVALID_SOURCE_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#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#PERL_SUBROUTINE_ALREADY_DEFINED_ERR', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $cr->{uri}, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'pl_code_fragment', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/PerlCode#localName' => $pname;

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5910)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5912)"
}

#line 615 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5921)"

#line 615 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5913)"
;
          }
          $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5914)"
set_sub
#line 617 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5915)"
 ($pname => $psub);
  
          if (defined $op and
              defined $cr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5916)"
local_name
#line 620 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5917)"
) {
            if ($op =~ /^[A-Z]+$/) {
              if ($r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5918)"
get_sub_alias_name
#line 622 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5919)"
 ($op)) {
                
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5920)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5922)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5927)"
local $Error::Depth = $Error::Depth - 1;

{
#line 624 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5925)"

#line 624 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5923)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5924)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $cr->{src}, '-type' => 'INVALID_SOURCE_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#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#PERL_SUBROUTINE_ALREADY_DEFINED_ERR', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $cr->{uri}, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'pl_code_fragment', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/PerlCode#localName' => $op;

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5926)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5928)"
}

#line 629 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5935)"

#line 629 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5929)"
;
              }
              $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5930)"
set_sub_alias_name
#line 631 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5931)"
 ($op => $pname);
            } else {
              if ($r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5932)"
get_overload_method_name
#line 633 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5933)"
 ($op)) {
                
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5934)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5936)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5941)"
local $Error::Depth = $Error::Depth - 1;

{
#line 634 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5939)"

#line 634 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5937)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5938)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $cr->{src}, '-type' => 'INVALID_SOURCE_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/PerlCode#operator' => $op, '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#PERL_OPERATOR_ALREADY_OVERLOADED_ERR', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $cr->{uri}, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'pl_code_fragment';

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5940)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5942)"
}

#line 639 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5949)"

#line 639 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5943)"
;
              }
              $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5944)"
set_overload_method_name
#line 641 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5945)"
 ($op => $pname);
            }
          }
        } elsif (defined $op) {
          $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5946)"
set_overload_sub
#line 645 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5947)"
 ($op => $psub);
        } else {
          
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5948)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5950)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5955)"
local $Error::Depth = $Error::Depth - 1;

{
#line 647 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5953)"

#line 647 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5951)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5952)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $cr->{src}, '-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#PERL_UNUSED_SUBROUTINE_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' => 'pl_code_fragment', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $cr->{uri};

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5954)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5956)"
}

#line 650 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5977)"

#line 650 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5957)"
;
        }
      ## - Constant groups
      } elsif ($cr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5958)"
is_type_uri
#line 653 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5959)"

                        (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5960)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ConstGroup'
#line 654 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5961)"
)) {
        for my $gcr (@{$cr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5962)"
get_property_resource_list
#line 655 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5963)"

                            (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5964)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#childResource'
#line 656 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5965)"
)}) {
          if ($gcr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5966)"
is_type_uri
#line 657 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5967)"

                        (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5968)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Const'
#line 658 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5969)"
)) {
            my $sub = $gcr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5970)"
pl_code_fragment
#line 659 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5971)"
;
            if ($r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5972)"
get_sub
#line 660 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5973)"
 ($sub->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5974)"
local_name
#line 660 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5975)"
)) {
              
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5976)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5978)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5983)"
local $Error::Depth = $Error::Depth - 1;

{
#line 663 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5981)"

#line 663 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5979)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5980)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $gcr->{src}, '-type' => 'INVALID_SOURCE_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#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#PERL_SUBROUTINE_ALREADY_DEFINED_ERR', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $gcr->{uri}, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'pl_code_fragment', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/PerlCode#localName' => $sub->local_name;

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5982)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5984)"
}

#line 668 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6001)"

#line 668 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5985)"
;
            }
            $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5986)"
set_sub
#line 670 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5987)"

                     ($sub->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5988)"
local_name
#line 671 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5989)"
 => $sub);
            push @const, $gcr;
          }
        }
      ## - Constants
      } elsif ($cr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5990)"
is_type_uri
#line 676 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5991)"

                        (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5992)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Const'
#line 677 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5993)"
)) {
        my $sub = $cr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5994)"
pl_code_fragment
#line 678 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5995)"
;
        if ($r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5996)"
get_sub
#line 679 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5997)"
 ($sub->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5998)"
local_name
#line 679 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5999)"
)) {
          
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6000)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6002)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6007)"
local $Error::Depth = $Error::Depth - 1;

{
#line 680 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #6005)"

#line 680 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6003)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6004)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $cr->{src}, '-type' => 'INVALID_SOURCE_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#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#PERL_SUBROUTINE_ALREADY_DEFINED_ERR', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $cr->{uri}, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'pl_code_fragment', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/PerlCode#localName' => $sub->local_name;

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6006)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6008)"
}

#line 685 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6133)"

#line 685 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6009)"
;
        }
        $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6010)"
set_sub
#line 687 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6011)"
 ($sub->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6012)"
local_name
#line 687 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6013)"
 => $sub);
        push @const, $cr;
      ## Package-scope variables
      } elsif ($cr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6014)"
is_type_uri
#line 690 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6015)"

                        (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6016)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Perl#ScalarVariable'
#line 691 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6017)"
)) {
        my $varn = $cr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6018)"
pl_variable_name
#line 692 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6019)"
;
        my $var = $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6020)"
create_perl_variable
#line 693 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6021)"

                                               (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6022)"
undef
#line 694 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6023)"
, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6024)"
undef
#line 694 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6025)"
, $varn);
        my $data_type = $cr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6026)"
dis_actual_data_type_resource
#line 695 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6027)"
;
        my $value = $cr->{src}
                     ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6028)"
pl_value_code_fragment
#line 697 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6029)"

                      (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6030)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--DefaultValue'
#line 698 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6031)"
, $cr,
                       for_arg => $cr->{for},
                       forp_arg => $cr->{forp},
                       use_default_value => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6032)"
1
#line 701 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6033)"
,
                       data_type_uri => $data_type
                            ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6034)"
uri
#line 703 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6035)"
);
        if ($cr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6036)"
get_property_boolean
#line 704 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6037)"

                      (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6038)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Perl#defaultValueHasSelfReference'
#line 705 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6039)"
)) {
          $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6040)"
append_statement
#line 706 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6041)"

            ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6042)"
append_code_fragment
#line 707 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6043)"
 (my $v = $var->clone);
          $v->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6044)"
variable_scope
#line 708 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6045)"
 ('our');
        } else {
          $var->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6046)"
variable_scope
#line 710 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6047)"
 ('our');
        }
        $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6048)"
append_statement
#line 712 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6049)"

          ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6050)"
append_new_assignment
#line 713 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6051)"
 ($var => $value);
      } # Type of child resources
    }

    ## - Exceptions
    if ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6052)"
is_type_uri
#line 718 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6053)"

                     (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6054)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#AnyExceptionClass'
#line 719 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6055)"
)) {
      my $err_def = $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6056)"
create_perl_sub
#line 720 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6057)"
 ('___error_def');
      $err_def->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6058)"
prototype
#line 721 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6059)"
 ('');
      $err_def->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6060)"
append_code
#line 722 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6061)"

         ($plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6062)"
perl_list
#line 723 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6063)"

           ([{
               map {
                 $_->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6064)"
pl_name
#line 726 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6065)"
 => {
                   
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6066)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#code'
#line 727 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6067)"
 => 0 + $_
                     ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6068)"
pl_code_fragment
#line 728 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6069)"
,
                   description => $_
               ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6070)"
_pl_muf_description_text
#line 730 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6071)"
,
                   
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6072)"
'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype'
#line 731 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6073)"
 => {
                     map {
                       $_->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6074)"
name_uri
#line 733 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6075)"

                       => {
                         description => $_
               ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6076)"
_pl_muf_description_text
#line 736 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6077)"
,
                       },
                     } grep {
                       $_->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6078)"
is_type_uri
#line 739 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6079)"

                            (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6080)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ExceptionOrWarningSubType'
#line 740 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6081)"
)
                     } @{$_->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6082)"
get_property_resource_list
#line 741 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6083)"

                            (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6084)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#childResource'
#line 742 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6085)"
)}
                   },
                 },
               } @const
            }]));
      $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6086)"
set_sub
#line 747 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6087)"
 (___error_def => $err_def);
    }

  ## -- Global variables
  } elsif ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6088)"
is_type_uri
#line 751 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6089)"

                             (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6090)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Perl#ScalarVariable'
#line 752 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6091)"
)) {
    my $plimpl = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6092)"
pl_implementation
#line 753 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6093)"
;
    my $varn = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6094)"
pl_variable_name
#line 754 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6095)"
;
    my $var = $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6096)"
create_perl_variable
#line 755 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6097)"

                                               (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6098)"
undef
#line 756 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6099)"
, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6100)"
undef
#line 756 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6101)"
, $varn);
    my $data_type = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6102)"
dis_actual_data_type_resource
#line 757 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6103)"
;
    my $value = $self->{src}
                     ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6104)"
pl_value_code_fragment
#line 759 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6105)"

                      (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6106)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--DefaultValue'
#line 760 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6107)"
, $self,
                       for_arg => $self->{for},
                       forp_arg => $self->{forp},
                       use_default_value => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6108)"
1
#line 763 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6109)"
,
                       data_type_uri => $data_type
                            ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6110)"
uri
#line 765 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6111)"
);
    $r = $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6112)"
create_perl_statement
#line 766 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6113)"
;
    $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6114)"
append_new_assignment
#line 767 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6115)"
 ($var => $value);

  ## -- Cases
  } elsif ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6116)"
is_type_uri
#line 770 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6117)"

                      (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6118)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#InCase'
#line 771 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6119)"
)) {
    my $data_type = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6120)"
dis_actual_data_type_resource
#line 772 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6121)"
;
    $r = $self->{src}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6122)"
pl_value_code_fragment
#line 773 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6123)"

                      (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6124)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Value'
#line 774 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6125)"
, $self,
                       for_arg => $self->{for},
                       forp_arg => $self->{forp},
                       data_type_uri => $data_type
                            ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6126)"
uri
#line 778 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6127)"
);

  ## -- Unsupported types
  } else {
    $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6128)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plCodeFragment'
#line 782 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6129)"
} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6130)"
undef
#line 782 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6131)"
;
  } # rdf:type

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6132)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6134)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6136)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6138)"
}

#line 792 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6141)"

#line 792 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6139)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6140)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6142)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6144)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6146)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #6147)"
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' => 'pl_code_fragment';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6148)"
}}
sub pl_preprocess_perl_code ($$%) {
my ($self, $codeArg, %opt) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6481)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6151)"
unless 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6149)"
($self->{src}) {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6150)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6152)"
report Message::Util::DIS::ManakaiDISException -object => $self, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'pl_preprocess_perl_code', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_SOURCE_NODE_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 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6155)"

#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6153)"
;
}

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6154)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6156)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6475)"
local $Error::Depth = $Error::Depth + 1;

{
#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6473)"

#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6219)"

  our 
#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6157)"
$RegQNameChar;
  our $RegBlockContent;
  my $plimpl = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6158)"
pl_implementation
#line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6159)"
;
  $r = $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6160)"
create_perl_block
#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6161)"
;
  if (defined $opt{source_line}) {
    $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6162)"
source_file
#line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6163)"
 ($opt{source_file});
    $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6164)"
source_line
#line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6165)"
 ($opt{source_line});
    $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6166)"
current_source_file
#line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6167)"
 ($opt{source_file});
    $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6168)"
current_source_line
#line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6169)"
 ($opt{source_line});
  } elsif ($opt{node}) {
    my $np = $opt{node}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6170)"
node_path
#line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6171)"

              (key => [qw/Name QName Type type/]);
    $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6172)"
current_source_file
#line 18 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6173)"
 ($np);
    $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6174)"
current_source_line
#line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6175)"
 (1);
    $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6176)"
source_file
#line 20 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6177)"
 ($np);
    $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6178)"
source_line
#line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6179)"
 (1);
  }
  
  for my $source_code (split /\b(_ _(?:(?!_ _)$RegQNameChar)+
                                   (?:\{$RegBlockContent\})?
                                 _ _)\b/x, $codeArg) {
    ## Block-level element
    if ($source_code =~ /_\_\z/ and
        $source_code =~ s/^_\_((?:(?!_\_)$RegQNameChar)+)//) {
      my $et = $self->{src}
                    ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6180)"
qname_to_uri
#line 31 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6181)"

                             ($1,
                              node => $opt{node},
                              default_namespace_uri => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6182)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--'
#line 34 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6183)"
);
      if ($source_code =~ s/^\{//) {
        $source_code =~ s/\}__\z//;
      } else {
        $source_code = '';
      }


      if ($et eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6184)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--DEEP' or 
#line 42 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6185)"
$et eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6186)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--UNDEEP'
#line 42 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6187)"
) {
        my $block = $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6188)"
append_block
#line 43 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6189)"
;
        $block->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6190)"
append_statement
#line 44 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6191)"

                      ('local $Error::Depth = $Error::Depth '.
                       ($et eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6192)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--DEEP'
#line 46 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6193)"
 ? '+' : '-').
                       ' 1');
        $block->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6194)"
append_code_fragment
#line 48 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6195)"

                  ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6196)"
pl_preprocess_perl_code
#line 49 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6197)"

                               ($source_code, node => $opt{node},
                                method_resource => $opt{method_resource},
                                source_file => $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6198)"
current_source_file
#line 52 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6199)"
,
                                source_line => $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6200)"
current_source_line
#line 53 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6201)"
));
        $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6202)"
skip_lines
#line 54 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6203)"
 ($source_code);
      } elsif ({
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6204)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--EXCEPTION'
#line 56 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6205)"
 => 1,
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6206)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--WARNING'
#line 57 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6207)"
 => 1,
      }->{$et}) {
        $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6208)"
skip_lines
#line 59 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6209)"
 ($source_code);
        if ($source_code =~ s/^((?:(?!::).)+)(?:::\s*)?//s) {
          my ($cls, $const, $subtype)
            = @{$self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6210)"
xcref_to_resource
#line 62 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6211)"

                                 ($1, $self->{src},
                                  node => $opt{node},
                                  for_arg => $self->{for})};
          my $param = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6212)"
_pl_parse_preprocess_parameter
#line 66 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6213)"

                                 ($source_code, node => $opt{node});
          my $context_param
                    = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6214)"
_pl_get_context_parameter
#line 69 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6215)"
;

          $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6216)"
_pl_append_throw
#line 71 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6217)"

                       ($r, $cls, $const, $subtype,
                        {%$param, %$context_param});
        } else {
          
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6218)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6220)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6225)"
local $Error::Depth = $Error::Depth - 1;

{
#line 82 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6223)"

#line 82 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6221)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6222)"
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' => 'pl_preprocess_perl_code', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#PERL_PREPROCESS_NO_EXCEPTION_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/2005/manakai/Util/DIS#sourceCode' => $source_code, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => $et;

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6224)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6226)"
}

#line 86 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6233)"

#line 86 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6227)"
;
        }
      } elsif ($et eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6228)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--CODE'
#line 88 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6229)"
) {
        $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6230)"
skip_lines
#line 89 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6231)"
 ($source_code);
          my $code_name;
          $source_code =~ s/^\s+//;
          if ($source_code =~ s/^((?>(?!::).)+)//s) {
            $code_name = $1;
          } else {
            
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6232)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6234)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6245)"
local $Error::Depth = $Error::Depth - 1;

{
#line 95 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6243)"

#line 95 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6237)"

#line 95 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6235)"

              
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6236)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6238)"
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' => 'pl_preprocess_perl_code', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#PERL_PREPROCESS_NO_CODE_NAME_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#sourceCode' => $source_code, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => $et;

#line 100 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6241)"

#line 100 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6239)"
;
            
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6240)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6242)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6244)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6246)"
}

#line 101 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6263)"

#line 101 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6247)"
;
          }
          $source_code =~ s/^::\s*//;
          my $param = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6248)"
_pl_parse_preprocess_parameter
#line 104 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6249)"

                                   ($source_code, node => $opt{node});
          my $code_uri = $self->{src}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6250)"
tfqnames_to_uri
#line 106 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6251)"

                                   ($code_name, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6252)"
undef
#line 107 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6253)"
, $self->{for},
                                    node => $opt{node});
          my $code = $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6254)"
get_resource
#line 109 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6255)"

                                   ($code_uri);
          $code->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6256)"
is_referred
#line 111 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6257)"

                                   ($opt{node} || $self->{src});
          unless ($code->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6258)"
is_type_uri
#line 113 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6259)"

                                   (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6260)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#BlockCode'
#line 114 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6261)"
)) {
            
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6262)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6264)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6273)"
local $Error::Depth = $Error::Depth - 1;

{
#line 117 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6271)"

#line 117 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6265)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6266)"
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' => 'pl_preprocess_perl_code', '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#sourceCode' => $source_code, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#expectedType' => 'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#BlockCode', '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' => $code_uri;

#line 122 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6269)"

#line 122 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6267)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6268)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6270)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6272)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6274)"
}

#line 122 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6279)"

#line 122 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6275)"
;
          }
          my $pc = $code->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6276)"
pl_code_fragment
#line 124 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6277)"
->clone;
          unless (defined $pc) {
            
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6278)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6280)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6285)"
local $Error::Depth = $Error::Depth - 1;

{
#line 127 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6283)"

#line 127 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6281)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6282)"
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' => 'pl_preprocess_perl_code', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#PERL_CODE_NOT_DEFINED_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#sourceCode' => $source_code, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $code_uri;

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6284)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6286)"
}

#line 131 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6307)"

#line 131 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6287)"
;
          }
          for my $var (grep {/^\$/} keys %$param) {
            my $value;
            if ($param->{$var}->{type} eq 'variable') {
              $value = $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6288)"
create_perl_variable
#line 136 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6289)"

                                  ('$', 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6290)"
undef
#line 137 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6291)"
, $param->{$var}->{value});
            } elsif ($param->{$var}->{type} eq 'code') {
              $value = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6292)"
pl_preprocess_perl_statement
#line 139 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6293)"

                                    ($param->{$var}->{value},
                                     contains_statements => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6294)"
0
#line 141 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6295)"
);
            } else {
              $value = $plimpl->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6296)"
create_perl_string_literal
#line 143 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6297)"

                                  ($param->{$var}->{value});
            }
            $pc->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6298)"
replace_variable
#line 146 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6299)"

                                  ($var => $value);
          }
          $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6300)"
append_code_fragment
#line 149 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6301)"
 ($pc);
        } elsif ($et eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6302)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#InputNormalize'
#line 150 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6303)"
) {
          $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6304)"
skip_lines
#line 151 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6305)"
 ($source_code);
          unless ($opt{method_resource}) {
            
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6306)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6308)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6313)"
local $Error::Depth = $Error::Depth - 1;

{
#line 154 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6311)"

#line 154 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6309)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6310)"
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' => 'pl_preprocess_perl_code', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#PERL_PREPROCESS_NO_METHOD_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#sourceCode' => $source_code, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => $et;

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6312)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6314)"
}

#line 158 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6321)"

#line 158 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6315)"
;
          }
          my $param = $opt{method_resource}
                        ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6316)"
get_child_resource_by_name_and_type
#line 161 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6317)"

                            ($source_code, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6318)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#MethodParameter'
#line 162 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6319)"
);
          unless ($param) {
            
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6320)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6322)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6327)"
local $Error::Depth = $Error::Depth - 1;

{
#line 165 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6325)"

#line 165 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6323)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6324)"
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' => 'pl_preprocess_perl_code', '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#sourceCode' => $source_code, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#expectedType' => 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#MethodParameter', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#localName' => $source_code, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#RESOURCE_NOT_DEFINED_ERR', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => $et;

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6326)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6328)"
}

#line 171 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6363)"

#line 171 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6329)"
;
          }
          my $norm = $param->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6330)"
pl_get_method_input_normalizer
#line 173 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6331)"
;
          if ($norm) {
            my $norm_code = $norm->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6332)"
pl_code_fragment
#line 175 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6333)"
->clone;
            $norm_code->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6334)"
replace_variable
#line 176 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6335)"

               ('$INPUT' => $param->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6336)"
pl_variable_name
#line 177 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6337)"
);
            $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6338)"
append_code_fragment
#line 178 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6339)"
 ($norm_code);
          }
        } elsif ($et eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6340)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--FOR'
#line 180 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6341)"
) {
          if ($source_code =~ s/^(((?>(?!::).)*)::\s*)//) {
            $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6342)"
skip_lines
#line 182 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6343)"
 ($1);
            V: for my $forq (split /\s*\|\s*/, $2) {
              my $notfor = ($forq =~ s/^!\s*// ? 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6344)"
1 : 
#line 184 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6345)"

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6346)"
0
#line 184 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6347)"
);
              my $for_uri = $self->{src}
                                 ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6348)"
qname_to_uri
#line 186 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6349)"

                                      ($forq, node => $opt{node});
              my $formatch = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6350)"
is_for_uri
#line 188 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6351)"
 ($for_uri);
              if (($formatch and not $notfor) or
                  (not $formatch and $notfor)) {
                $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6352)"
append_code_fragment
#line 191 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6353)"

                    ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6354)"
pl_preprocess_perl_code
#line 192 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6355)"

                             ($source_code, node => $opt{node},
                              method_resource => $opt{method_resource},
                              source_file => $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6356)"
current_source_file
#line 195 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6357)"
,
                              source_line => $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6358)"
current_source_line
#line 196 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6359)"
));
                last V;
              }
            } # V
            $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6360)"
skip_lines
#line 200 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6361)"
 ($source_code);
          } else {
            
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6362)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6364)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6369)"
local $Error::Depth = $Error::Depth - 1;

{
#line 209 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6367)"

#line 209 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6365)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6366)"
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' => 'pl_preprocess_perl_code', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#PERL_PREPROCESS_NO_FOR_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#sourceCode' => $source_code, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => $et;

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6368)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6370)"
}

#line 213 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6379)"

#line 213 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6371)"
;
          }
        } elsif ($et eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6372)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--ASSERT'
#line 215 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6373)"
) {
          $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6374)"
skip_lines
#line 216 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6375)"
 ($source_code);
          my $assert_type;
          if ($source_code =~ s/^\s*($RegQNameChar+)\s*::\s*//o) {
            $assert_type = $self->{src}
                                ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6376)"
qname_to_uri
#line 220 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6377)"

                                     ($1, node => $opt{node});
          } else {
            
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6378)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6380)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6385)"
local $Error::Depth = $Error::Depth - 1;

{
#line 223 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6383)"

#line 223 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6381)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6382)"
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' => 'pl_preprocess_perl_code', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#PERL_PREPROCESS_NO_ASSERT_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/2005/manakai/Util/DIS#sourceCode' => $source_code, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => $et;

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6384)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6386)"
}

#line 227 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6417)"

#line 227 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6387)"
;
          }
          # if output assertion then
=pod
            my $assert_block = $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6388)"
append_block
#line 231 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6389)"
;
          
            my $param = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6390)"
_pl_parse_preprocess_parameter
#line 233 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6391)"

                                   ($source_code, node => $opt{node});
            my $context_param
                    = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6392)"
_pl_get_context_parameter
#line 236 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6393)"
;

            if ($assert_type eq 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6394)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Perl#isPositive'
#line 238 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6395)"
) {

$pre = perl_statement
         perl_assign
           'my $asActual' =>
                  '('.perl_code ($param->{actual}, %opt).')';
$cond = '$asActual > 0';
$xparam->{ExpandedURI q<DOMMain:expectedLabel>} = 'a positive value';
$xparam->{ExpandedURI q<DOMMain:actualValue>}
                         = perl_code_literal q<$asActual>;
} elsif ($atype eq ExpandedURI q<DISPerl:invariant>) {
$cond = '0';
$xparam->{ExpandedURI q<DOMMain:expectedLabel>} = $param->{msg};
$xparam->{ExpandedURI q<DOMMain:actualValue>} = '(invariant)';
} else {
valid_err (q[Assertion type <].$atype.q[> is not supported],
           node => $opt{node});
}

$r = $pre . perl_if
       $cond,
       undef,


          my $cls = $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6396)"
get_resource
#line 262 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6397)"

                           (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6398)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#CoreException'
#line 263 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6399)"
);
          my $const = $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6400)"
get_resource
#line 264 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6401)"

                           (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6402)"
'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_DEBUG_BUG'
#line 265 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6403)"
);
          my $subtype = $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6404)"
get_resource
#line 266 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6405)"

                           (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6406)"
'http://suika.fam.cx/~wakaba/archive/2004/dom/main#ASSERTION_ERR'
#line 267 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6407)"
);
          $_->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6408)"
is_referred
#line 268 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6409)"

                  ($opt{node} || $self->{src}) for $cls, $const, $subtype;
          $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6410)"
_pl_append_throw
#line 270 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6411)"

                       ($assert_block, $cls, $const, $subtype,
                        {%$param, %$context_param,
                         
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6412)"
'http://suika.fam.cx/~wakaba/archive/2004/dom/main#assertionType'
#line 273 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6413)"
 => {
                           type => 'quoted', value => $assert_type,
                         },
                         
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6414)"
'http://suika.fam.cx/~wakaba/archive/2004/dom/main#traceText'
#line 276 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6415)"
 => {
                           type => 'code',
                           value => q<(sprintf 'at %s line %s%s%s',
                                       
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6416)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6418)"
__FILE__
#line 282 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6421)"

#line 282 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6419)"
, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6420)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6422)"
__LINE__
#line 282 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6439)"

#line 282 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6423)"
, "\n\t",
                                       Carp::longmess ())>,
                         }});

=cut

        } elsif ({
          
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6424)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--FILE'
#line 289 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6425)"
 => 1,
          
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6426)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--LINE'
#line 290 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6427)"
 => 1,
          
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6428)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--PACKAGE'
#line 291 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6429)"
 => 1,
        }->{$et}) {
          $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6430)"
append_atom
#line 293 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6431)"

                ('__'.{
                         
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6432)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--FILE'
#line 295 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6433)"
 => 'FILE',
                         
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6434)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--LINE'
#line 296 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6435)"
 => 'LINE',
                         
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6436)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--PACKAGE'
#line 297 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6437)"
 => 'PACKAGE',
                      }->{$et}.'__');
          if (length $source_code) {
            
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6438)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6440)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6445)"
local $Error::Depth = $Error::Depth - 1;

{
#line 300 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6443)"

#line 300 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6441)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6442)"
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' => 'pl_preprocess_perl_code', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#PERL_PREPROCESS_BLOCK_NOT_ALLOWED_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#sourceCode' => $source_code, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => $et;

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6444)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6446)"
}

#line 304 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6449)"

#line 304 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6447)"
;
          }
        } else {
          
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6448)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6450)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6455)"
local $Error::Depth = $Error::Depth - 1;

{
#line 307 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6453)"

#line 307 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6451)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6452)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $opt{node}, '-type' => 'NOT_SUPPORTED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'pl_preprocess_perl_code', '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::ManakaiDISResourceDefinition', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceCode' => $source_code, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => $et;

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6454)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6456)"
}

#line 311 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6471)"

#line 311 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6457)"
;
        }
      } else {  ## Other than block-level element
        $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6458)"
append_code_fragment
#line 314 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6459)"

               ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6460)"
pl_preprocess_perl_statement
#line 315 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6461)"

                         ($source_code, contains_statements => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6462)"
1
#line 316 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6463)"
,
                          source_file => $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6464)"
current_source_file
#line 317 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6465)"
,
                          source_line => $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6466)"
current_source_line
#line 318 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6467)"
));
        $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6468)"
skip_lines
#line 319 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6469)"
 ($source_code);
      }
    } # for
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6470)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6472)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6474)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6476)"
}

#line 325 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6479)"

#line 325 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6477)"
; # DEEP
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6478)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6480)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6482)"
}
$r}
sub feature_name_list ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #6563)"
my ($self) = @_;
my $r = [];

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #6561)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6485)"
unless 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6483)"
($self->{src}) {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6484)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6486)"
report Message::Util::DIS::ManakaiDISException -object => $self, '-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_SOURCE_NODE_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', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $self->{uri};

#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6489)"

#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6487)"
;
}

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6488)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6490)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6555)"
local $Error::Depth = $Error::Depth + 1;

{
#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #6553)"

#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6517)"

  for 
#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6491)"
my $ce (@{$self->{src}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6492)"
dis_child_elements
#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6493)"

                    (for_arg => $self->{for},
                     forp_arg => $self->{forp})}) {
    if ($ce->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6494)"
expanded_uri
             eq 
#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6495)"

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6496)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AppName'
#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6497)"
) {
      if ($ce->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6498)"
media_type_match
#line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6499)"

                    (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6500)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TypeQName'
#line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6501)"
,
                     for_arg => $self->{for},
                     forp_arg => $self->{forp},
                     default_media_type => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6502)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--String'
#line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6503)"
)) {
        push @$r, lc $ce->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6504)"
qname_value_uri
#line 15 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6505)"
;
      } elsif ($ce->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6506)"
media_type_match
#line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6507)"

                    (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6508)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--String'
#line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6509)"
,
                     for_arg => $self->{for},
                     forp_arg => $self->{forp},
                     default_media_type => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6510)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--String'
#line 20 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6511)"
)) {
        push @$r, lc $ce->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6512)"
value
#line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6513)"
;
      } else {
        my $mt = $ce->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6514)"
media_type_uri
#line 23 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6515)"

                           (for_arg => $self->{for},
                            forp_arg => $self->{forp});
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6516)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6518)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6529)"
local $Error::Depth = $Error::Depth - 1;

{
#line 28 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #6527)"

#line 28 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6521)"

#line 28 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6519)"

          
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6520)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6522)"
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#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#UNSUPPORTED_MEDIA_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' => 'feature_name_list', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $mt;

#line 32 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6525)"

#line 32 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6523)"
;
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6524)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6526)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6528)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6530)"
}

#line 33 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6551)"

#line 33 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6531)"
;
      }
    }
  }
  unless (@$r) {
    my $pr = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6532)"
get_property_resource
#line 38 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6533)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6534)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#parentResource'
#line 38 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6535)"
);
    if ($pr) {
      if ($pr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6536)"
is_type_uri
#line 40 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6537)"

                    (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6538)"
'http://suika.fam.cx/~wakaba/archive/2004/dom/main#DOMFeature'
#line 41 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6539)"
) and
          not $pr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6540)"
is_anonymous
#line 42 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6541)"
) {
        push @$r, @{$pr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6542)"
feature_name_list
#line 43 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6543)"
};
      }
    }
  }
  unless (@$r) {
    if ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6544)"
is_anonymous
#line 48 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6545)"
) {
      my $ln = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6546)"
local_name
#line 49 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6547)"
;
      push @$r, lc $ln if defined $ln;
    } else {
      push @$r, lc $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6548)"
name_uri
#line 52 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6549)"
;
    }
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6550)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6552)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6554)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6556)"
}

#line 57 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6559)"

#line 57 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6557)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6558)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6560)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6562)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6564)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #6565)"
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 #6566)"
}}
sub is_type_uri ($$) {
my ($self, $typeURI) = @_;
my $r = 0;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6587)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6585)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6567)"
($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6568)"
'http://www.w3.org/1999/02/22-rdf-syntax-ns#type'
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6569)"
}->{$typeURI}) {
  $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6570)"
'http://www.w3.org/1999/02/22-rdf-syntax-ns#type'
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6571)"
}->{$typeURI};
} else {
  for my $t_type_uri (grep {$self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6572)"
'http://www.w3.org/1999/02/22-rdf-syntax-ns#type'
#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6573)"
}->{$_}}
                           keys %{$self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6574)"
'http://www.w3.org/1999/02/22-rdf-syntax-ns#type'
#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6575)"
}}) {
    my $t_type = $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6576)"
get_resource
#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6577)"

                                                      ($t_type_uri);
    if ($t_type->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6578)"
is_subset_of_uri
#line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6579)"

                                                      ($typeURI)) {
      $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6580)"
'http://www.w3.org/1999/02/22-rdf-syntax-ns#type'
#line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6581)"
}->{$typeURI} = $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6582)"
1
#line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6583)"
;
      last;
    }
  }
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6584)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6586)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6588)"
}
$r}
sub pl_variable_name ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #6635)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plVariableName][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #6633)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plVariableName][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6601)"
my 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plVariableName][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6589)"
$pnm_node = $self->{src}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6590)"
dis_get_attribute
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plVariableName][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6591)"

                        (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6592)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AppName'
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plVariableName][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6593)"
, 
                         for_arg => $self->{for},
                         forp_arg => $self->{forp},
                         media_type => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6594)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl'
#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plVariableName][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6595)"
,
                         default_media_type => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6596)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl'
#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plVariableName][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6597)"
);
$r = $pnm_node ? $pnm_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6598)"
value : 
#line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plVariableName][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6599)"
$self->{localName};
if (defined $r) {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6600)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6602)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6627)"
local $Error::Depth = $Error::Depth + 1;

{
#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plVariableName][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #6625)"

#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plVariableName][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6623)"

    if 
#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plVariableName][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6603)"
($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6604)"
get_property_boolean
#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plVariableName][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6605)"

                         (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6606)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Perl#isNamedParameter'
#line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plVariableName][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6607)"
, 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6608)"
0
#line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plVariableName][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6609)"
)) {
      $r = '$opt{' . 
           
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6610)"
Message::Util::DIS::ManakaiDISImplementation->_camel_case_to_underscore_name
#line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plVariableName][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6611)"

                                               ($r) .
           '}';
    } else {
      my $dt = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6612)"
dis_actual_data_type_resource
#line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plVariableName][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6613)"
;
      if ($dt->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6614)"
is_subset_of_uri
#line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plVariableName][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6615)"

                                               (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6616)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl--Array'
#line 18 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plVariableName][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6617)"
)) {
        $r = '@' . $r;
      } elsif ($dt->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6618)"
is_subset_of_uri
#line 20 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plVariableName][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6619)"

                                               (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6620)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl--Hash'
#line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plVariableName][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6621)"
)) {
        $r = '%' . $r;
      } else {
        $r = '$' . $r;
      }
    }
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6622)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6624)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6626)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6628)"
}

#line 29 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plVariableName][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6631)"

#line 29 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plVariableName][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6629)"
;
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6630)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6632)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6634)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6636)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #6637)"
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' => 'pl_variable_name';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6638)"
}}
sub mv_prefix ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #6685)"
my ($self) = @_;
my $r = '';

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #6683)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6639)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6640)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6677)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #6675)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6673)"

  if 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6641)"
(exists $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6642)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvPrefix'
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6643)"
}) {
    $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6644)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvPrefix'
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6645)"
};
  } elsif ($self->{src}) {
    my $node = $self->{src}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6646)"
dis_get_attribute
#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6647)"

                (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6648)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AppName'
#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6649)"
, 
                 for_arg => $self->{for},
                 forp_arg => $self->{forp},
                 media_type => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6650)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TypeQName'
#line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6651)"
,
                 default_media_type => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6652)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TypeQName'
#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6653)"
);
    if ($node) {
      $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6654)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvPrefix'
#line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6655)"
}
         = $node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6656)"
qname_value_prefix
#line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6657)"
;
    } else {
      $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6658)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvPrefix'
#line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6659)"
} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6660)"
undef
#line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6661)"
;
    }
  } else {
    $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6662)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvPrefix'
#line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6663)"
} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6664)"
undef
#line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6665)"
;
  }
  unless (defined $r) {
    my $nsuri = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6666)"
mv_namespace_uri
#line 20 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6667)"
;
    if (defined $nsuri and $nsuri =~ /([A-Za-z]\w*)\W*$/) {
      $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6668)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvPrefix'
#line 22 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6669)"
} = $1;
    } elsif (defined $nsuri) {
      $r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6670)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvPrefix'
#line 24 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6671)"
} = 'ns';
    }
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6672)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6674)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6676)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6678)"
}

#line 28 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6681)"

#line 28 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6679)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6680)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6682)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6684)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6686)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #6687)"
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' => 'mv_prefix';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6688)"
}}
sub merge_as_alias ($$%) {
my ($self, $aliasResource, %opt) = @_;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6727)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6691)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6689)"
($self eq $aliasResource) {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6690)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6692)"
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)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6705)"

#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6693)"
;
}
for my $uri ($aliasResource->{uri}, 
             grep {$aliasResource->{aliasURI}->{$_}}
                  keys %{$aliasResource->{aliasURI}}) {
  $self->{aliasURI}->{$uri} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6694)"
1
#line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6695)"
;
  $self->{db}->{resDef}->{$uri} = $self;
  $self->{subOf}->{$uri} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6696)"
1
#line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6697)"
;
  $self->{supOf}->{$uri} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6698)"
1
#line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6699)"
;
}
for my $uri (grep {$aliasResource->{subOf}->{$_}}
                  keys %{$aliasResource->{subOf}}) {
  $self->{subOf}->{$uri} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6700)"
1
#line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6701)"
;
}
for my $uri (grep {$aliasResource->{supOf}->{$_}}
                  keys %{$aliasResource->{supOf}}) {
  $self->{supOf}->{$uri} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6702)"
1
#line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6703)"
;
}
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 #6704)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6706)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6721)"
local $Error::Depth = $Error::Depth + 1;

{
#line 25 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6719)"

#line 25 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6717)"

  for 
#line 25 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6707)"
my $from (@from) {
    for my $to (@to) {
      $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6708)"
get_resource
#line 27 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6709)"

                              ($from)->{subOf}->{$to} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6710)"
1
#line 28 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6711)"
;
      $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6712)"
get_resource
#line 29 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6713)"

                              ($to)->{supOf}->{$from} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6714)"
1
#line 30 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6715)"
;
    }
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6716)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6718)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6720)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6722)"
}

#line 34 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6725)"

#line 34 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6723)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6724)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6726)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6728)"
}
}
sub is_anonymous ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #6737)"
my ($self) = @_;
my $r = 0;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isAnonymous][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #6735)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isAnonymous][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6733)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isAnonymous][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6729)"
$r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6730)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isAnon'
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isAnonymous][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6731)"
};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6732)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6734)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6736)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6738)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #6739)"
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' => 'is_anonymous';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6740)"
}}
sub pl_is_nullable ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #6775)"
my ($self) = @_;
my $r = 0;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsNullable][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #6773)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsNullable][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6741)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6742)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6767)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsNullable][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #6765)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsNullable][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6763)"

  for 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsNullable][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6743)"
my $incase (@{$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6744)"
get_property_resource_list
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsNullable][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6745)"

                                (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6746)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#childResource'
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsNullable][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6747)"
)}) {
    next unless $incase->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6748)"
is_type_uri
#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsNullable][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6749)"

                                (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6750)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#InCase'
#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsNullable][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6751)"
);
    if ($incase->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6752)"
dis_is_null_value or
        
#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsNullable][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6753)"
$incase->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6754)"
dis_actual_data_type_resource
#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsNullable][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6755)"

                    ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6756)"
is_subset_of_uri
#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsNullable][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6757)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6758)"
'http://suika.fam.cx/~wakaba/archive/2004/dom/main#boolean'
#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsNullable][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6759)"
)) {
      $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6760)"
1
#line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsNullable][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6761)"
;
      last;
    }
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6762)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6764)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6766)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6768)"
}

#line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsNullable][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6771)"

#line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsNullable][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6769)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6770)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6772)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6774)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6776)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #6777)"
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' => 'pl_is_nullable';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6778)"
}}
sub is_for_uri ($$) {
my ($self, $forURI) = @_;
my $r = 0;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6801)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6779)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6780)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6795)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6793)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6791)"

  for 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6781)"
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 #6782)"
1
#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6783)"
;
      last;
    }
    my $this_for = $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6784)"
get_for
#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6785)"

                                       ($this_for_uri);
    if ($this_for->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6786)"
isa_uri
#line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6787)"
 ($forURI)) {
      $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6788)"
1
#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6789)"
;
      last;
    }
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6790)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6792)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6794)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6796)"
}

#line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6799)"

#line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6797)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6798)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6800)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6802)"
}
$r}
sub forp_uri ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #6809)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=forpURI][@Type=ForURIList][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #6807)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=forpURI][@Type=ForURIList][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6805)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=forpURI][@Type=ForURIList][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6803)"
$r = [@{$self->{forp}}];
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6804)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6806)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6808)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6810)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #6811)"
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' => 'forp_uri';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6812)"
}}
sub _pl_append_throw ($$$$;$$) {
my ($self, $parentNode, $xclass, $xcode, $xsubtype, $xparam) = @_;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAppendThrow][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6847)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAppendThrow][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6823)"
my 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAppendThrow][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6813)"
$statement = $parentNode->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6814)"
append_statement
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAppendThrow][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6815)"

  ('report '.
   $xclass->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6816)"
pl_fully_qualified_name
#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAppendThrow][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6817)"
.
   ' -object => $self');
my $xclass_module = $xclass->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6818)"
owner_module
#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAppendThrow][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6819)"
;
unless ($xclass->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6820)"
is_defined or
        
#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAppendThrow][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6821)"
not $xclass_module) {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6822)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6824)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $self->{src}, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => '_pl_append_throw', '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#expectedType' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#AnyExceptionClass', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#localName' => $xclass->{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' => $xclass->{uri};

#line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAppendThrow][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6845)"

#line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAppendThrow][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6825)"
;
}
$xclass->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6826)"
is_referred
#line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAppendThrow][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6827)"
 ($self->{src});
$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6828)"
_pl_add_require_resource
#line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAppendThrow][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6829)"

                       ($xclass_module => $statement);
$xparam->{-type} = {type => 'quoted',
                    value => $xcode->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6830)"
pl_name
#line 20 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAppendThrow][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6831)"
};
$xparam->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6832)"
'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype'
#line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAppendThrow][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6833)"
} = {type => 'quoted',
                                 value => $xsubtype->{nameURI}}
  if $xsubtype;
for my $name (keys %$xparam) {
  my $pname = $name;
  $pname =~ s/(['\\])/\\$1/g;
  $pname = qq<'$pname'>;
  $statement->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6834)"
append_code
#line 28 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAppendThrow][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6835)"

                   (', ' . $pname . ' => ');
  if ($xparam->{$name}->{type} eq 'code') {
    if (ref $xparam->{$name}->{value}) {
      $statement->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6836)"
append_code_fragment
#line 32 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAppendThrow][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6837)"

                   ($xparam->{$name}->{value});
    } else {
      $statement->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6838)"
append_code_fragment
#line 35 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAppendThrow][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6839)"

               ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6840)"
pl_preprocess_perl_statement
#line 36 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAppendThrow][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6841)"

                             ($xparam->{$name}->{value}));
    }
  } else {  ## String as is
    $statement->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6842)"
append_string_literal
#line 40 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAppendThrow][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6843)"

                   ($xparam->{$name}->{value});
  }
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6844)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6846)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6848)"
}
}
sub _pl_get_context_parameter ($) {
my ($self) = @_;
my $r = {};

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6931)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6851)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6849)"
$r = {};

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6850)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6852)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6925)"
local $Error::Depth = $Error::Depth + 1;

{
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6923)"

#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6921)"

  if 
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6853)"
($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6854)"
is_type_uri
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6855)"

               (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6856)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#MethodReturn'
#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6857)"
)) {
    my $method = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6858)"
get_property_resource
#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6859)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6860)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#parentResource'
#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6861)"
);
    $r->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6862)"
'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method'
#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6863)"
}
       = {type => 'quoted',
          value => $method->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6864)"
pl_name
#line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6865)"
};
    my $class = $method->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6866)"
get_property_resource
#line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6867)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6868)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#parentResource'
#line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6869)"
);
    $r->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6870)"
'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class'
#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6871)"
}
       = {type => 'quoted',
          value => $class->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6872)"
pl_fully_qualified_name
#line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6873)"
};
  } elsif ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6874)"
is_type_uri
#line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6875)"

               (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6876)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#AttributeGet'
#line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6877)"
)) {
    my $attr = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6878)"
get_property_resource
#line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6879)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6880)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#parentResource'
#line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6881)"
);
    $r->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6882)"
'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr'
#line 15 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6883)"
}
       = {type => 'quoted',
          value => $attr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6884)"
pl_name
#line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6885)"
};
    my $class = $attr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6886)"
get_property_resource
#line 18 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6887)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6888)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#parentResource'
#line 18 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6889)"
);
    $r->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6890)"
'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class'
#line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6891)"
}
       = {type => 'quoted',
          value => $class->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6892)"
pl_fully_qualified_name
#line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6893)"
};
    $r->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6894)"
'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on'
#line 22 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6895)"
} = {type => 'quoted', value => 'get'};
  } elsif ($self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6896)"
is_type_uri
#line 23 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6897)"

               (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6898)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#AttributeSet'
#line 24 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6899)"
)) {
    my $attr = $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6900)"
get_property_resource
#line 25 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6901)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6902)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#parentResource'
#line 25 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6903)"
);
    $r->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6904)"
'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr'
#line 26 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6905)"
}
       = {type => 'quoted',
          value => $attr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6906)"
pl_name
#line 28 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6907)"
};
    my $class = $attr->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6908)"
get_property_resource
#line 29 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6909)"
 (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6910)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#parentResource'
#line 29 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6911)"
);
    $r->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6912)"
'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class'
#line 30 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6913)"
}
       = {type => 'quoted',
          value => $class->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6914)"
pl_fully_qualified_name
#line 32 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6915)"
};
    $r->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6916)"
'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on'
#line 33 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6917)"
} = {type => 'quoted', value => 'set'};
  } else {
    $r->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6918)"
'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI'
#line 35 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6919)"
} = {type => 'quoted',
                                    value => $self->{uri}};
  }

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6920)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6922)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6924)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6926)"
}

#line 48 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6929)"

#line 48 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6927)"
;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6928)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6930)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6932)"
}
$r}
sub dis_actual_data_type_node ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #6953)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeNode][@type=DISLang:Attribute]/Get[@Type=ManakaiDISElement][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #6951)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeNode][@type=DISLang:Attribute]/Get[@Type=ManakaiDISElement][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6933)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6934)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6943)"
local $Error::Depth = $Error::Depth + 1;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeNode][@type=DISLang:Attribute]/Get[@Type=ManakaiDISElement][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #6941)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeNode][@type=DISLang:Attribute]/Get[@Type=ManakaiDISElement][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6939)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeNode][@type=DISLang:Attribute]/Get[@Type=ManakaiDISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6935)"

  $self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6936)"
dis_actual_data_type_resource
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeNode][@type=DISLang:Attribute]/Get[@Type=ManakaiDISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6937)"
;

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6938)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6940)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6942)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6944)"
}

#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeNode][@type=DISLang:Attribute]/Get[@Type=ManakaiDISElement][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6949)"

#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeNode][@type=DISLang:Attribute]/Get[@Type=ManakaiDISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6945)"
;
$r = $self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6946)"
'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#actualTypeNode'
#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeNode][@type=DISLang:Attribute]/Get[@Type=ManakaiDISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6947)"
};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6948)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6950)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6952)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6954)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #6955)"
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_node';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6956)"
}}
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 #6961)"

#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [bc] (Chunk #6959)"

#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #6957)"
$feature = lc $feature;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6958)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6960)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6962)"
}

{
#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [b] (Chunk #6967)"

#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [bc] (Chunk #6965)"

#line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #6963)"
$version = '' unless defined $version;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6964)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6966)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6968)"
}
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6973)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6971)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6969)"
$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 #6970)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6972)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6974)"
}
$r}
use overload bool => sub () {1}, '<=>' => sub ($$) {
my ($self, $anotherResource) = @_;
my $r = 0;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain:unsigned-long::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6981)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain:unsigned-long::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6979)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain:unsigned-long::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6975)"
(UNIVERSAL::isa ($anotherResource,
                    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6976)"
'Message::Util::DIS::ManakaiDISResourceDefinition'
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain:unsigned-long::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6977)"
)) {
  $r = $self->{seq} <=> $anotherResource->{seq};
} else {
  $r = overload::Overloaded ($self) <=> $anotherResource;
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6978)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6980)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6982)"
}
$r}
, 'eq' => sub ($$) {
my ($self, $anotherResource) = @_;
my $r = 0;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6991)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6989)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6983)"
(UNIVERSAL::isa ($anotherResource,
                    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6984)"
'Message::Util::DIS::ManakaiDISResourceDefinition'
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6985)"
)) {
  $r = $self->{uri} eq $anotherResource->{uri};
} else {
  $r = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6986)"
0
#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6987)"
;
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6988)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6990)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6992)"
}
$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'}};
$Message::DOM::ClassPoint{q<Message::Util::DIS::ManakaiDISResourceDefinition>} = 4;
$Message::Util::DIS::ManakaiDISResourceDefinition::CompatClass{q<Message::Util::DIS::ManakaiDISResourceDefinition>} = 1;
package Message::Util::DIS::ManakaiDISPropertyAccessor;
our $VERSION = 20050904.1346;
sub get_property_text ($$;$) {
my ($self, $propName, $default) = @_;
my $r = '';

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyText][@type=DISLang:Method]/Return[@Type=swcfg21:SWCFGString::swcfg21:ForLatest][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #7003)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyText][@type=DISLang:Method]/Return[@Type=swcfg21:SWCFGString::swcfg21:ForLatest][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #7001)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyText][@type=DISLang:Method]/Return[@Type=swcfg21:SWCFGString::swcfg21:ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6993)"
(exists $self->{$propName}) {
  $r = defined $self->{$propName} ? $self->{$propName} : $default;
} elsif ($self->{src}) {
  $r = $self->{src}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6994)"
dis_get_attribute
#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyText][@type=DISLang:Method]/Return[@Type=swcfg21:SWCFGString::swcfg21:ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6995)"

                        ($propName, for_arg => $self->{for},
                         forp_arg => $self->{forp});
  if ($r) {
    $r = $self->{$propName}
       = $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6996)"
value
#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyText][@type=DISLang:Method]/Return[@Type=swcfg21:SWCFGString::swcfg21:ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6997)"
;
    $r = $default unless defined $r;
  } else {
    $r = $default;
    $self->{$propName} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6998)"
undef
#line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyText][@type=DISLang:Method]/Return[@Type=swcfg21:SWCFGString::swcfg21:ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6999)"
;
  }
} else {
  $r = $default;
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7000)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7002)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #7004)"
}
$r}
sub owner_module ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #7011)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Attr[@Name=ownerModule][@type=DISLang:Attribute]/Get[@Type=ManakaiDISModuleDefinition][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #7009)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Attr[@Name=ownerModule][@type=DISLang:Attribute]/Get[@Type=ManakaiDISModuleDefinition][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #7007)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Attr[@Name=ownerModule][@type=DISLang:Attribute]/Get[@Type=ManakaiDISModuleDefinition][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #7005)"
$r = $self;
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7006)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7008)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #7010)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7012)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #7013)"
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::ManakaiDISPropertyAccessor', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'owner_module';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7014)"
}}
sub add_property_resource_list ($$$) {
my ($self, $propName, $res) = @_;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=addPropertyResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #7023)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=addPropertyResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #7017)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=addPropertyResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7015)"
(ref $self->{$propName} eq 'ARRAY') {
  push @{$self->{$propName}}, $res->{uri};
} elsif (not defined $self->{$propName}) {
  $self->{$propName} = [$res->{uri}];
} else {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7016)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7018)"

#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=addPropertyResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #7021)"

#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=addPropertyResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7019)"
;
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7020)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7022)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #7024)"
}
}
sub get_property_resource_list ($$%) {
my ($self, $propName, %opt) = @_;
my $r = [];

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #7177)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #7029)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7025)"
$r = [];
if (defined $self->{$propName}) {
  for my $res_uri (@{ref $self->{$propName} eq 'ARRAY'
                                 ? $self->{$propName} : []}) {
    push @$r,
         $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7026)"
get_resource
#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7027)"
 ($res_uri);
  }
} elsif ($self->{src}) {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7028)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7030)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #7093)"
local $Error::Depth = $Error::Depth + 1;

{
#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #7091)"

#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #7061)"

#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7031)"

    $self->{$propName} = [];
    $opt{default_media_type} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7032)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TypeQName'
                                   unless 
#line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7033)"
defined $opt{default_media_type};
    for my $res_name_node
            (@{$self->{src}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7034)"
dis_get_attribute_list
#line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7035)"

                          ($propName, for_arg => $self->{for},
                           forp_arg => $self->{forp})}) {
      my $res_uri;
      if ($res_name_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7036)"
media_type_match
#line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7037)"

                           (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7038)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TypeQName'
#line 18 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7039)"
, $opt{default_media_type},
                            for_arg => $self->{for},
                            forp_arg => $self->{forp})) {
        $res_uri = $res_name_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7040)"
qname_value_uri
#line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7041)"
;
      } elsif ($res_name_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7042)"
media_type_match
#line 22 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7043)"

                           (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7044)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TFQNames'
#line 23 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7045)"
, $opt{default_media_type},
                            for_arg => $self->{for},
                            forp_arg => $self->{forp})) {
        $res_uri =$res_name_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7046)"
tfqnames_value_uri
#line 26 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7047)"

                     ($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7048)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNodeID'
#line 27 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7049)"
},
                      $self->{for},
                            for_arg => $self->{for},
                            forp_arg => $self->{forp});
      } elsif ($res_name_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7050)"
media_type_match
#line 31 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7051)"

                           (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7052)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#TFPQNames'
#line 32 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7053)"
, $opt{default_media_type},
                            for_arg => $self->{for},
                            forp_arg => $self->{forp})) {
        $res_uri=$res_name_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7054)"
tfqnames_value_uri
#line 35 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7055)"

                     ($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7056)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNodeID'
#line 36 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7057)"
},
                      $self->{for},
                            for_arg => $self->{for},
                            forp_arg => $self->{forp});
      } else {
        my $mt = $res_name_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7058)"
media_type_uri
#line 41 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7059)"

                           (for_arg => $self->{for},
                            forp_arg => $self->{forp});
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7060)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7062)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #7073)"
local $Error::Depth = $Error::Depth - 1;

{
#line 45 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #7071)"

#line 45 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #7065)"

#line 45 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7063)"

          
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7064)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7066)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $res_name_node, '-type' => 'NOT_SUPPORTED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'get_property_resource_list', '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', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISPropertyAccessor', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $mt;

#line 49 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #7069)"

#line 49 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7067)"
;
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7068)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7070)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #7072)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #7074)"
}

#line 50 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #7089)"

#line 50 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7075)"
;
      }
      push @{$self->{$propName}}, $res_uri;
      my $res = $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7076)"
get_resource
#line 53 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7077)"

                                                        ($res_uri);
      push @$r, $res;
      $res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7078)"
is_referred
#line 56 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7079)"

                                                 ($res_name_node);
      if ($opt{isa_recursive}) {
        my $stop_rec = $res_name_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7080)"
dis_get_attribute
#line 59 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7081)"

                           (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7082)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#stopISARecursive'
#line 60 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7083)"
,
                            for_arg => $self->{for},
                            forp_arg => $self->{forp});
        $opt{isa_recursive} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7084)"
0
          if 
#line 63 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7085)"
$stop_rec and $stop_rec->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7086)"
value
#line 63 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7087)"
;
      }
    }
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7088)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7090)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #7092)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #7094)"
}

#line 68 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #7097)"

#line 68 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7095)"
;
}
if ($opt{recursive}) {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7096)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7098)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #7113)"
local $Error::Depth = $Error::Depth + 1;

{
#line 71 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #7111)"

#line 71 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #7109)"

#line 71 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7099)"

    $opt{___recursive_isa_done} ||= {$self->{uri} => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7100)"
1
#line 72 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7101)"
};
    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 #7102)"
1
#line 76 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7103)"
;
      push @$r, @{$p_res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7104)"
get_property_resource_list
#line 77 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7105)"

                                  ($propName, recursive => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7106)"
1
#line 78 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7107)"
,
                                   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 #7108)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7110)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #7112)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #7114)"
}

#line 84 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #7117)"

#line 84 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7115)"
;
}
if ($opt{recursive_isa}) {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7116)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7118)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #7135)"
local $Error::Depth = $Error::Depth + 1;

{
#line 87 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #7133)"

#line 87 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #7131)"

#line 87 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7119)"

    $opt{___recursive_isa_done} ||= {$self->{uri} => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7120)"
1
#line 88 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7121)"
};
    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 #7122)"
1
#line 92 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7123)"
;
      push @$r, @{$p_res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7124)"
get_property_resource_list
#line 93 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7125)"

                                  (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7126)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ISA'
#line 94 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7127)"
, 
                                   recursive => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7128)"
1
#line 95 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7129)"
,
                 ___recursive_isa_done => $opt{___recursive_isa_done},
                 default_media_type => $opt{default_media_type})};
    }
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7130)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7132)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #7134)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #7136)"
}

#line 100 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #7139)"

#line 100 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7137)"
;
}
if ($opt{isa_recursive}) {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7138)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7140)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #7171)"
local $Error::Depth = $Error::Depth + 1;

{
#line 103 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #7169)"

#line 103 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #7167)"

#line 103 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7141)"

    $opt{___recursive_isa_done} ||= {$self->{uri} => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7142)"
1
#line 104 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7143)"
};
    $opt{___isa_recursive_done} ||= {$self->{uri} => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7144)"
1
#line 105 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7145)"
};
    my @p_res = @{$self->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7146)"
get_property_resource_list
#line 106 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7147)"

                              (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7148)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ISA'
#line 107 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7149)"
, recursive_isa => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7150)"
0
#line 107 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7151)"
,
                               recursive => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7152)"
0
#line 108 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7153)"
,
                               default_media_type => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7154)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TFQNames'
#line 109 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7155)"
)};
    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 #7156)"
1
#line 112 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7157)"
;
      push @$r, @{$p_res->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7158)"
get_property_resource_list
#line 113 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7159)"

                                  ($propName, recursive_isa => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7160)"
0
#line 114 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7161)"
,
                                   recursive => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7162)"
0
#line 115 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7163)"
,
                               isa_recursive => 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7164)"
1
#line 116 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7165)"
,
                               ___isa_recursive_done =>
                                             $opt{___isa_recursive_done},
                               default_media_type => $opt{default_media_type})};
    }
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7166)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7168)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #7170)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #7172)"
}

#line 123 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #7175)"

#line 123 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7173)"
;
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7174)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7176)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #7178)"
}
$r}
sub get_property_boolean ($$$) {
my ($self, $propName, $default) = @_;
my $r = 0;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyBoolean][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #7193)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyBoolean][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #7191)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyBoolean][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7179)"
(exists $self->{$propName}) {
  $r = defined $self->{$propName} ? $self->{$propName} : $default;
} elsif ($self->{src}) {
  my $attr_node = $self->{src}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7180)"
dis_get_attribute
#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyBoolean][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7181)"

                        ($propName, for_arg => $self->{for},
                         forp_arg => $self->{forp});
  $r = $self->{$propName} = ($attr_node
                          ? ($attr_node->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7182)"
value
#line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyBoolean][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7183)"

                               ? 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7184)"
1 : 
#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyBoolean][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7185)"

#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7186)"
0
#line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyBoolean][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7187)"
)
                          : 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7188)"
undef
#line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyBoolean][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7189)"
);
  $r = $default unless defined $r;
} else {
  $r = $default;
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7190)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7192)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #7194)"
}
$r}
sub get_property_resource ($$%) {
my ($self, $propName, %opt) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #7257)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #7199)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7195)"
(defined $self->{$propName}) {
  $r = $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7196)"
get_resource
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7197)"

                                            ($self->{$propName});
} elsif ($self->{src}) {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7198)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7200)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #7251)"
local $Error::Depth = $Error::Depth + 1;

{
#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #7249)"

#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #7227)"

#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7201)"

    $r = $self->{src}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7202)"
dis_get_attribute
#line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7203)"

                          ($propName, for_arg => $self->{for},
                           forp_arg => $self->{forp});
    if ($r) {
      $opt{default_media_type} = 
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7204)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TypeQName'
                                   unless 
#line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7205)"
defined $opt{default_media_type};
      if ($r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7206)"
media_type_match
#line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7207)"

                           (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7208)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TypeQName'
#line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7209)"
, $opt{default_media_type},
                            for_arg => $self->{for},
                            forp_arg => $self->{forp})) {
        $self->{$propName}
           = $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7210)"
qname_value_uri
#line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7211)"
;
      } elsif ($r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7212)"
media_type_match
#line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7213)"

                           (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7214)"
'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TFQNames'
#line 18 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7215)"
, $opt{default_media_type},
                            for_arg => $self->{for},
                            forp_arg => $self->{forp}) or
               $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7216)"
media_type_match
#line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7217)"

                           (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7218)"
'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#TFPQNames'
#line 22 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7219)"
, $opt{default_media_type},
                            for_arg => $self->{for},
                            forp_arg => $self->{forp})) {
        $self->{$propName}
           = $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7220)"
tfqnames_value_uri
#line 26 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7221)"

                     ($self->{
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7222)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNodeID'
#line 27 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7223)"
},
                      $self->{for},
                            for_arg => $self->{for},
                            forp_arg => $self->{forp});
      } else {
        my $mt = $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7224)"
media_type_uri
#line 32 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7225)"

                           (for_arg => $self->{for},
                            forp_arg => $self->{forp});
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7226)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7228)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #7239)"
local $Error::Depth = $Error::Depth - 1;

{
#line 36 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #7237)"

#line 36 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #7231)"

#line 36 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7229)"

          
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7230)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7232)"
report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $r, '-type' => 'NOT_SUPPORTED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'get_property_resource', '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', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISPropertyAccessor', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $mt || $opt{default_media_type};

#line 40 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #7235)"

#line 40 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7233)"
;
        
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7234)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7236)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #7238)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #7240)"
}

#line 41 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #7247)"

#line 41 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7241)"
;
      }
      $r = $self->{db}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7242)"
get_resource
#line 43 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7243)"

                                            ($self->{$propName});
      $r->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7244)"
is_referred
#line 45 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7245)"
 ($self->{src});
    }
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7246)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7248)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #7250)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #7252)"
}

#line 47 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #7255)"

#line 47 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7253)"
;
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7254)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7256)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #7258)"
}
$r}
sub source_element ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #7265)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Attr[@Name=sourceElement][@type=DISLang:Attribute]/Get[@Type=ManakaiDISElement][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #7263)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Attr[@Name=sourceElement][@type=DISLang:Attribute]/Get[@Type=ManakaiDISElement][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #7261)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Attr[@Name=sourceElement][@type=DISLang:Attribute]/Get[@Type=ManakaiDISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #7259)"
$r = $self->{src};
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7260)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7262)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #7264)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7266)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #7267)"
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::ManakaiDISPropertyAccessor', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'source_element';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7268)"
}}
sub pl_implementation ($;$) {
if (@_ == 1) {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #7299)"
my ($self) = @_;
my $r;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Attr[@Name=plImplementation][@Type=MPLImpl][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #7297)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Attr[@Name=plImplementation][@Type=MPLImpl][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #7271)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Attr[@Name=plImplementation][@Type=MPLImpl][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #7269)"
($self->{src}) {
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7270)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7272)"

{
#line 1 "lib/Message/Util/DIS.dis [b] (Chunk #7287)"
local $Error::Depth = $Error::Depth + 1;

{
#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Attr[@Name=plImplementation][@Type=MPLImpl][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #7285)"

#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Attr[@Name=plImplementation][@Type=MPLImpl][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #7283)"

#line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Attr[@Name=plImplementation][@Type=MPLImpl][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #7273)"

    $r = ($self->{src}->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7274)"
owner_document or
                
#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Attr[@Name=plImplementation][@Type=MPLImpl][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #7275)"
$self->{src})->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7276)"
implementation
#line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Attr[@Name=plImplementation][@Type=MPLImpl][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #7277)"

                   ->
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7278)"
get_feature
#line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Attr[@Name=plImplementation][@Type=MPLImpl][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #7279)"

                           (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7280)"
'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/PerlCode'
#line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Attr[@Name=plImplementation][@Type=MPLImpl][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #7281)"
 => '1.0');
  
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7282)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7284)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #7286)"
}

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #7288)"
}

#line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Attr[@Name=plImplementation][@Type=MPLImpl][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #7291)"

#line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Attr[@Name=plImplementation][@Type=MPLImpl][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #7289)"
;
  unless (defined $r) {
    
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7290)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7292)"
report Message::Util::DIS::ManakaiDISException -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/2005/manakai/Util/DIS#NO_PERL_CODE_IMPL_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISPropertyAccessor', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'pl_implementation';

#line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Attr[@Name=plImplementation][@Type=MPLImpl][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #7295)"

#line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Attr[@Name=plImplementation][@Type=MPLImpl][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #7293)"
;
  }
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7294)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7296)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #7298)"
}
$r;

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7300)"
} else {
#line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #7301)"
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::ManakaiDISPropertyAccessor', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'pl_implementation';

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7302)"
}}
$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::DIS::ManakaiDISException;
our $VERSION = 20050904.1346;
push our @ISA, 'Message::Util::Error::DOMException::ManakaiDOMException';
sub HIERARCHY_REQUEST_ERR () {
3}
sub ___error_def () {

#line 1 "lib/Message/Util/DIS.dis [u] (Chunk #7303)"
{'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', '<Q::dis:Type> attribute is not found.'}, '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#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#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 #7304)"
}
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 = 20050904.1346;
sub ___report_error ($$) {
my ($self, $err) = @_;

{
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISExceptionTarget][@type=ManakaiDOM:Class]/IntMethod[@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #7311)"

#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISExceptionTarget][@type=ManakaiDOM:Class]/IntMethod[@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #7309)"
if 
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISExceptionTarget][@type=ManakaiDOM:Class]/IntMethod[@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7305)"
($err->isa (
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7306)"
'Message::Util::Error::DOMException::ManakaiDOMException'
#line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISExceptionTarget][@type=ManakaiDOM:Class]/IntMethod[@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7307)"
)) {
  $err->throw;
} else {
## TODO: Implement warning reporting
  warn $err->stringify;
}
#line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7308)"

#line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7310)"

#line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #7312)"
}
}
$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;
## License: <http://suika.fam.cx/~wakaba/archive/2004/8/18/license#Perl+MPL>
1;