use MooseX::Declare;

class Father {
    has char => (
        is       => 'ro',
        builder  => '_build_char',
        init_arg => undef,
    );  
    sub _build_char { lc ref shift }
}   

class Son extends Father { }