1 |
#!/usr/bin/perl |
#!/usr/bin/perl |
2 |
## This file is automatically generated |
## This file is automatically generated |
3 |
## at 2006-03-31T07:55:39+00:00, |
## at 2006-06-18T03:19:52+00:00, |
4 |
## from file "../URI/Generic.dis", |
## from file "../URI/Generic.dis", |
5 |
## module <http://suika.fam.cx/~wakaba/archive/2005/manakai/URI/Generic>, |
## module <http://suika.fam.cx/~wakaba/archive/2005/manakai/URI/Generic>, |
6 |
## for <http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ManakaiDOMLatest>. |
## for <http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ManakaiDOMLatest>. |
9 |
require Message::DOM::DOMFeature; |
require Message::DOM::DOMFeature; |
10 |
require Message::Util::Error::DOMException; |
require Message::Util::Error::DOMException; |
11 |
package Message::URI::Generic; |
package Message::URI::Generic; |
12 |
our $VERSION = 20060331.0755; |
our $VERSION = 20060618.0319; |
13 |
package Message::URI::IFLatest::URIImplementation; |
package Message::URI::IFLatest::URIImplementation; |
14 |
our $VERSION = 20060331.0755; |
our $VERSION = 20060618.0319; |
15 |
package Message::URI::Generic::ManakaiURIImplementation; |
package Message::URI::Generic::ManakaiURIImplementation; |
16 |
our $VERSION = 20060331.0755; |
our $VERSION = 20060618.0319; |
17 |
push our @ISA, 'Message::DOM::DOMFeature::ManakaiMinimumImplementation', |
push our @ISA, 'Message::DOM::DOMFeature::ManakaiMinimumImplementation', |
18 |
'Message::DOM::IF::GetFeature', |
'Message::DOM::IF::GetFeature', |
19 |
'Message::DOM::IF::MinimumImplementation', |
'Message::DOM::IF::MinimumImplementation', |
47 |
|
|
48 |
|
|
49 |
|
|
50 |
;} |
} |
51 |
|
|
52 |
|
|
53 |
;} |
;} |
65 |
} |
} |
66 |
|
|
67 |
|
|
68 |
;} |
} |
69 |
$r} |
$r} |
70 |
$Message::DOM::ImplFeature{q<Message::URI::Generic::ManakaiURIImplementation>}->{q<http://suika.fam.cx/www/2006/feature/uri>}->{q<4.0>} ||= 1; |
$Message::DOM::ImplFeature{q<Message::URI::Generic::ManakaiURIImplementation>}->{q<http://suika.fam.cx/www/2006/feature/uri>}->{q<4.0>} ||= 1; |
71 |
$Message::DOM::ImplFeature{q<Message::URI::Generic::ManakaiURIImplementation>}->{q<http://suika.fam.cx/www/2006/feature/uri>}->{q<>} = 1; |
$Message::DOM::ImplFeature{q<Message::URI::Generic::ManakaiURIImplementation>}->{q<http://suika.fam.cx/www/2006/feature/uri>}->{q<>} = 1; |
90 |
$Message::Util::Grove::ClassProp{q<Message::URI::Generic::ManakaiURIImplementation>} = {'v1h', |
$Message::Util::Grove::ClassProp{q<Message::URI::Generic::ManakaiURIImplementation>} = {'v1h', |
91 |
['lpmi']}; |
['lpmi']}; |
92 |
package Message::URI::IFLatest::URIReference; |
package Message::URI::IFLatest::URIReference; |
93 |
our $VERSION = 20060331.0755; |
our $VERSION = 20060618.0319; |
94 |
package Message::URI::Generic::ManakaiURIReference; |
package Message::URI::Generic::ManakaiURIReference; |
95 |
our $VERSION = 20060331.0755; |
our $VERSION = 20060618.0319; |
96 |
push our @ISA, 'Message::URI::IF::URIReference', |
push our @ISA, 'Message::URI::IF::URIReference', |
97 |
'Message::URI::IFLatest::URIReference'; |
'Message::URI::IFLatest::URIReference'; |
98 |
sub _new ($$) { |
sub _new ($$) { |
122 |
; |
; |
123 |
|
|
124 |
|
|
125 |
;} |
} |
126 |
$r} |
$r} |
127 |
sub uri_reference ($;$) { |
sub uri_reference ($;$) { |
128 |
if (@_ == 1) {my ($self) = @_; |
if (@_ == 1) {my ($self) = @_; |
134 |
$r = $$self; |
$r = $$self; |
135 |
|
|
136 |
|
|
137 |
;} |
} |
138 |
$r; |
$r; |
139 |
} else {my ($self, $given) = @_; |
} else {my ($self, $given) = @_; |
140 |
|
|
158 |
|
|
159 |
|
|
160 |
|
|
161 |
;} |
} |
162 |
|
|
163 |
|
|
164 |
;} |
;} |
166 |
; |
; |
167 |
|
|
168 |
|
|
169 |
;} |
} |
170 |
} |
} |
171 |
} |
} |
172 |
sub stringify ($) { |
sub stringify ($) { |
179 |
$r = $$self; |
$r = $$self; |
180 |
|
|
181 |
|
|
182 |
;} |
} |
183 |
$r} |
$r} |
184 |
sub _on_scheme_changed ($) { |
sub _on_scheme_changed ($) { |
185 |
my ($self) = @_; |
my ($self) = @_; |
222 |
} |
} |
223 |
|
|
224 |
|
|
225 |
;} |
} |
226 |
$r; |
$r; |
227 |
} else {my ($self, $given) = @_; |
} else {my ($self, $given) = @_; |
228 |
|
|
249 |
|
|
250 |
|
|
251 |
|
|
252 |
;} |
} |
253 |
|
|
254 |
|
|
255 |
;} |
;} |
275 |
|
|
276 |
|
|
277 |
|
|
278 |
;} |
} |
279 |
|
|
280 |
|
|
281 |
;} |
;} |
284 |
} |
} |
285 |
|
|
286 |
|
|
287 |
;} |
} |
288 |
} |
} |
289 |
} |
} |
290 |
sub uri_authority ($;$) { |
sub uri_authority ($;$) { |
303 |
} |
} |
304 |
|
|
305 |
|
|
306 |
;} |
} |
307 |
$r; |
$r; |
308 |
} else {my ($self, $given) = @_; |
} else {my ($self, $given) = @_; |
309 |
|
|
330 |
|
|
331 |
|
|
332 |
|
|
333 |
;} |
} |
334 |
|
|
335 |
|
|
336 |
;} |
;} |
356 |
|
|
357 |
|
|
358 |
|
|
359 |
;} |
} |
360 |
|
|
361 |
|
|
362 |
;} |
;} |
366 |
} |
} |
367 |
|
|
368 |
|
|
369 |
;} |
} |
370 |
} |
} |
371 |
} |
} |
372 |
sub uri_userinfo ($;$) { |
sub uri_userinfo ($;$) { |
397 |
|
|
398 |
|
|
399 |
|
|
400 |
;} |
} |
401 |
|
|
402 |
|
|
403 |
;} |
;} |
405 |
; |
; |
406 |
|
|
407 |
|
|
408 |
;} |
} |
409 |
$r; |
$r; |
410 |
} else {my ($self, $given) = @_; |
} else {my ($self, $given) = @_; |
411 |
|
|
444 |
|
|
445 |
|
|
446 |
|
|
447 |
;} |
} |
448 |
|
|
449 |
|
|
450 |
;} |
;} |
452 |
; |
; |
453 |
|
|
454 |
|
|
455 |
;} |
} |
456 |
} |
} |
457 |
} |
} |
458 |
sub uri_host ($;$) { |
sub uri_host ($;$) { |
485 |
|
|
486 |
|
|
487 |
|
|
488 |
;} |
} |
489 |
|
|
490 |
|
|
491 |
;} |
;} |
493 |
; |
; |
494 |
|
|
495 |
|
|
496 |
;} |
} |
497 |
$r; |
$r; |
498 |
} else {my ($self, $given) = @_; |
} else {my ($self, $given) = @_; |
499 |
|
|
531 |
|
|
532 |
|
|
533 |
|
|
534 |
;} |
} |
535 |
|
|
536 |
|
|
537 |
;} |
;} |
539 |
; |
; |
540 |
|
|
541 |
|
|
542 |
;} |
} |
543 |
} |
} |
544 |
} |
} |
545 |
sub uri_port ($;$) { |
sub uri_port ($;$) { |
570 |
|
|
571 |
|
|
572 |
|
|
573 |
;} |
} |
574 |
|
|
575 |
|
|
576 |
;} |
;} |
578 |
; |
; |
579 |
|
|
580 |
|
|
581 |
;} |
} |
582 |
$r; |
$r; |
583 |
} else {my ($self, $given) = @_; |
} else {my ($self, $given) = @_; |
584 |
|
|
617 |
|
|
618 |
|
|
619 |
|
|
620 |
;} |
} |
621 |
|
|
622 |
|
|
623 |
;} |
;} |
625 |
; |
; |
626 |
|
|
627 |
|
|
628 |
;} |
} |
629 |
} |
} |
630 |
} |
} |
631 |
sub uri_path ($;$) { |
sub uri_path ($;$) { |
640 |
} |
} |
641 |
|
|
642 |
|
|
643 |
;} |
} |
644 |
$r; |
$r; |
645 |
} else {my ($self, $given) = @_; |
} else {my ($self, $given) = @_; |
646 |
|
|
666 |
|
|
667 |
|
|
668 |
|
|
669 |
;} |
} |
670 |
|
|
671 |
|
|
672 |
;} |
;} |
675 |
} |
} |
676 |
|
|
677 |
|
|
678 |
;} |
} |
679 |
} |
} |
680 |
} |
} |
681 |
sub uri_query ($;$) { |
sub uri_query ($;$) { |
694 |
} |
} |
695 |
|
|
696 |
|
|
697 |
;} |
} |
698 |
$r; |
$r; |
699 |
} else {my ($self, $given) = @_; |
} else {my ($self, $given) = @_; |
700 |
|
|
720 |
|
|
721 |
|
|
722 |
|
|
723 |
;} |
} |
724 |
|
|
725 |
|
|
726 |
;} |
;} |
729 |
} |
} |
730 |
|
|
731 |
|
|
732 |
;} |
} |
733 |
} |
} |
734 |
} |
} |
735 |
sub uri_fragment ($;$) { |
sub uri_fragment ($;$) { |
748 |
} |
} |
749 |
|
|
750 |
|
|
751 |
;} |
} |
752 |
$r; |
$r; |
753 |
} else {my ($self, $given) = @_; |
} else {my ($self, $given) = @_; |
754 |
|
|
773 |
|
|
774 |
|
|
775 |
|
|
776 |
;} |
} |
777 |
|
|
778 |
|
|
779 |
;} |
;} |
782 |
} |
} |
783 |
|
|
784 |
|
|
785 |
;} |
} |
786 |
} |
} |
787 |
} |
} |
788 |
sub get_uri_path_segment ($$) { |
sub get_uri_path_segment ($$) { |
808 |
|
|
809 |
|
|
810 |
|
|
811 |
;} |
} |
812 |
|
|
813 |
|
|
814 |
;} |
;} |
816 |
; |
; |
817 |
|
|
818 |
|
|
819 |
;} |
} |
820 |
$r} |
$r} |
821 |
sub set_uri_path_segment ($$;$) { |
sub set_uri_path_segment ($$;$) { |
822 |
my ($self, $index, $newValue) = @_; |
my ($self, $index, $newValue) = @_; |
847 |
|
|
848 |
|
|
849 |
|
|
850 |
;} |
} |
851 |
|
|
852 |
|
|
853 |
;} |
;} |
855 |
; |
; |
856 |
|
|
857 |
|
|
858 |
;} |
} |
859 |
} |
} |
860 |
sub is_uri ($;$) { |
sub is_uri ($;$) { |
861 |
if (@_ == 1) {my ($self) = @_; |
if (@_ == 1) {my ($self) = @_; |
878 |
|
|
879 |
|
|
880 |
|
|
881 |
;} |
} |
882 |
|
|
883 |
|
|
884 |
;} |
;} |
886 |
; |
; |
887 |
|
|
888 |
|
|
889 |
;} |
} |
890 |
$r; |
$r; |
891 |
} else {my ($self) = @_; |
} else {my ($self) = @_; |
892 |
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::URI::Generic::ManakaiURIReference', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'is_uri'; |
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::URI::Generic::ManakaiURIReference', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'is_uri'; |
966 |
} |
} |
967 |
|
|
968 |
|
|
969 |
;} |
} |
970 |
|
|
971 |
; |
; |
972 |
last V unless $isv6; |
last V unless $isv6; |
989 |
} # V |
} # V |
990 |
|
|
991 |
|
|
992 |
;} |
} |
993 |
$r; |
$r; |
994 |
} else {my ($self) = @_; |
} else {my ($self) = @_; |
995 |
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::URI::Generic::ManakaiURIReference', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'is_uri_3986'; |
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::URI::Generic::ManakaiURIReference', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'is_uri_3986'; |
1016 |
|
|
1017 |
|
|
1018 |
|
|
1019 |
;} |
} |
1020 |
|
|
1021 |
|
|
1022 |
;} |
;} |
1024 |
; |
; |
1025 |
|
|
1026 |
|
|
1027 |
;} |
} |
1028 |
$r; |
$r; |
1029 |
} else {my ($self) = @_; |
} else {my ($self) = @_; |
1030 |
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::URI::Generic::ManakaiURIReference', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'is_relative_reference'; |
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::URI::Generic::ManakaiURIReference', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'is_relative_reference'; |
1104 |
} |
} |
1105 |
|
|
1106 |
|
|
1107 |
;} |
} |
1108 |
|
|
1109 |
; |
; |
1110 |
last V unless $isv6; |
last V unless $isv6; |
1127 |
} # V |
} # V |
1128 |
|
|
1129 |
|
|
1130 |
;} |
} |
1131 |
$r; |
$r; |
1132 |
} else {my ($self) = @_; |
} else {my ($self) = @_; |
1133 |
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::URI::Generic::ManakaiURIReference', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'is_relative_reference_3986'; |
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::URI::Generic::ManakaiURIReference', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'is_relative_reference_3986'; |
1154 |
|
|
1155 |
|
|
1156 |
|
|
1157 |
;} |
} |
1158 |
|
|
1159 |
|
|
1160 |
;} |
;} |
1162 |
; |
; |
1163 |
|
|
1164 |
|
|
1165 |
;} |
} |
1166 |
$r; |
$r; |
1167 |
} else {my ($self) = @_; |
} else {my ($self) = @_; |
1168 |
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::URI::Generic::ManakaiURIReference', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'is_uri_reference'; |
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::URI::Generic::ManakaiURIReference', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'is_uri_reference'; |
1192 |
|
|
1193 |
|
|
1194 |
|
|
1195 |
;} |
} |
1196 |
|
|
1197 |
|
|
1198 |
;} |
;} |
1200 |
; |
; |
1201 |
|
|
1202 |
|
|
1203 |
;} |
} |
1204 |
$r; |
$r; |
1205 |
} else {my ($self) = @_; |
} else {my ($self) = @_; |
1206 |
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::URI::Generic::ManakaiURIReference', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'is_uri_reference_3986'; |
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::URI::Generic::ManakaiURIReference', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'is_uri_reference_3986'; |
1227 |
|
|
1228 |
|
|
1229 |
|
|
1230 |
;} |
} |
1231 |
|
|
1232 |
|
|
1233 |
;} |
;} |
1235 |
; |
; |
1236 |
|
|
1237 |
|
|
1238 |
;} |
} |
1239 |
$r; |
$r; |
1240 |
} else {my ($self) = @_; |
} else {my ($self) = @_; |
1241 |
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::URI::Generic::ManakaiURIReference', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'is_absolute_uri'; |
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::URI::Generic::ManakaiURIReference', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'is_absolute_uri'; |
1262 |
|
|
1263 |
|
|
1264 |
|
|
1265 |
;} |
} |
1266 |
|
|
1267 |
|
|
1268 |
;} |
;} |
1270 |
; |
; |
1271 |
|
|
1272 |
|
|
1273 |
;} |
} |
1274 |
$r; |
$r; |
1275 |
} else {my ($self) = @_; |
} else {my ($self) = @_; |
1276 |
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::URI::Generic::ManakaiURIReference', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'is_absolute_uri_3986'; |
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::URI::Generic::ManakaiURIReference', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'is_absolute_uri_3986'; |
1286 |
$r = ($$self eq ''); |
$r = ($$self eq ''); |
1287 |
|
|
1288 |
|
|
1289 |
;} |
} |
1290 |
$r; |
$r; |
1291 |
} else {my ($self) = @_; |
} else {my ($self) = @_; |
1292 |
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::URI::Generic::ManakaiURIReference', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'is_empty_reference'; |
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::URI::Generic::ManakaiURIReference', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'is_empty_reference'; |
1313 |
|
|
1314 |
|
|
1315 |
|
|
1316 |
;} |
} |
1317 |
|
|
1318 |
|
|
1319 |
;} |
;} |
1321 |
; |
; |
1322 |
|
|
1323 |
|
|
1324 |
;} |
} |
1325 |
$r; |
$r; |
1326 |
} else {my ($self) = @_; |
} else {my ($self) = @_; |
1327 |
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::URI::Generic::ManakaiURIReference', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'is_iri'; |
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::URI::Generic::ManakaiURIReference', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'is_iri'; |
1405 |
} |
} |
1406 |
|
|
1407 |
|
|
1408 |
;} |
} |
1409 |
|
|
1410 |
; |
; |
1411 |
last V unless $isv6; |
last V unless $isv6; |
1428 |
} # V |
} # V |
1429 |
|
|
1430 |
|
|
1431 |
;} |
} |
1432 |
$r; |
$r; |
1433 |
} else {my ($self) = @_; |
} else {my ($self) = @_; |
1434 |
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::URI::Generic::ManakaiURIReference', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'is_iri_3987'; |
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::URI::Generic::ManakaiURIReference', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'is_iri_3987'; |
1455 |
|
|
1456 |
|
|
1457 |
|
|
1458 |
;} |
} |
1459 |
|
|
1460 |
|
|
1461 |
;} |
;} |
1463 |
; |
; |
1464 |
|
|
1465 |
|
|
1466 |
;} |
} |
1467 |
$r; |
$r; |
1468 |
} else {my ($self) = @_; |
} else {my ($self) = @_; |
1469 |
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::URI::Generic::ManakaiURIReference', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'is_relative_iri_reference'; |
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::URI::Generic::ManakaiURIReference', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'is_relative_iri_reference'; |
1547 |
} |
} |
1548 |
|
|
1549 |
|
|
1550 |
;} |
} |
1551 |
|
|
1552 |
; |
; |
1553 |
last V unless $isv6; |
last V unless $isv6; |
1570 |
} # V |
} # V |
1571 |
|
|
1572 |
|
|
1573 |
;} |
} |
1574 |
$r; |
$r; |
1575 |
} else {my ($self) = @_; |
} else {my ($self) = @_; |
1576 |
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::URI::Generic::ManakaiURIReference', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'is_relative_iri_reference_3987'; |
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::URI::Generic::ManakaiURIReference', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'is_relative_iri_reference_3987'; |
1597 |
|
|
1598 |
|
|
1599 |
|
|
1600 |
;} |
} |
1601 |
|
|
1602 |
|
|
1603 |
;} |
;} |
1605 |
; |
; |
1606 |
|
|
1607 |
|
|
1608 |
;} |
} |
1609 |
$r; |
$r; |
1610 |
} else {my ($self) = @_; |
} else {my ($self) = @_; |
1611 |
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::URI::Generic::ManakaiURIReference', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'is_iri_reference'; |
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::URI::Generic::ManakaiURIReference', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'is_iri_reference'; |
1635 |
|
|
1636 |
|
|
1637 |
|
|
1638 |
;} |
} |
1639 |
|
|
1640 |
|
|
1641 |
;} |
;} |
1643 |
; |
; |
1644 |
|
|
1645 |
|
|
1646 |
;} |
} |
1647 |
$r; |
$r; |
1648 |
} else {my ($self) = @_; |
} else {my ($self) = @_; |
1649 |
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::URI::Generic::ManakaiURIReference', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'is_iri_reference_3987'; |
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::URI::Generic::ManakaiURIReference', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'is_iri_reference_3987'; |
1670 |
|
|
1671 |
|
|
1672 |
|
|
1673 |
;} |
} |
1674 |
|
|
1675 |
|
|
1676 |
;} |
;} |
1678 |
; |
; |
1679 |
|
|
1680 |
|
|
1681 |
;} |
} |
1682 |
$r; |
$r; |
1683 |
} else {my ($self) = @_; |
} else {my ($self) = @_; |
1684 |
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::URI::Generic::ManakaiURIReference', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'is_absolute_iri'; |
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::URI::Generic::ManakaiURIReference', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'is_absolute_iri'; |
1705 |
|
|
1706 |
|
|
1707 |
|
|
1708 |
;} |
} |
1709 |
|
|
1710 |
|
|
1711 |
;} |
;} |
1713 |
; |
; |
1714 |
|
|
1715 |
|
|
1716 |
;} |
} |
1717 |
$r; |
$r; |
1718 |
} else {my ($self) = @_; |
} else {my ($self) = @_; |
1719 |
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::URI::Generic::ManakaiURIReference', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'is_absolute_iri_3987'; |
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::URI::Generic::ManakaiURIReference', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'is_absolute_iri_3987'; |
1740 |
|
|
1741 |
|
|
1742 |
|
|
1743 |
;} |
} |
1744 |
|
|
1745 |
|
|
1746 |
;} |
;} |
1748 |
; |
; |
1749 |
|
|
1750 |
|
|
1751 |
;} |
} |
1752 |
$r} |
$r} |
1753 |
sub get_uri_reference_3986 ($) { |
sub get_uri_reference_3986 ($) { |
1754 |
my ($self) = @_; |
my ($self) = @_; |
1774 |
|
|
1775 |
|
|
1776 |
|
|
1777 |
;} |
} |
1778 |
|
|
1779 |
|
|
1780 |
;} |
;} |
1782 |
; |
; |
1783 |
|
|
1784 |
|
|
1785 |
;} |
} |
1786 |
$r} |
$r} |
1787 |
sub get_iri_reference ($) { |
sub get_iri_reference ($) { |
1788 |
my ($self) = @_; |
my ($self) = @_; |
1805 |
|
|
1806 |
|
|
1807 |
|
|
1808 |
;} |
} |
1809 |
|
|
1810 |
|
|
1811 |
;} |
;} |
1813 |
; |
; |
1814 |
|
|
1815 |
|
|
1816 |
;} |
} |
1817 |
$r} |
$r} |
1818 |
sub get_iri_reference_3987 ($) { |
sub get_iri_reference_3987 ($) { |
1819 |
my ($self) = @_; |
my ($self) = @_; |
2152 |
|
|
2153 |
|
|
2154 |
|
|
2155 |
;} |
} |
2156 |
|
|
2157 |
|
|
2158 |
;} |
;} |
2160 |
; |
; |
2161 |
|
|
2162 |
|
|
2163 |
;} |
} |
2164 |
$r} |
$r} |
2165 |
sub get_absolute_reference ($$;%) { |
sub get_absolute_reference ($$;%) { |
2166 |
my ($self, $base, %opt) = @_; |
my ($self, $base, %opt) = @_; |
2184 |
|
|
2185 |
|
|
2186 |
|
|
2187 |
;} |
} |
2188 |
|
|
2189 |
|
|
2190 |
;} |
;} |
2192 |
; |
; |
2193 |
|
|
2194 |
|
|
2195 |
;} |
} |
2196 |
$r} |
$r} |
2197 |
sub get_absolute_reference_3986 ($$%) { |
sub get_absolute_reference_3986 ($$%) { |
2198 |
my ($self, $base, %opt) = @_; |
my ($self, $base, %opt) = @_; |
2332 |
|
|
2333 |
|
|
2334 |
|
|
2335 |
;} |
} |
2336 |
|
|
2337 |
|
|
2338 |
;} |
;} |
2340 |
; |
; |
2341 |
|
|
2342 |
|
|
2343 |
;} |
} |
2344 |
$r} |
$r} |
2345 |
sub get_absolute_reference_3987 ($$;%) { |
sub get_absolute_reference_3987 ($$;%) { |
2346 |
my ($self, $base, %opt) = @_; |
my ($self, $base, %opt) = @_; |
2364 |
|
|
2365 |
|
|
2366 |
|
|
2367 |
;} |
} |
2368 |
|
|
2369 |
|
|
2370 |
;} |
;} |
2372 |
; |
; |
2373 |
|
|
2374 |
|
|
2375 |
;} |
} |
2376 |
$r} |
$r} |
2377 |
sub is_same_document_reference ($$) { |
sub is_same_document_reference ($$) { |
2378 |
my ($self, $base) = @_; |
my ($self, $base) = @_; |
2395 |
|
|
2396 |
|
|
2397 |
|
|
2398 |
;} |
} |
2399 |
|
|
2400 |
|
|
2401 |
;} |
;} |
2403 |
; |
; |
2404 |
|
|
2405 |
|
|
2406 |
;} |
} |
2407 |
$r} |
$r} |
2408 |
sub is_same_document_reference_3986 ($$;%) { |
sub is_same_document_reference_3986 ($$;%) { |
2409 |
my ($self, $base, %opt) = @_; |
my ($self, $base, %opt) = @_; |
2448 |
|
|
2449 |
|
|
2450 |
|
|
2451 |
;} |
} |
2452 |
|
|
2453 |
|
|
2454 |
;} |
;} |
2456 |
; |
; |
2457 |
|
|
2458 |
|
|
2459 |
;} |
} |
2460 |
$r} |
$r} |
2461 |
sub get_relative_reference ($$) { |
sub get_relative_reference ($$) { |
2462 |
my ($self, $base) = @_; |
my ($self, $base) = @_; |
2599 |
|
|
2600 |
|
|
2601 |
|
|
2602 |
;} |
} |
2603 |
|
|
2604 |
|
|
2605 |
;} |
;} |
2607 |
; |
; |
2608 |
|
|
2609 |
|
|
2610 |
;} |
} |
2611 |
$r} |
$r} |
2612 |
sub clone ($) { |
sub clone ($) { |
2613 |
my ($self) = @_; |
my ($self) = @_; |
2622 |
; |
; |
2623 |
|
|
2624 |
|
|
2625 |
;} |
} |
2626 |
$r} |
$r} |
2627 |
*clone_uri_reference = \&clone; |
*clone_uri_reference = \&clone; |
2628 |
use overload |
use overload |
2650 |
|
|
2651 |
|
|
2652 |
|
|
2653 |
;} |
} |
2654 |
|
|
2655 |
|
|
2656 |
;} |
;} |
2659 |
} |
} |
2660 |
|
|
2661 |
|
|
2662 |
;} |
} |
2663 |
$r} |
$r} |
2664 |
, |
, |
2665 |
fallback => 1; |
fallback => 1; |