--- Crypt-Spritz/Spritz.xs	2015/01/10 07:10:46	1.4
+++ Crypt-Spritz/Spritz.xs	2015/01/10 07:48:29	1.5
@@ -50,6 +50,17 @@
   return (spritz_state *)SvPVX (sv);
 }
 
+MODULE = Crypt::Spritz		PACKAGE = Crypt::Spritz::Base
+
+SV *
+clone (SV *self)
+	CODE:
+        /* no type check... too bad */
+        self = SvRV (self);
+	RETVAL = sv_bless (newRV_noinc (newSVsv (self)), SvSTASH (self));
+	OUTPUT:
+	RETVAL
+
 MODULE = Crypt::Spritz		PACKAGE = Crypt::Spritz		PREFIX = spritz_
 
 PROTOTYPES: ENABLE