Author: jonathan
Date: Tue May 6 09:56:00 2008
New Revision: 27350
Modified:
trunk/languages/perl6/src/parser/actions.pm
Log:
[rakudo] Panic on the unimplemented method call operators for now, so folks
know they don't work rather than think they're broken. :-)
Modified: trunk/languages/perl6/src/parser/actions.pm
==============================================================================
--- trunk/languages/perl6/src/parser/actions.pm (original)
+++ trunk/languages/perl6/src/parser/actions.pm Tue May 6 09:56:00 2008
@@ -733,6 +733,18 @@
method dotty($/, $key) {
my $past := $( $<methodop> );
+
+ if $key eq '.' {
+ # Just a normal method call; nothing to do.
+ }
+ elsif $key eq '!' {
+ # Private method call. Need to put ! on the start of the name.
+ $/.panic('Private method calls not yet implemented.')
+ }
+ elsif $key eq '.*' {
+ $/.panic($key ~ ' method calls not yet implemented.');
+ }
+
make $past;
}
