Please note that this module is mainly new and untested code and is still under development, so it may change in the future.
if ($var & 0x7f == 65) {print "Gimme an A!"} print ($which ? $a : $b), "\n"; $name = $ENV{USER} or "Bob";B::Deparse,-p will print
if (($var & 0)) { print('Gimme an A!') }; (print(($which ? $a : $b)), '???'); (($name = $ENV{'USER'}) or '???')which probably isn't what you intended (the '???' is a sign that perl optimized away a constant value).
if (...) { ... } else { ... }instead of
if (...) { ... } else { ... }The default is not to cuddle.