Add peek() helper to XS code

houseabsolute · Jan 7, 2015 · 4bd3297 · 4bd3297
1 parent a413483
commit 4bd3297
Showing 1 changed file with 26 additions and 0 deletions.
diff --git a/lib/Params/Validate/XS.xs b/lib/Params/Validate/XS.xs
@@ -74,6 +74,32 @@
                     } \
                 } STMT_END
 
+
+static SV *module;
+void peek(SV *thing)
+{
+    if (NULL == module) {
+        module = newSVpv("Devel::Peek", 0);
+        load_module(PERL_LOADMOD_NOIMPORT, module, NULL);
+    }
+
+    dSP;
+    ENTER;
+    SAVETMPS;
+
+    PUSHMARK(SP);
+    XPUSHs(thing);
+    PUTBACK;
+
+    (void)call_pv("Devel::Peek::Dump", G_VOID);
+
+    SPAGAIN;
+
+    PUTBACK;
+    FREETMPS;
+    LEAVE;
+}
+
 INLINE static bool
 no_validation() {
     SV* no_v;