You mean, can a subroutine (specifically anonymous ones) get a reference to itself? Devel::Caller. I asked this question once before at Giving subroutines access to themselves.

Perfect, thanks diotalevi. I remembered doing it for named subs, but not anonymous ones.

---

Examine what is said, not who speaks.
"Efficiency is intelligent laziness." -David Dunham
"When I'm working on a problem, I never think about beauty. I think only how to solve the problem. But when I have finished, if the solution is not beautiful, I know it is wrong." -Richard Buckminster Fuller
If I understand your problem, I can solve it! Of course, the same can be said for you.

my $x;
$x = sub {
    # Do stuff.
    $x->();
    # Do more stuff
};
[download]

Update: As BrowserUk can't remember offering this advice, I confess that it might have been tye, or demerphq, or any number of the smart people on this board. I think it was that I read too many response from the British One that I had him on the brain. :-)

------
We are the carpenters and bricklayers of the Information Age.

The idea is a little like C++ templates, except not quite so brain-meltingly complicated. -- TheDamian, Exegesis 6

Please remember that I'm crufty and crochety. All opinions are purely mine and all code is untested, unless otherwise specified.

I do? When? Where? What else have I forgotten? Have I got a hole in my brain? Brain? What's a brain? What? Huh?

---

Examine what is said, not who speaks.
"Efficiency is intelligent laziness." -David Dunham
"When I'm working on a problem, I never think about beauty. I think only how to solve the problem. But when I have finished, if the solution is not beautiful, I know it is wrong." -Richard Buckminster Fuller
If I understand your problem, I can solve it! Of course, the same can be said for you.

It's cheating, but Sub::Recursive kind of does that with very little effort for you.

    use Sub::Recursive;
    #my $foo = sub { ... };
    my $foo = recursive { ... };
[download]

ihb