assert(args);
assert(SvTYPE(args) == SVt_PVHV);
+ if(mg_find((SV*)args, PERL_MAGIC_tied)){
+ croak("You cannot use tied HASH reference as initializing arguments");
+ }
+
ENTER;
SAVETMPS;
BOOT:
INSTALL_SIMPLE_READER(Class, roles);
INSTALL_SIMPLE_PREDICATE_WITH_KEY(Class, is_anon_class, anon_serial_id);
+ INSTALL_SIMPLE_READER(Class, is_immutable);
INSTALL_CLASS_HOLDER(Class, method_metaclass, "Mouse::Meta::Method");
INSTALL_CLASS_HOLDER(Class, attribute_metaclass, "Mouse::Meta::Attribute");
PUTBACK;
call_sv(AvARRAY(demolishall)[i], G_VOID | G_DISCARD | G_EVAL);
- if(SvTRUE(ERRSV)){
+ if(sv_true(ERRSV)){
SV* const e = newSVsv(ERRSV);
FREETMPS;
if(!IsHashRef(args)){
croak("You must pass a HASH reference to BUILDALL");
}
- if(mg_find(SvRV(args), PERL_MAGIC_tied)){
- croak("You cannot use tie HASH reference as args");
- }
mouse_buildall(aTHX_ xc, self, args);
}