package Testing;

use strict;
use Exporter;

our @ISA = qw(Exporter);
our (%EXPORT_TAGS);

$EXPORT_TAGS{'config'} = [qw($verbose $debug)];
Exporter::export_ok_tags('config');

our ($verbose, $debug) = (1,1);

1;

##</code><code>##

use strict;
use warnings;
use Testing qw(:config);

print "I am ", $verbose ? "" : "not ", "verbose\n";
print "I should ", $debug ? "" : "not ", "debug\n";

##</code><code>##

I am verbose
I should debug

##</code><code>##

I am not verbose
I should not debug