ae_warn.pl

#!/usr/bin/perl
package CORE::GLOBAL;

use subs qw(warn);
use AnyEvent;
use AnyEvent::Log;
BEGIN {
    $ENV{'PERL_ANYEVENT_VERBOSE'} = 7;
    AnyEvent::Log::ctx->level('info');
    $AnyEvent::Log::FILTER->level ('info');
}

sub warn {
    AE::log error => join('' => @_)
}

package main;
use AnyEvent;
use AnyEvent::Log;

BEGIN { AnyEvent::Log::ctx->level('info') }
AnyEvent::Log::ctx->level('info');
$AnyEvent::Log::FILTER->level ('info');
#warn 'hello';
AE::log info => 'message!';
#AE::cv->recv;