[gitmo/Moose.git] / t / bugs / delete_sub_stash.t

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

use Moose ();

{
    package Foo;
    sub bar { 'BAR' }
}

my $method = \&Foo::bar;

{
    no strict 'refs';
    delete ${'::'}{'Foo::'};
}

my $meta = Moose::Meta::Class->create('Bar');
$meta->add_method(bar => $method);
is(Bar->bar, 'BAR');

done_testing;
Commit	Line	Data
9b2ef039	1	#!/usr/bin/env perl
	2	use strict;
	3	use warnings;
	4	use Test::More;
	5
	6	use Moose ();
	7
	8	{
	9	package Foo;
	10	sub bar { 'BAR' }
	11	}
	12
	13	my $method = \&Foo::bar;
	14
	15	{
	16	no strict 'refs';
	17	delete ${'::'}{'Foo::'};
	18	}
	19
	20	my $meta = Moose::Meta::Class->create('Bar');
	21	$meta->add_method(bar => $method);
	22	is(Bar->bar, 'BAR');
	23
	24	done_testing;