gistfile1.txt

sub f { 

    my @backtrace = Q:PIR {
        $P0 = getinterp
        $P1 = $P0['context']
        %r = $P1.'backtrace'()
    };

    for @backtrace -> $a {
        Q:PIR {
            $P0 = find_lex '$a'
            $P1 = $P0['sub']
            $P2 = typeof $P1
            say $P1
            say $P2
        };
    }
}

multi sub g { f; }; 
multi sub g($a) { f; $a; }

try {
    my $a = g;
}

say 'done';

gistfile2.txt

f
Sub
g
Sub
_block168
Sub
_block71
Sub
!UNIT_START
Sub
_block67
Sub
_block470
Sub
eval
Sub
evalfiles
Sub
command_line
Sub
main
Sub
done