in reply to Re^2: simple symbolic reference Q
in thread simple symbolic reference Q

Why do you care about the name of the array? (If you really, really do, use Smart::Comments which works just fine with lexicals.)

(Why are you messing with the buffering of STDERR? Did you know that your code always loads Carp?)

Replies are listed 'Best First'.
Re^4: simple symbolic reference Q
by perl-diddler (Chaplain) on Oct 05, 2010 at 01:21 UTC
    I mess with buffering of both STDERR and STDOUT. I ensure that they are not buffered when Developing or Debugging code. I believe it is the case that STDERR may not be buffered in perl5, but I'd have to verify that to be sure. It's old template code.

    As for Carp, it's scope is limited to the conditional block. The fact that it is usually loaded is not really that important, as I don't know of any code that includes this template header, that I've removed the 'Devel=1' status on. :-)

    I'm aware that the if around the 'use' doesn't provide conditional compilation, if that was your point.

[reply]
      As for Carp, it's scope is limited to the conditional block.

      In my understanding, imported function names are available throughout the package into which they are imported. 

      >perl -wMstrict -le
"{ package Foo;
   cluck('1st cluck in ', __PACKAGE__);
   }
 ;
 print 'in ', __PACKAGE__;
 ;
 { package Foo;
   if (0) { use Carp qw(cluck); }
   cluck('2nd cluck in ', __PACKAGE__);
   }
 ;
 print 'again in ', __PACKAGE__;
 cluck('clucking in ', __PACKAGE__) if defined &cluck;
 ;
 { package Foo;
   cluck('3rd cluck in ', __PACKAGE__);
   }
"
1st cluck in Foo at -e line 1
in main
2nd cluck in Foo at -e line 1
again in main
3rd cluck in Foo at -e line 1

      [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom