1 use Test::More tests => 2;
7 package Foo::Singleton;
11 has gravy => (is => 'rw');
13 with qw/MooseX::Singleton/;
16 ok (Foo::Singleton->new,'new');
18 my $foo = Foo::Singleton->instance;
20 my $bar = Foo::Singleton->instance;
22 $foo->gravy ('sauce');
24 is ($bar->gravy,'sauce','singleton');