apply a base class role to prevent abstract class instantiation

1 files changed, 12 insertions, 0 deletions

diff --git a/lib/MooseX/ABC/Role/Object.pm b/lib/MooseX/ABC/Role/Object.pm
new file mode 100644
index 0000000..083c0f5
--- /dev/null
+++ b/lib/MooseX/ABC/Role/Object.pm
@@ -0,0 +1,12 @@
+package MooseX::ABC::Role::Object;
+use Moose::Role;
+
+sub new {
+    my $class = shift;
+    Class::MOP::class_of($class)->throw_error(
+        "$class is abstract, it cannot be instantiated"
+    );
+}
+
+no Moose::Role;
+1;