mosdef.pm

use nqp;
use QAST:from<NQP>;

sub EXPORT(|) {

  role MOSDEF::Grammar {
    token def { [ \'.*?\' || \".*?\" || .]*? )> <before ';'> } # '
    rule routine_declarator:def { <sym> <routine_def('def')> }
    rule routine_declarator:sym<def> { <sym> <def> }

  }

  role MOSDEF::Actions {
    method routine_declarator:sym<def>($/) {
    #     self.routine_declarator:def:sym<sub>($/);
    #     say 'making def';
    #     make $<routine_def>.ast;
    }
  }

  nqp::bindkey(%*LANG, 'MAIN', %*LANG<MAIN>.HOW.mixin(%*LANG<MAIN>, MOSDEF::Grammar));
  nqp::bindkey(%*LANG, 'MAIN-actions', %*LANG<MAIN-actions>.HOW.mixin(%*LANG<MAIN-actions>, MOSDEF::Actions));
  {}
}

run.p6

use v6;
use lib '.';
use mosdef;

BEGIN {
say 'declaring with def';
}

def foo {
    say 'hi'
};

say 'calling foo';

foo;