# This goes in Debug.pm...
package Debug;
use strict;


sub doit (&) {
  my $cref = shift;
  $cref->();
}

sub dontdoit (&) {}

# Export appropriate one as DEBUG

sub import {
  shift;
  my $package = caller || '';
  my $name = $_[1] || 'DEBUG';
  {
    no strict 'refs';
    * { "${package}::$name" } =
      (@_ && $_[0]) ? \&doit : \&dontdoit;
  }
}

1;