Apply patch from cognominal++ to implement Capture.perl.

rakudo · Jun 19, 2010 · 406d85f · 406d85f
1 parent dd6bda0
commit 406d85f
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git a/build/Makefile.in b/build/Makefile.in
@@ -226,6 +226,7 @@ CORE_SOURCES = \
   src/core/Attribute.pm \
   src/core/CallFrame.pm \
   src/core/LexPad.pm \
+  src/core/Capture.pm \
   src/core/MAIN.pm \
   src/core/YOU_ARE_HERE.pm \
 

diff --git a/src/core/Capture.pm b/src/core/Capture.pm
@@ -0,0 +1,5 @@
+augment class Capture {
+    method perl {
+        '\('  ~   join(', ', @(self)>>.perl, %(self)>>.perl ) ~ ')'
+    }
+}