'... Foo::Bar::Baz->BUILD does have a next method');
is_deeply(
- [ sort { $a->{name} cmp $b->{name} } Class::MOP::Class->initialize('Foo')->get_all_methods() ],
+ [ sort { $a->name cmp $b->name } Class::MOP::Class->initialize('Foo')->get_all_methods() ],
[
Class::MOP::Class->initialize('Foo')->get_method('BUILD') ,
Class::MOP::Class->initialize('Foo')->get_method('foo'),
'... got the right list of applicable methods for Foo');
is_deeply(
- [ sort { $a->{name} cmp $b->{name} } Class::MOP::Class->initialize('Bar')->get_all_methods() ],
+ [ sort { $a->name cmp $b->name } Class::MOP::Class->initialize('Bar')->get_all_methods() ],
[
Class::MOP::Class->initialize('Bar')->get_method('BUILD'),
Class::MOP::Class->initialize('Bar')->get_method('bar'),
is_deeply(
- [ sort { $a->{name} cmp $b->{name} } Class::MOP::Class->initialize('Baz')->get_all_methods() ],
+ [ sort { $a->name cmp $b->name } Class::MOP::Class->initialize('Baz')->get_all_methods() ],
[
Class::MOP::Class->initialize('Bar')->get_method('BUILD'),
Class::MOP::Class->initialize('Bar')->get_method('bar'),
'... got the right list of applicable methods for Baz');
is_deeply(
- [ sort { $a->{name} cmp $b->{name} } Class::MOP::Class->initialize('Foo::Bar')->get_all_methods() ],
+ [ sort { $a->name cmp $b->name } Class::MOP::Class->initialize('Foo::Bar')->get_all_methods() ],
[
Class::MOP::Class->initialize('Foo::Bar')->get_method('BUILD'),
Class::MOP::Class->initialize('Bar')->get_method('bar'),