Help for this page

Select Code to Download


  1. or download this
    package Testing;

use strict;
...
our ($verbose, $debug) = (1,1);

1;
  2. or download this
    use strict;
use warnings;
use Testing qw(:config);

print "I am ", $verbose ? "" : "not ", "verbose\n";
print "I should ", $debug ? "" : "not ", "debug\n";
  3. or download this
    I am verbose
I should debug
  4. or download this
    I am not verbose
I should not debug