Size: a a a
AK
OP
#ifdef DEBUG#define DEBUGLOG dprintf ...и без дебага вызовы макроса просто исчезнут из сырца
#else
#define DEBUGLOG
#endif
AE::log debug => "dump: %s", map {тут хекс-распечатка}
то он всё-таки выполнит и распарсит аргументы перед тем, как AE::log проверит, что щас таки не дебаг и ничего выводить не надоOP
VT
#ifdef DEBUG#define DEBUGLOG dprintf ...и без дебага вызовы макроса просто исчезнут из сырца
#else
#define DEBUGLOG
#endif
AE::log debug => "dump: %s", map {тут хекс-распечатка}
то он всё-таки выполнит и распарсит аргументы перед тем, как AE::log проверит, что щас таки не дебаг и ничего выводить не надоOP
VG
VG
VG
VG
use constant DEBUG => 0;
use v5.18;
if (DEBUG) {
say "debug!";
}
VG
-MO=Deparse, то этот if соптимизирует в ноль.VG
OP
VG
OP
AK
VG
VG
OP
AK
VG
# near the init section
use AnyEvent::Log;
my $debug_log = AnyEvent:Log::logger debug => \my $debug;
# and later in your program
$debug_log->("yo, stuff here") if $debug;
$debug and $debug_log->("123");