initial Match.new - does not handle subcaptures yet

rakudo · Jul 12, 2010 · 94d01ff · 94d01ff
1 parent 129c37f
commit 94d01ff
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/src/core/Match.pm b/src/core/Match.pm
@@ -1,4 +1,15 @@
 class Match is Regex::Match is Cool does Positional does Associative {
+    method create(:$from, :$to, :$orig) {
+        my $new = self.bless(*);
+        pir::setattribute__vpsp($new, '$!from',   $from);
+        pir::setattribute__vpsp($new, '$!to',     $to);
+        pir::setattribute__vpsp($new, '$!target', $orig);
+
+        # TODO: handle :@positional, :%named
+
+        $new;
+    }
+
     method ast() {
         my $x = self.Regex::Match::ast;
         pir::isa__IPs($x, 'Undef') ?? Any !! $x;