2 files changed, 8 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
diff --git a/lib/Parse/Keyword.pm b/lib/Parse/Keyword.pm
index b1ec347..c981071 100644
--- a/lib/Parse/Keyword.pm
+++ b/lib/Parse/Keyword.pm
@@ -31,6 +31,7 @@ sub import {
         lex_read_space
         lex_read
         parse_block
+        compiling_package
     );
 
     for my $helper (@helpers) {