Hatena::Groupdann

dann's blog このページをアンテナに追加 RSSフィード

Fork me on GitHub

2008-05-30

Mooseでデザパタ - Singletonパターン

| Mooseでデザパタ - Singletonパターン - dann's blog を含むブックマーク はてなブックマーク - Mooseでデザパタ - Singletonパターン - dann's blog Mooseでデザパタ - Singletonパターン - dann's blog のブックマークコメント

#!/usr/bin/env perl
use strict;
use warnings;

use Perl6::Say;
{

    package Single;
    use MooseX::Singleton;
}

sub main {
    my $obj1 = Single->instance;
    my $obj2 = Single->instance;
    
    if ( $obj1 == $obj2 ) { 
        say "obj1とobj2は同じインスタンスです。";
    }   
    else {
        say "obj1とobj2は同じインスタンスではありません。";
    }   
}

main();

MooseX::Singletonを使うのがポイントです

See also:

http://www.ceres.dti.ne.jp/~kaga/singleton.txt