diff options
author | Jesse Luehrs <doy@tozt.net> | 2009-12-20 00:28:18 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2009-12-20 00:28:18 -0600 |
commit | 1d00bff3291758b8c675e3c08b12f1ea9f69875b (patch) | |
tree | d02a2ac2108d0c9925e88642419193bd7c9c6dc7 /lib/MooseX/ABC/Role/Object.pm | |
parent | 83bd35ab0d35bdbd61e826cd4435fc4042d26783 (diff) | |
download | moosex-abc-1d00bff3291758b8c675e3c08b12f1ea9f69875b.tar.gz moosex-abc-1d00bff3291758b8c675e3c08b12f1ea9f69875b.zip |
allow creating abstract subclasses
Diffstat (limited to 'lib/MooseX/ABC/Role/Object.pm')
-rw-r--r-- | lib/MooseX/ABC/Role/Object.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/MooseX/ABC/Role/Object.pm b/lib/MooseX/ABC/Role/Object.pm index 8e6ce60..765ef64 100644 --- a/lib/MooseX/ABC/Role/Object.pm +++ b/lib/MooseX/ABC/Role/Object.pm @@ -17,7 +17,7 @@ around new => sub { my $class = shift; my $meta = Class::MOP::class_of($class); $meta->throw_error("$class is abstract, it cannot be instantiated") - if $meta->has_required_methods; + if $meta->is_abstract; $class->$orig(@_); }; |