alabamenhu/Slang.rakumod Secret

## Slang.rakumod
sub EXPORT(|) {
    my role SlangTest {
        # This is a direct copy of the regular 'token' token
        token regex_declarator:sym<footoken> {
            <sym><.kok>
            :my %*RX;
            :my $*INTERPOLATE := 1;
            :my $*METHODTYPE := 'token';
            :my $*IN_DECL    := 'token';
            :my $*LINE_NO    := HLL::Compiler.lineof(self.orig(), self.from(), :cache(1));
            {
                %*RX<r> := 1;
            }
            <regex_def>
        }

        # This is a quick check that the slang is exported correctly
        token identifier {
            <.ident> [ [ <.apostrophe> | <[₀₁₂₃₄₅₆₇₈₉]>+ ] <.ident> ]* <[₀₁₂₃₄₅₆₇₈₉]>*
        }

    }

    my role SlangTestActions {
        # this is a direct copy of the regular 'token' method
        method regex_declarator:sym<footoken>($/, $key?) {
            make $<regex_def>.ast;
        }
    }

    $*LANG.define_slang:
            'MAIN',
            $*LANG.slang_grammar('MAIN').^mixin(SlangTest),
            $*LANG.actions.^mixin(SlangTestActions);
    {}
}

## SlangTest.raku
use lib '.';
use Slang;

my $a₂;

grammar Bar {
    footoken foo { 'foo' }
}

#`[
  | if changed to 'token', it compiles ok
  | but with 'footoken' we get:
  | Cannot find method 'package_at_key' on 'BOOTHash': no method cache and no .^find_method
  ]
	sub EXPORT(\|) {
	my role SlangTest {
	# This is a direct copy of the regular 'token' token
	token regex_declarator:sym<footoken> {
	<sym><.kok>
	:my %*RX;
	:my $*INTERPOLATE := 1;
	:my $*METHODTYPE := 'token';
	:my $*IN_DECL := 'token';
	:my $*LINE_NO := HLL::Compiler.lineof(self.orig(), self.from(), :cache(1));
	{
	%*RX<r> := 1;
	}
	<regex_def>
	}

	# This is a quick check that the slang is exported correctly
	token identifier {
	<.ident> [ [ <.apostrophe> \| <[₀₁₂₃₄₅₆₇₈₉]>+ ] <.ident> ]* <[₀₁₂₃₄₅₆₇₈₉]>*
	}

	}

	my role SlangTestActions {
	# this is a direct copy of the regular 'token' method
	method regex_declarator:sym<footoken>($/, $key?) {
	make $<regex_def>.ast;
	}
	}

	$*LANG.define_slang:
	'MAIN',
	$*LANG.slang_grammar('MAIN').^mixin(SlangTest),
	$*LANG.actions.^mixin(SlangTestActions);
	{}
	}
	use lib '.';
	use Slang;

	my $a₂;

	grammar Bar {
	footoken foo { 'foo' }
	}

	#`[
	\| if changed to 'token', it compiles ok
	\| but with 'footoken' we get:
	\| Cannot find method 'package_at_key' on 'BOOTHash': no method cache and no .^find_method
	]