#
# Dsay.pm
#
package Dsay;
use parent 'Exporter';
our @EXPORT = qw( %debug $d_area dsay );

our %debug;
our $d_area = "(default)";

sub dsay( @args ) {
    return
        unless $debug{ uc $d_area }
            || $debug{'ALL'};
    my $prefix =
        $d_area ne "(default)"
        ? "DEBUG $d_area: "
        : "DEBUG: ";
    say $prefix, @args;
}

1;