http://qs321.pair.com?node_id=947597


in reply to Re: Pre/post subroutine assertions and documentation module?
in thread Pre/post subroutine assertions and documentation module?

If you do this, you want to make $::test a constant, so it can be optimized away when you're done testing, e.g. 
use constant TEST => $ENV{TEST};

if (TEST) {
    ...
}

[download]

In Section Seekers of Perl Wisdom