From 09d7a3ba918e6e685992034f67fd84290a3df894 Mon Sep 17 00:00:00 2001
From: Father Chrysostomos <sprout@cpan.org>
Date: Fri, 21 Nov 2014 00:22:38 -0800
Subject: Mathomise pad_compname_type

---
 mathoms.c | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

(limited to 'mathoms.c')

diff --git a/mathoms.c b/mathoms.c
index fa60621b96..378c4097a7 100644
--- a/mathoms.c
+++ b/mathoms.c
@@ -1773,6 +1773,22 @@ Perl_save_re_context(pTHX)
     PERL_UNUSED_CONTEXT;
 }
 
+/*
+=for apidoc Am|HV *|pad_compname_type|PADOFFSET po
+
+Looks up the type of the lexical variable at position I<po> in the
+currently-compiling pad.  If the variable is typed, the stash of the
+class to which it is typed is returned.  If not, C<NULL> is returned.
+
+=cut
+*/
+
+HV *
+Perl_pad_compname_type(pTHX_ const PADOFFSET po)
+{
+    return PAD_COMPNAME_TYPE(po);
+}
+
 
 END_EXTERN_C
 
-- 
cgit v1.2.1