From: Yuval Kogman <nothingmuch@woobling.org>
Date: Wed, 20 Aug 2008 15:28:36 +0000 (+0000)
Subject: create_instance
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=af0842cb4dea754bb68f434689fb7c75152cfb80;p=gitmo%2FMoose.git

create_instance
---

diff --git a/Moose.xs b/Moose.xs
index 5cb2de8..6ed6166 100644
--- a/Moose.xs
+++ b/Moose.xs
@@ -965,7 +965,9 @@ STATIC SV *deinitialize_slot(pTHX_ SV *self, ATTR *attr) {
     return hv_delete_ent((HV *)SvRV(self), attr->slot_sv, 0, attr->slot_u32);
 }
 
-
+STATIC SV *create_instance(pTHX_ MI *mi) {
+    return sv_bless(sv_2mortal(newRV_noinc(newHV())), mi->stash);
+}