_clear_instance and tests

[gitmo/MooseX-Singleton.git] / lib / MooseX / Singleton / Meta / Class.pm

diff --git a/lib/MooseX/Singleton/Meta/Class.pm b/lib/MooseX/Singleton/Meta/Class.pm
index 529095b..609c250 100644 (file)
--- a/lib/MooseX/Singleton/Meta/Class.pm
+++ b/lib/MooseX/Singleton/Meta/Class.pm
@@ -34,6 +34,13 @@ sub existing_singleton {
     return;
 }
 
+sub clear_singleton {
+    my ($class) = @_;
+    my $pkg = $class->name;
+    no strict 'refs';
+    undef ${"$pkg\::singleton"};
+}
+
 override _construct_instance => sub {
     my ($class) = @_;