Mercurial > pub > Impl

diff Lib/IMPL/DOM/Document.pm @ 37:c2e7f7c96bcd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
performance improvements, DOM reworked (a little)
author Sergey
date Mon, 23 Nov 2009 00:59:06 +0300
parents 1828103371d0
children 16ada169ca75
line wrap: on
line diff
--- a/Lib/IMPL/DOM/Document.pm	Fri Nov 20 16:48:08 2009 +0300
+++ b/Lib/IMPL/DOM/Document.pm	Mon Nov 23 00:59:06 2009 +0300
@@ -6,6 +6,10 @@
 
 __PACKAGE__->PassThroughArgs;
 
+sub document {
+    return $_[0];
+}
+
 sub Create {
     my ($this,$nodeName,$class,$refProps) = @_;
     
@@ -15,6 +19,7 @@
     
     return $class->new(
         nodeName => $nodeName,
+        document => $this,
         %$refProps
     );
 }