Author: jasons
Date: Mon Aug 28 03:42:10 2006
New Revision: 437636
URL: http://svn.apache.org/viewvc?rev=437636&view=rev
Log:
added DOMStringList::to_list()
Modified:
xerces/c/trunk/swig/interfaces/Perl/Xerces-extra.pm
Modified: xerces/c/trunk/swig/interfaces/Perl/Xerces-extra.pm
URL:
http://svn.apache.org/viewvc/xerces/c/trunk/swig/interfaces/Perl/Xerces-extra.pm?rev=437636&r1=437635&r2=437636&view=diff
==============================================================================
--- xerces/c/trunk/swig/interfaces/Perl/Xerces-extra.pm (original)
+++ xerces/c/trunk/swig/interfaces/Perl/Xerces-extra.pm Mon Aug 28 03:42:10 2006
@@ -641,6 +641,17 @@
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;
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
