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