package Debug {

    use Role::Tiny;
    use feature qw(say);
    requires qw(debug);

    say __PACKAGE__;

    sub spew {
        my ( $self, $message ) = @_;
        $message if $self->debug;
    }

    1;
}