use better logic in the constructor rather than replacing it manually

1 files changed, 7 insertions, 5 deletions

diff --git a/lib/MooseX/ABC/Role/Object.pm b/lib/MooseX/ABC/Role/Object.pm
index 083c0f5..778a81a 100644
--- a/lib/MooseX/ABC/Role/Object.pm
+++ b/lib/MooseX/ABC/Role/Object.pm
@@ -1,12 +1,14 @@
 package MooseX::ABC::Role::Object;
 use Moose::Role;
 
-sub new {
+around new => sub {
+    my $orig = shift;
     my $class = shift;
-    Class::MOP::class_of($class)->throw_error(
-        "$class is abstract, it cannot be instantiated"
-    );
-}
+    my $meta = Class::MOP::class_of($class);
+    $meta->throw_error("$class is abstract, it cannot be instantiated")
+        if $meta->has_required_methods;
+    $class->$orig(@_);
+};
 
 no Moose::Role;
 1;