diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-08-22 16:24:37 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-08-22 16:24:37 -0700 |
| commit | c44737a23e8184d44143ac18e378a12912e6e9e8 (patch) | |
| tree | f98cabf338baedd2fffebf172ef50d8f2047f383 /pad.h | |
| parent | a91428a4cd72ac808bcbe6f7ef7fc9fe7971c938 (diff) | |
| download | perl-c44737a23e8184d44143ac18e378a12912e6e9e8.tar.gz | |
pad.[ch]: PADNAME_OUTER
I think this is the last bit of pad-as-sv stuff that was not
abstracted away in pad-specific macros.
Diffstat (limited to 'pad.h')
| -rw-r--r-- | pad.h | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -221,6 +221,9 @@ Whether this is an "our" variable. =for apidoc m|HV *|PADNAME_OURSTASH The stash in which this "our" variable was declared. +=for apidoc m|bool|PADNAME_OUTER|PADNAME pn +Whether this entry belongs to an outer pad. + =for apidoc m|HV *|PADNAME_TYPE|PADNAME pn The stash associated with a typed lexical. This returns the %Foo:: hash for C<my Foo $bar>. @@ -284,6 +287,7 @@ Restore the old pad saved into the local variable opad by PAD_SAVE_LOCAL() #define PADNAME_UTF8(pn) !!SvUTF8(pn) #define PADNAME_isOUR(pn) !!SvPAD_OUR(pn) #define PADNAME_OURSTASH SvOURSTASH(pn) +#define PADNAME_OUTER !!SvFAKE(pn) #define PADNAME_TYPE(pn) (SvPAD_TYPED(pn) ? SvSTASH(pn) : NULL) |