package Dsay;
use warnings;
use strict;
use feature qw{ say };
use experimental qw( signatures );

use Scope::Guard qw{ guard };

use Exporter qw{ import };
our @EXPORT = qw( %debug set_darea get_darea dsay );

our %debug;
my $d_area = '(default)';  # Not ours anymore!

sub set_darea($value) {
    my $old_value = $d_area;
    $d_area = $value;
    return guard { $d_area = $old_value }
}

sub get_darea() { $d_area }
# Etc.