diff options
Diffstat (limited to 'lib/MooseX/ABC/Role/Object.pm')
-rw-r--r-- | lib/MooseX/ABC/Role/Object.pm | 12 |
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; |