sub Ro:Sham::Bo::DEBUG(){ !!1 }
sub Ro:Sham::Bo::DEBUG(){ !!0 }
package Ro:Sham::Bo;
use constant DEBUG => !!$ENV{PERL_RO_SHAM_BO};