in reply to Constants imported from other perl scripts doesn't want to exist :(

Well, 
BEGIN {
  if ( $ENV{TEST} ) {
    use constant FOOBAR => 23,
  }
}
print 'Foobar: ', FOOBAR, "\n";

[download]
works just fine, if it's that what you're looking for.
Ordinary morality is for ordinary people. -- Aleister Crowley
  • Comment on Re: Constants imported from other perl scripts doesn't want to exist :(
  • Download Code

In Section Seekers of Perl Wisdom