1use strict; 2use warnings; 3use lib 't/lib'; 4use Test::More; 5 6use Package::Stash; 7 8{ 9 package Gets::Deleted; 10 sub bar { } 11} 12 13{ 14 my $delete = Package::Stash->new('Gets::Deleted'); 15 ok($delete->has_symbol('&bar'), "sees the method"); 16 { 17 no strict 'refs'; 18 delete ${'main::Gets::'}{'Deleted::'}; 19 } 20 ok(!$delete->has_symbol('&bar'), "method goes away when stash is deleted"); 21} 22 23done_testing; 24