Singleton

// Database クラスには、getInstance メソッドがあり、クライアントがプロ
// グラム全体を通してデータベース接続の同じインスタンスにアクセスすること
// を可能とする。
class Database is
    // シングルトンのインスタンスを格納するためのフィールドは static と
    // 宣言されるべき。
    private static field instance: Database

    // new 演算子を使った直接の構築を防ぐため、シングルトンのコンストラク
    // ターは、private と宣言されるべき。
    private constructor Database() is
        // データベース・サーバーへの実際の接続等の初期化コード。
        // ……

    // シングルトン・インスタンスへのアクセスを管理するための静的メソッド。
    public static method getInstance() is
        if (Database.instance == null) then
            acquireThreadLock() and then
                // ロックのリリースを待っている間に他のスレッドにより本
                // インスタンスが初期化されていないことの確認。
                if (Database.instance == null) then
                    Database.instance = new Database()
        return Database.instance

    // 最後に、シングルトンはインスタンス上で実行できる何らかのビジネス・
    // ロジックを定義する必要あり。
    public method query(sql) is
        // たとえば、アプリのすべてのデータベース・クエリはこのメソッドを
        // 通して行う。したがって、ここにスロットリングやキャッシュ処理の
        // ためのロジックを置くことが可能。
        // ……

class Application is
    method main() is
        Database foo = Database.getInstance()
        foo.query("SELECT ……")
        // ……
        Database bar = Database.getInstance()
        bar.query("SELECT ……")
        // 変数 bar は、変数 foo と同じオブジェクトを保持。