In Perl, how can a subroutine get a coderef that points to itself?

Question

For learning purposes, I am toying around with the idea of building event-driven programs in Perl and noticed that it might be nice if a subroutine that was registered as an

Answer 1

If you don't change $cb's value again, you can use that. If not, define a scalar to hold that and don't change it ever again. For example:

my $cb = do {
  my $sub;
  $sub = sub { contents using $sub here }
}