wrapped routine caller name?

logged.p6

use soft;
my @log;

sub loggit (*@args) {
    my $return = try { callwith(|@args) };

    #say &?ROUTINE.name; # Off by one call frame
    #say (&::CALLER::&?ROUTINE).name; # just plain wrong
    #.say for Backtrace.new.list; # the wrapped sub name doesn't appear in the backtrace

=begin fail
    # another failed attempt at finding the calling routine name
    die;
    CATCH {
        when X::AdHoc {
            my @frames = .backtrace[*];
            .say for @frames;
            .resume;
        }
        default {}
    }
=end fail

    # I want to somehow determine "root", "plus-one" or "div-two"

    push @log: "(the actual calling routine name): {@args.join(' ')} -> $return";
    $return
}

sub root     ($a) { sqrt $a }
sub plus-one ($a) { $a + 1  }
sub div-two  ($a) { $a / 2  }

&root    .wrap(&loggit);
&plus-one.wrap(&loggit);
&div-two .wrap(&loggit);

say 5.&(&div-two o &plus-one o &root);

.say for @log;