Debug AnyEvent code with this one simple trick

gistfile1.pl

# #############################################################
# Paste the following code in your program.
# It will redefine AE::cv globally.
# You'll be able to pause in-between individual closures
# as they are called by the event loop. You'll
# also see the source code of the closure being called.
#
# Credits:
#  Brian D. Foy: http://www.effectiveperlprogramming.com/2011/09/enchant-closures-for-better-debugging-output/
# #############################################################

my $aecv = \&AE::cv;
*AE::cv = sub (;&) {
    my $fun = \&{shift @_};
    require B;
    my $gv = B::svref_2object($fun)->GV;
    require B::Deparse;
    my $deparse = B::Deparse->new;
    my $text = $deparse->coderef2text($fun);
       
    my $fun2 = sub {
       print "Next: $text\n";
       print "Enter to resume...";
       <STDIN>;
       $fun->(@_);
    };

    &$aecv( $fun2 );
};