}
is_deeply(
- [ My::D->meta->class_precedence_list ],
+ [ Class::MOP::Class->initialize('My::D')->class_precedence_list ],
[ 'My::D', 'My::B', 'My::A', 'My::C', 'My::A' ],
'... My::D->meta->class_precedence_list == (D B A C A)');
=pod
-+-- B <-+
-| |
-+-> A --+
+ A <-+
+ | |
+ B |
+ | |
+ C --+
=cut
{
package My::2::A;
- our @ISA = ('My::2::B');
+ our @ISA = ('My::2::C');
+
package My::2::B;
- our @ISA = ('My::2::A');
+ our @ISA = ('My::2::A');
+
+ package My::2::C;
+ our @ISA = ('My::2::B');
}
-eval { My::2::B->meta->class_precedence_list };
+eval { Class::MOP::Class->initialize('My::2::B')->class_precedence_list };
ok($@, '... recursive inheritance breaks correctly :)');
=pod
}
is_deeply(
- [ My::3::D->meta->class_precedence_list ],
+ [ Class::MOP::Class->initialize('My::3::D')->class_precedence_list ],
[ 'My::3::D', 'My::3::B', 'My::3::A', 'My::3::C', 'My::3::A', 'My::3::B', 'My::3::A' ],
'... My::3::D->meta->class_precedence_list == (D B A C A B A)');