http://www.perlmonks.org?node_id=164767


in reply to BEGIN and 'use' question

'use' implies a BEGIN block. Also, the DEBUG && BEGIN {} looks suspect to me. What you want instead is likely:

use constant DEBUG => 1;
BEGIN {
  if (! DEBUG) {
    require CGI::Carp;
    import  CGI::Carp qw/ fatalsToBrowser /;
  }
}

[download]


--jwest

-><- -><- -><- -><- -><-
All things are Perfect
    To every last Flaw
    And bound in accord
         With Eris's Law
 - HBT; The Book of Advice, 1:7

In Section Seekers of Perl Wisdom