Re^2: Changing the name of a function in the call stack

No XS needed:

use strict;
use warnings;
use Carp;


sub generate {
    my ( $name ) = @_ ;

    return sub {
        local *__ANON__ = $name              # M A G I C
          if $name;
        carp "***sub called***";
    }
}


sub super {
    my $not_named = generate();

    $not_named->();


    my $named = generate('HulaHoop');

    $named->();
}

super();
[download]

-*- mode: compilation; default-directory: "d:/tmp/pm/" -*- Compilation started at Fri Nov 19 21:13:52 C:/Strawberry/perl/bin\perl.exe -w d:/tmp/pm/name_anno_sub.pl ***sub called*** at d:/tmp/pm/name_anno_sub.pl line 12. main::__ANON__() called at d:/tmp/pm/name_anno_sub.pl line 20 main::super() called at d:/tmp/pm/name_anno_sub.pl line 28 ***sub called*** at d:/tmp/pm/name_anno_sub.pl line 12. main::HulaHoop() called at d:/tmp/pm/name_anno_sub.pl line 25 main::super() called at d:/tmp/pm/name_anno_sub.pl line 28 Compilation finished at Fri Nov 19 21:13:53
[download]

Cheers Rolf
_{(addicted to the Perl Programming Language :)

Wikisyntax for the Monastery}

Comment on Re^2: Changing the name of a function in the call stack Select or Download Code

Replies are listed 'Best First'.
Re^3: Changing the name of a function in the call stack by kikuchiyo (Hermit) on Nov 19, 2021 at 20:50 UTC
This is inferior to Sub::Name for two reasons: you have to put the magic line inside the anon sub all other anon subs down the call stack are renamed too, which is misleading `use strict; use warnings; use Carp; sub foo { my $bar = sub { carp "* inner anon sub called"; }; $bar->(); } sub generate { my ( $name ) = @_ ; return sub { local __ANON__ = $name if $name; carp "*sub called*"; foo(); } } sub super { my $not_named = generate(); $not_named->(); my $named = generate('HulaHoop'); $named->(); } super();` [download] Still, it's good to know that it's possible to do it in pure perl.	[reply] [d/l]
Re^4: Changing the name of a function in the call stack by LanX (Saint) on Nov 19, 2021 at 20:56 UTC
> This is inferior to Sub::Name for two reasons: well, I was aware of the side effects, but you said in the OP > create function wrappers, so I supposed you are going to automate the wrappers, hence all anon subs would be treated by your attribute handlers and you could de-localize the name before calling the wrapped sub. Anyway, I wouldn't be surprised if the mechanics of Sub::Name were possible without XS and just using methods from the `B` backend module Cheers Rolf _{(addicted to the Perl Programming Language :) Wikisyntax for the Monastery}	[reply]