|
Lines 413-419
Link Here
|
| 413 |
my $baz_meta = Class::MOP::Class->initialize('Baz'); |
413 |
my $baz_meta = Class::MOP::Class->initialize('Baz'); |
| 414 |
$baz_meta->add_method(foo => sub { }); |
414 |
$baz_meta->add_method(foo => sub { }); |
| 415 |
my $stash = Package::Stash->new('Baz'); |
415 |
my $stash = Package::Stash->new('Baz'); |
| 416 |
$stash->remove_package_symbol('&foo'); |
416 |
$stash->remove_symbol('&foo'); |
| 417 |
is_deeply([$baz_meta->get_method_list], [], "method is deleted"); |
417 |
is_deeply([$baz_meta->get_method_list], [], "method is deleted"); |
| 418 |
ok(!Baz->can('foo'), "Baz can't foo"); |
418 |
ok(!Baz->can('foo'), "Baz can't foo"); |
| 419 |
} |
419 |
} |
