Add $obj."method"(...) syntax.

perl6 · Nov 22, 2009 · 23bb989 · 23bb989
1 parent dae637e
commit 23bb989
Show file tree

Hide file tree

Showing 3 changed files with 13 additions and 3 deletions.
diff --git a/src/NQP/Actions.pm b/src/NQP/Actions.pm
@@ -461,7 +461,7 @@ method regex_declarator($/, $key?) {
 
 method dotty($/) {
     my $past := $<args> ?? $<args>[0].ast !! PAST::Op.new( :node($/) );
-    $past.name( ~$<identifier> );
+    $past.name( $<quote> ?? $<quote>.ast !! ~$<longname> );
     $past.pasttype('callmethod');
     make $past;
 }

diff --git a/src/NQP/Grammar.pm b/src/NQP/Grammar.pm
@@ -307,7 +307,12 @@ rule regex_declarator {
 }
 
 token dotty {
-    '.' <identifier>
+    '.' 
+    [ <longname=identifier>
+    | <?['"]> <quote> 
+        [ <?[(]> || <.panic: "Quoted method name requires parenthesized arguments"> ]
+    ]
+
     [
     | <?[(]> <args>
     | ':' \s <args=.arglist>

diff --git a/t/nqp/26-methodops.t b/t/nqp/26-methodops.t
@@ -2,7 +2,7 @@
 
 # method ops (just method calls for now)
 
-plan(3);
+plan(4);
 
 class Foo {
   method blarg() {
@@ -11,6 +11,9 @@ class Foo {
   method blargless() {
     'ok 3 # argument-less method calls work'
   }
+  method blast() {
+    'ok 4 # string method calls work'
+  }
 }
 
 class Bar {
@@ -28,3 +31,5 @@ my $foo := Foo.new();
 say($foo.blarg());
 say(blarg());
 say($foo.blargless);
+my $t := 'st';
+say($foo."bla$t"());