1 files changed, 7 insertions, 0 deletions
diff --git a/Keyword.xs b/Keyword.xs
index 91478b1..4a094e4 100644
--- a/Keyword.xs
+++ b/Keyword.xs
@@ -130,3 +130,10 @@ lex_read(len = 1)
   CODE:
     PL_curcop = &PL_compiling;
     lex_read_to(PL_parser->bufptr + len);
+
+SV *
+compiling_package()
+  CODE:
+    RETVAL = newSVhek(HvNAME_HEK(CopSTASH(&PL_compiling)));
+  OUTPUT:
+    RETVAL