my $obj = MyClass->new(INDEX_FOO => 43);

##</code><code>##

has 'INDEX_FOO'=> (
    is       => 'ro',
    default  => 42
    init_arg => undef,
);

##</code><code>##

sub INDEX_FOO () { 42 }