Re: Naming Anonymous Subs


Just another Perl shrine
	PerlMonks

Re: Naming Anonymous Subs

by Elian (Parson)

on Oct 20, 2004 at 21:33 UTC ( [id://400995]=note: print w/replies, xml )

Need Help??

in reply to Naming Anonymous Subs

Any reason to not just shove the anonymous sub reference into the appropriate slot in the glob in the global namespace? Not that I'm against XS by any means, but:

   *Foo::Bar::baz{CODE} = $coderef

seems fairly straightforward...

Comment on Re: Naming Anonymous Subs

Replies are listed 'Best First'.

Re^2: Naming Anonymous Subs
by blokhead (Monsignor) on Oct 20, 2004 at 22:21 UTC

caller:

sub whoami {
    print +(caller 1)[3], $/
}
                                                                      
+          
*main::foo = sub { whoami() };
                                                                      
+          
foo();

__END__
main::__ANON__
[download]

DProf:

*main::foo = sub { sleep 1; };
                                                                      
+          
foo() for 1..5;

__END__
$ perl -d:DProf foo.pl
$ dprofpp tmon.out
Total Elapsed Time =  5.00996 Seconds
  User+System Time =        0 Seconds
Exclusive Times
%Time ExclSec CumulS #Calls sec/call Csec/c  Name
 0.00       - -0.000      5        -      -  main::__ANON__
[download]

There's a trick involving local *__ANON__, which works for caller but not DProf.

blokhead

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom