diff options
Diffstat (limited to 'lib/MooseX/NonMoose/Meta/Role/Class.pm')
| -rw-r--r-- | lib/MooseX/NonMoose/Meta/Role/Class.pm | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/lib/MooseX/NonMoose/Meta/Role/Class.pm b/lib/MooseX/NonMoose/Meta/Role/Class.pm index 5f78326..cc7275e 100644 --- a/lib/MooseX/NonMoose/Meta/Role/Class.pm +++ b/lib/MooseX/NonMoose/Meta/Role/Class.pm @@ -142,6 +142,22 @@ sub _check_superclass_constructor { ? $class->FOREIGNBUILDARGS(@_) : @_; my $instance = $super_new->execute($class, @foreign_params); + if (!blessed($instance)) { + confess "The constructor for " + . $super_new->associated_metaclass->name + . " did not return a blessed instance"; + } + elsif (!$instance->isa($class)) { + if (!$class->isa(blessed($instance))) { + confess "The constructor for " + . $super_new->associated_metaclass->name + . " returned an object whose class is not a parent of " + . $class; + } + else { + bless $instance, $class; + } + } return Class::MOP::Class->initialize($class)->new_object( __INSTANCE__ => $instance, %$params, |