Implement dotty version of colonpair named methods

perl6 · Jun 20, 2010 · 78a6c1d · 78a6c1d
1 parent 5142577
commit 78a6c1d
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 2 deletions.
diff --git a/src/NQP/Grammar.pm b/src/NQP/Grammar.pm
@@ -360,7 +360,7 @@ rule regex_declarator {
 
 token dotty {
     '.' 
-    [ <longname=identifier>
+    [ <longname=deflongname>
     | <?['"]> <quote> 
         [ <?[(]> || <.panic: "Quoted method name requires parenthesized arguments"> ]
     ]

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(4);
+plan(5);
 
 class Foo {
   method blarg() {
@@ -14,6 +14,10 @@ class Foo {
   method blast() {
     'ok 4 # string method calls work'
   }
+
+  method foo:bar<baz>() {
+    'ok 5 # colonpair named method call work'
+  }
 }
 
 class Bar {
@@ -33,3 +37,4 @@ say(blarg());
 say($foo.blargless);
 my $t := 'st';
 say($foo."bla$t"());
+say($foo.foo:bar<baz>());