t/bugs/delete_sub_stash.t

   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;