evalable6

query

package A { BEGIN { my $name = 'foo'; sub a { say 'OHAI!' } but role { method name { $name } }; trait_mod:<is>(:export, &a) } }; use A; foo;

result

(exit code 1) 
===SORRY!===
Could not find A at line 1 in:
    file#/home/bisectable/git/whateverable/sandbox/lib
    inst#/home/bisectable/.perl6
    inst#/tmp/whateverable/rakudo-moar/579ac66e8b8067e7ae1a4000aafd27983ee2bfc6/share/perl6/site
    inst#/tmp/whateverable/rakudo-moar/579ac66e8b8067e7ae1a4000aafd27983ee2bfc6/share/perl6/vendor
    inst#/tmp/whateverable/rakudo-moar/579ac66e8b8067e7ae1a4000aafd27983ee2bfc6/share/perl6/core
    ap#
    nqp#
    perl5#