X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse%2FUtil%2FMetaRole.pm;h=1b29b60985e285d3fee5355b1bf026e35f1b984e;hb=01f892fafd4633960960c120650e32ecf549e369;hp=8334bd57f40f772aba4f7242e3125afa71a1f188;hpb=241dd25c9f7c42a3b5dfd105d36869ed15d3d6d5;p=gitmo%2FMouse.git diff --git a/lib/Mouse/Util/MetaRole.pm b/lib/Mouse/Util/MetaRole.pm index 8334bd5..1b29b60 100644 --- a/lib/Mouse/Util/MetaRole.pm +++ b/lib/Mouse/Util/MetaRole.pm @@ -16,6 +16,10 @@ sub apply_metaroles { ? $args{for} : Mouse::Util::get_metaclass_by_name( $args{for} ); + if(!$for){ + Carp::confess("You must pass an initialized class, but '$args{for}' has no metaclass"); + } + if ( Mouse::Util::is_a_metarole($for) ) { return _make_new_metaclass( $for, $args{role_metaroles}, 'role' ); }