package Foo::Bar;
use constant DEBUG => $ENV{DEBUG_FOO_BAR};

# ...
warn "I'm being tested!" if DEBUG;