DB<22> use Carp qw/confess/ DB<23> $inner = sub { confess "INNER" } DB<24> sub outer { $inner->() } DB<25> outer() INNER at (eval 32)[C:/Perl_524/lib/perl5db.pl:737] line 2. main::__ANON__[(eval 32)[C:/Perl_524/lib/perl5db.pl:737]:2]() called at (eval 33)[C:/Perl_524/lib/perl5db.pl:737] line 2 main::outer() called at (eval 34)[C:/Perl_524/lib/perl5db.pl:737] line 2 ... #shortened outer(); ... #shortened DB<26> *inner = $inner DB<27> inner() INNER at (eval 32)[C:/Perl_524/lib/perl5db.pl:737] line 2. main::__ANON__[(eval 32)[C:/Perl_524/lib/perl5db.pl:737]:2]() called at (eval 36)[C:/Perl_524/lib/perl5db.pl:737] line 2 ... #shortened inner(); ... #shortened