Any way to catch errors like this?

async-error.pl

use AnyEvent;

sub app {
  my $hook = shift;
  my $cv = AE::cv;

  # how to catch any unhandled errors in hook?
  $hook->(sub { $cv->send(@_) });

  $cv->recv;
}

sub user_hook {
  my $callback = shift;

  # user defined hook, could include timers,
  # AE::http requests, etc
  my $t; $t = AE::timer 1, 0, sub {
    undef $t;

    # some typo causes error
    die "something went wrong";

    # dies before calling callback
    $callback->("no errors");
  };
}

app(\&user_hook);

print "done!\n";