use 5.37.9;
use feature 'class';
no warnings 'experimental';
class No::New {
    use Carp;

    field $token :param;
    my %valid_tokens;

    ADJUST {
        delete $valid_tokens{$token}
          or  croak "Directly calling ", __PACKAGE__,
          "->new is forbidden";
    }

    sub valid_constructor {
	my $token = rand;
        $valid_tokens{$token} = 1;
	__PACKAGE__->new(token => $token);
    }

    method text {
	"Congratulations!";
    }
}

say No::New->valid_constructor->text;