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