As I didn't trust my own rolling of a Perl Singleton I grabbed that code directly from from CPAN's Singleton.pm. Though I'm guessing that the use of the Trinary in the CPAN version might give a performance boost over the clearer functionality your code expresses.