#!/usr/bin/env perl
package MooseX::Singleton::Object;
use Moose;
-use metaclass 'MooseX::Singleton::Meta::Class';
extends 'Moose::Object';
return $class->SUPER::new(@args);
}
+sub _clear_instance {
+ my ($class) = @_;
+ $class->meta->clear_singleton;
+}
+
no Moose;
1;