[gitmo/Package-Stash.git] / t / stash-deletion.t

#!/usr/bin/env perl
use strict;
use warnings;
use lib 't/lib';
use Test::More;

use Package::Stash;

{
    package Gets::Deleted;
    sub bar { }
}

{
    my $delete = Package::Stash->new('Gets::Deleted');
    ok($delete->has_symbol('&bar'), "sees the method");
    {
        no strict 'refs';
        delete ${'main::Gets::'}{'Deleted::'};
    }
    ok(!$delete->has_symbol('&bar'), "method goes away when stash is deleted");
}

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