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

#!/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