diff options
author | Jesse Luehrs <doy@tozt.net> | 2009-05-28 23:05:35 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2009-05-28 23:05:35 -0500 |
commit | b9f82dfce667aa0718d8e7904dc9a2a0163efeb6 (patch) | |
tree | e58b4bfb634bbdee86b5f0bba05beb68810c7f37 /lib/MooseX/ABC.pm | |
parent | 8d62b6e815e4442bed635d2b626ad9a6bce9abb3 (diff) | |
download | moosex-abc-b9f82dfce667aa0718d8e7904dc9a2a0163efeb6.tar.gz moosex-abc-b9f82dfce667aa0718d8e7904dc9a2a0163efeb6.zip |
apply a base class role to prevent abstract class instantiation
Diffstat (limited to 'lib/MooseX/ABC.pm')
-rw-r--r-- | lib/MooseX/ABC.pm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/MooseX/ABC.pm b/lib/MooseX/ABC.pm index f0f1412..95986bd 100644 --- a/lib/MooseX/ABC.pm +++ b/lib/MooseX/ABC.pm @@ -17,6 +17,10 @@ sub init_meta { shift; my %options = @_; Moose->init_meta(%options); + Moose::Util::MetaRole::apply_base_class_roles( + for_class => $options{for_class}, + roles => ['MooseX::ABC::Role::Object'], + ); Moose::Util::MetaRole::apply_metaclass_roles( for_class => $options{for_class}, metaclass_roles => ['MooseX::ABC::Trait::Class'], |