summaryrefslogtreecommitdiffstats
path: root/lib/MooseX/ABC/Role/Object.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/MooseX/ABC/Role/Object.pm')
-rw-r--r--lib/MooseX/ABC/Role/Object.pm12
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;