Help for this page
package MyApp::SomeObject; use constant DEBUG => $ENV{MYAPP_DEBUG}; ... } ) : () ), );