Singleton in Moose


MooseX::Singleton;

A game - the main class or the board is a singleton

Configuration

Database access


examples/Moose/singleton/t/01-space.t
use strict;
use warnings;

use Test::More;
plan tests => 2;

use Games::Spacefight;

my $game = Games::Spacefight->new;
isa_ok($game, 'Games::Spacefight');

my $game2 = Games::Spacefight->new;
is $game2, $game, 'Singleton';

examples/Moose/singleton/lib/Games/Spacefight.pm
package Games::Spacefight;
use Moose;
use MooseX::Singleton;

1;