develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r34953 - branches/rvar/compilers/pct/src/PCT

From:
pmichaud
Date:
January 4, 2009 20:27
Subject:
[svn:parrot] r34953 - branches/rvar/compilers/pct/src/PCT
Message ID:
20090105042717.D7FE7CB9F9@x12.develooper.com
Author: pmichaud
Date: Sun Jan  4 20:27:15 2009
New Revision: 34953

Modified:
   branches/rvar/compilers/pct/src/PCT/Node.pir

Log:
[pct]:  Add .clone method to PCT::Node .


Modified: branches/rvar/compilers/pct/src/PCT/Node.pir
==============================================================================
--- branches/rvar/compilers/pct/src/PCT/Node.pir	(original)
+++ branches/rvar/compilers/pct/src/PCT/Node.pir	Sun Jan  4 20:27:15 2009
@@ -97,6 +97,18 @@
 .end
 
 
+=item clone()
+
+Clone the node.
+
+=cut
+
+.sub 'clone' :method
+    $P0 = clone self
+    .return ($P0)
+.end
+
+
 =item unshift(child)
 
 Add C<child> to the beginning of the invocant's list of children.



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About