add version to all modules
Dave Rolsky [Fri, 25 Dec 2009 15:54:41 +0000 (09:54 -0600)]
lib/MooseX/Singleton/Role/Meta/Class.pm
lib/MooseX/Singleton/Role/Meta/Instance.pm
lib/MooseX/Singleton/Role/Meta/Method/Constructor.pm
lib/MooseX/Singleton/Role/Object.pm
t/001-basic.t

index fc8048b..0765f23 100644 (file)
@@ -3,6 +3,9 @@ use Moose::Role;
 use MooseX::Singleton::Role::Meta::Instance;
 use MooseX::Singleton::Role::Meta::Method::Constructor;
 
+our $VERSION = '0.21';
+$VERSION = eval $VERSION;
+
 sub existing_singleton {
     my ($class) = @_;
     my $pkg = $class->name;
index aa88684..938b907 100644 (file)
@@ -2,6 +2,9 @@ package MooseX::Singleton::Role::Meta::Instance;
 use Moose::Role;
 use Scalar::Util 'weaken';
 
+our $VERSION = '0.21';
+$VERSION = eval $VERSION;
+
 sub get_singleton_instance {
     my ( $self, $instance ) = @_;
 
index f1eb90d..7005a44 100644 (file)
@@ -1,6 +1,9 @@
 package MooseX::Singleton::Role::Meta::Method::Constructor;
 use Moose::Role;
 
+our $VERSION = '0.21';
+$VERSION = eval $VERSION;
+
 override _initialize_body => sub {
     my $self = shift;
 
index 67129ec..f419052 100644 (file)
@@ -1,5 +1,9 @@
 package MooseX::Singleton::Role::Object;
 use Moose::Role;
+use Carp qw( carp );
+
+our $VERSION = '0.21';
+$VERSION = eval $VERSION;
 
 sub instance { shift->new }
 
index 12c0eb2..cca73b0 100644 (file)
@@ -71,4 +71,4 @@ is( MooseX::Singleton::Test->distinct_keys, 0, "Package->clear works" );
 
 MooseX::Singleton::Test->_clear_instance;
 $mst = $mst2 = undef;
-is( MooseX::Singleton::Test->new->distinct_keys, 1, "back to the default" );
+is( MooseX::Singleton::Test->instance->distinct_keys, 1, "back to the default" );