gfldex-been-naughty.raku

sub pry(Mu $the-object is raw) {
    class :: is Mu {
        has $.the-object;
        method WHY { 'This is a wrapper for `sub pry` around ' ~ $.the-object.WHAT.gist ~ '.' }
        method gist { self.WHY }
        method FALLBACK($name) is rw {
            say „$name was called“;
            use nqp;
            nqp::getattr($.the-object, $.the-object.WHAT, '$!' ~ $name)
        }
    }.new(:$the-object)
}

my \j = (1|2|3);

say j.&pry.WHY;
.say for j.&pry.eigenstates;