Nay -- an object of negative identity.

Nay.pm

package Nay;
use v5.36;

no warnings 'experimental::builtin';
use builtin 'false';
use overload 'bool' => sub { false };
use Exporter 'import';
our @EXPORT = qw(Nay);

my $Nay = bless {}, 'Nay';
sub Nay() { $Nay }
sub AUTOLOAD { $Nay }

1;

=head1 Nay

    use Nay;

    package Foo {
        sub bar { rand() > 0.5 ? $_[0] : undef }
        sub buz { "buz" }
    };

    my $foo = bless {}, 'Foo';

    # Append '// Nay' after calling methods that might return undef.
    # All following method calls may be reduced to Nay.
    my $buz = ($foo->bar() // Nay) -> buz();

    if ($buz) {
        say "buz() is called";
    } else {
        say "Nay.";
    }


=cut