package Baz;
our @ISA = ('Bar');
- sub BUILD { 'Baz::BUILD' }
sub baz { 'Baz::baz' }
sub foo { 'Baz::foo' }
is_deeply(
[ sort { $a->{name} cmp $b->{name} } Class::MOP::Class->initialize('Baz')->compute_all_applicable_methods() ],
- [
+ [
{
name => 'BUILD',
- class => 'Baz',
- code => \&Baz::BUILD
+ class => 'Bar',
+ code => \&Bar::BUILD
},
{
name => 'bar',
name => 'BUILD',
class => 'Bar',
code => \&Bar::BUILD
- },
- {
- name => 'BUILD',
- class => 'Baz',
- code => \&Baz::BUILD
- },
+ },
],
'... got the right list of BUILD methods for Foo::Bar::Baz');
\ No newline at end of file