diff Lib/IMPL/DOM/Node.pm @ 109:ddf0f037d460

IMPL::DOM::Node updated to support TT, (added childNodesRef and selectNodesRef for using from TT) Some fixes to the web document model. (beta version)
author wizard
date Mon, 17 May 2010 05:12:08 +0400
parents c6fb6964de4c
children 7b14e0122b79
line wrap: on
line diff
--- a/Lib/IMPL/DOM/Node.pm	Fri May 14 16:06:06 2010 +0400
+++ b/Lib/IMPL/DOM/Node.pm	Mon May 17 05:12:08 2010 +0400
@@ -96,6 +96,11 @@
     return wantarray ? @{ $this->{$childNodes} } : $this->{$childNodes};
 }
 
+sub childNodesRef {
+	my ($this) = @_;
+	return scalar $this->_getChildNodes;
+}
+
 sub removeNode {
     my ($this,$node) = @_;
     
@@ -197,6 +202,13 @@
 	return wantarray ? @set : \@set;   
 }
 
+sub selectNodesRef {
+	my $this = shift;
+	
+	my @result = $this->selectNodes(@_);
+	return \@result;
+}
+
 sub translatePath {
 	my ($this,$path) = @_;