type ExportScalar.pm
package ExportScalar;
use strict;
use warnings;
use Exporter;
our @ISA = qw( Exporter );
our @EXPORT_OK = qw( DEBUG );

our $DEBUG = 1;

sub DEBUG {
   if (@_) { $DEBUG = shift; }
   return $DEBUG;
}
1;