gistfile1.txt

use v6;

sub eval-lives($code) {
    my $res = check-exception($code);
    say $res;
}

sub check-exception($code) {
    try {
        EVAL $code;
    }
    $!
}

role StubB { ... }; role StubB { method foo { } };
say "ok";
eval-lives 'role StubB { ... }; role StubB { method foo { } };';
say "ded :(";