Select Code to Download

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

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

sub INDEX_FOO () { 42 }