[perl #75836] [PATCH] Adding support for Capture.perl method

[via RT]

# New Ticket Created by  Stephane Payrard 
# Please include the string:  [perl #75836]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=75836 >


>From 7aab67d352ef4b6688d8ce9d11413825dc8ab3ec Mon Sep 17 00:00:00 2001
From: Stephane cognominal Payrard <cognomi...@gmail.com>
Date: Thu, 17 Jun 2010 22:47:00 +0200
Subject: [PATCH] Adding support for Capture.perl method

---
 build/Makefile.in   |    1 +
 src/core/Capture.pm |    5 +++++
 2 files changed, 6 insertions(+), 0 deletions(-)
 create mode 100644 src/core/Capture.pm

diff --git a/build/Makefile.in b/build/Makefile.in
index 548d07b..384b730 100644
--- 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
new file mode 100644
index 0000000..87f4b99
--- /dev/null
+++ b/src/core/Capture.pm
@@ -0,0 +1,5 @@
+augment class Capture {
+   method perl {
+      '\( '  ~   join(', ', @(self)>>.perl, %(self)>>.perl ) ~ ')'
+   }
+}
-- 
1.7.0.3.291.g5e4f6



-- 
cognominal stef