--- a/Lib/IMPL/DOM/Node.pm	Wed Sep 30 17:43:52 2009 +0400
+++ b/Lib/IMPL/DOM/Node.pm	Mon Oct 05 00:48:49 2009 +0400
@@ -167,6 +167,9 @@
     
     if (ref $query eq 'CODE') {
         @result = grep &$query($_), @{$this->childNodes};
+    } elsif (ref $query eq 'ARRAY' ) {
+        my %keys = map (($_,1),@$query);
+        @result = grep $keys{$_->nodeName}, @{$this->childNodes};
     } elsif (defined $query) {
         @result = grep $_->nodeName eq $query, @{$this->childNodes};
     } else {
@@ -246,4 +249,18 @@
     }
 }
 
+sub qname {
+    $_[0]->{$nodeName};
+}
+
+sub path {
+    my ($this) = @_;
+    
+    if ($this->parentNode) {
+        return $this->parentNode->path.'.'.$this->qname;
+    } else {
+        return $this->qname;
+    }
+}
+
 1;