kitty_help

sub install_AE_log_SIG_WARN {
    $SIG{__WARN__} = sub {
        scalar( grep /AnyEvent|\blog/, map { (caller($_))[0..3] } (1..3) )
            ? warn $_[0]
            : AE::log warn => &Carp::longmess;
    };
}