gistfile1.txt

#!perl6

use v6;
use Slang::Tuxic;

class C {

    method foo (Str $s) {
        $s.say;
        }

    CHECK { "CHECK".say;
        sub alias (Str:D $m, *@aka) {
            my $r = C.^find_method ($m);
            for @aka -> $alias {
                $r.package.^add_method ($alias, $r);
                }
            }

        alias ("foo", < bar >);
        alias ("foo", < buz wru >);
        }
    }

C.foo ("foo");
C.bar ("bar");
C.wru ("wru");

=>

CHECK
foo
Cannot find method 'postcircumfix:<( )>'
  in block <unit> at x.pl:26