diff options
| author | Jesse Luehrs <doy@tozt.net> | 2013-01-04 03:16:12 -0600 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2013-01-04 03:16:12 -0600 |
| commit | 07da32a70bfd89df3c0bdeb3236c413cff86a2fa (patch) | |
| tree | 7093f768a75e5d70b4de594f8202b4c2ac9e5796 /t | |
| parent | b6a64d546b32da81d5a23e3df0ef47ffc6ed07b5 (diff) | |
| download | package-stash-07da32a70bfd89df3c0bdeb3236c413cff86a2fa.tar.gz package-stash-07da32a70bfd89df3c0bdeb3236c413cff86a2fa.zip | |
apparently ->isa lookups used to be cached in the package
Diffstat (limited to 't')
| -rwxr-xr-x | t/edge-cases.t | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/t/edge-cases.t b/t/edge-cases.t index 4e851c3..58c5dc8 100755 --- a/t/edge-cases.t +++ b/t/edge-cases.t @@ -99,4 +99,15 @@ SKIP: { ok($stash->has_symbol('$baz'), "immortal scalars are also visible"); } +{ + { + package HasISA::Super; + package HasISA; + our @ISA = ('HasISA::Super'); + } + ok(HasISA->isa('HasISA::Super')); + my $stash = Package::Stash->new('HasISA'); + is_deeply([$stash->list_all_symbols('SCALAR')], []); +} + done_testing; |