[svn:parrot] r38505 - trunk/compilers/pge/PGE

pmichaud at svn.parrot.org pmichaud at svn.parrot.org
Wed May 6 16:57:47 UTC 2009


Author: pmichaud
Date: Wed May  6 16:57:45 2009
New Revision: 38505
URL: https://trac.parrot.org/parrot/changeset/38505

Log:
[pge]:  Add .orig method.

Modified:
   trunk/compilers/pge/PGE/Match.pir

Modified: trunk/compilers/pge/PGE/Match.pir
==============================================================================
--- trunk/compilers/pge/PGE/Match.pir	Wed May  6 07:38:22 2009	(r38504)
+++ trunk/compilers/pge/PGE/Match.pir	Wed May  6 16:57:45 2009	(r38505)
@@ -241,6 +241,18 @@
 .end
 
 
+=item C<orig()>
+
+Return the original item being matched.
+
+=cut
+
+.sub 'orig' :method
+    $P0 = getattribute self, '$!target'
+    .return ($P0)
+.end
+
+
 =item C<item()>
 
 Returns the scalar value of this match -- the "result object"


More information about the parrot-commits mailing list