From 157c8ddf6989a12bc3d6b8f671da8266cc93ebaf Mon Sep 17 00:00:00 2001
From: Jason Edward Stewart <jasons@apache.org>
Date: Mon, 28 Aug 2006 10:42:10 +0000
Subject: [PATCH] added DOMStringList::to_list()
git-svn-id: https://svn.apache.org/repos/asf/xerces/c/trunk@437636 13f79535-47bb-0310-9956-ffa450edef68
---
swig/interfaces/Perl/Xerces-extra.pm | 11 +++++++++++
1 file changed, 11 insertions(+)
diff --git a/swig/interfaces/Perl/Xerces-extra.pm b/swig/interfaces/Perl/Xerces-extra.pm
index 776e3f799..05b30f3e8 100644
--- a/swig/interfaces/Perl/Xerces-extra.pm
+++ b/swig/interfaces/Perl/Xerces-extra.pm
@@ -641,6 +641,17 @@ sub to_list {
return @list;
}
+package XML::Xerces::DOMStringList;
+# convert the StringList to a perl list
+sub to_list {
+ my $self = shift;
+ my @list;
+ for (my $i=0;$i<$self->getLength();$i++) {
+ push(@list,$self->item($i));
+ }
+ return @list;
+}
+
package XML::Xerces::Attributes;
sub to_hash {
my $self = shift;
--
GitLab