1#!perl
2
3use XS::APItest;
4use Test::More;
5
6plan tests => 1;
7
8use mro;
9mro::set_mro(AA => 'justisa');
10
11@AA::ISA = qw "BB CC";
12
13sub BB::fromp { "bb" }
14sub CC::fromp { "cc" }
15
16is fromp AA, 'bb', 'first elem of linearisation is not ignored';
17