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