make Match.Str return a Perl 6 Str

rakudo · May 30, 2010 · 8081285 · 8081285
1 parent 749fe91
commit 8081285
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/core/Match.pm b/src/core/Match.pm
@@ -1,10 +1,13 @@
 class Match is Regex::Match is Cool does Associative {
-
     method ast() {
         my $x = self.Regex::Match::ast;
         pir::isa__IPs($x, 'Undef') ?? Any !! $x;
     }
 
+    method Str() {
+        ~self.Regex::Match::Str;
+    }
+
     multi method postcircumfix:<{ }>($key) {
         Q:PIR {
             $P0 = find_lex 'self'