The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::More tests => 5;

{
	package Foo;
	use MooseX::ArrayRef; 
	has [qw/a c e/] => (is => 'ro');
}

{
	package Bar;
	use Moose::Role;
	has [qw/b/] => (is => 'ro');
}

{
	package Foo::Bar;
	use MooseX::ArrayRef; extends 'Foo'; with 'Bar';
	has [qw/d/] => (is => 'ro');
}

ok defined( Foo::Bar->meta->slot_index($_) ) for 'a'..'e';

note
	q(slot_to_index_map ),
	explain(Foo::Bar->meta->slot_to_index_map);