*$_ = sub {
    __dbg { "Starting ${package}::${fname}(", join(',', @_), ')' } 4;
    my @ret = $fn->(@_);
};

##</code><code>##

*$_ = eval qq{sub $proto {
    __dbg { "Starting ${package}::${fname}(", join(',', \@_), ')' } 4;
    my \@ret = \$fn->(\@_);
}};