Re: Re: using Carp & CGI::Carp?

I don't have the old code handy anymore and of course when I try it now it works. Anyways, for the curious, this is what I'm using now:

# test to see if we're running under Apache/mod_perl and load
# the appropriate Carp module
BEGIN {
  if ($ENV{MOD_PERL}) {
    require CGI::Carp;
    import CGI::Carp qw(carp confess cluck croak fatalsToBrowser);
  } else {
    require Carp;
    import Carp qw(carp confess cluck croak);
  }
}
[download]

-Aaron

Comment on Re: Re: using Carp & CGI::Carp? Download Code

Replies are listed 'Best First'.
Re: Re: Re: using Carp & CGI::Carp? by chromatic (Archbishop) on Mar 24, 2003 at 19:50 UTC
The indirect object syntax in the `import` call trips my paranoid-o-meter. If this is appropriately near the beginning of the program, you're probably okay, but it's fraught with enough peril (or, I can never remember all of the rules when it is and isn't okay) that I'd rather write: `BEGIN { my @symbols = qw( carp confess cluck croak fatalsToBrowser ); if ($ENV{MOD_PERL}) { require CGI::Carp; CGI::Carp->import( @symbols, 'fatalsToBrowser' ); } else { require Carp; Carp->import( @symbols ); } }` [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re: Re: Re: using Carp & CGI::Carp?
by chromatic (Archbishop) on Mar 24, 2003 at 19:50 UTC

The indirect object syntax in the import call trips my paranoid-o-meter. If this is appropriately near the beginning of the program, you're probably okay, but it's fraught with enough peril (or, I can never remember all of the rules when it is and isn't okay) that I'd rather write:

BEGIN
{
    my @symbols = qw( carp confess cluck croak fatalsToBrowser );
    if ($ENV{MOD_PERL})
    {
        require CGI::Carp;
        CGI::Carp->import( @symbols, 'fatalsToBrowser' );
    }
    else
    {
        require Carp;
        Carp->import( @symbols );
    }
}
[download]

[reply]
[d/l]
[select]