has 'char'   => (
    is       => 'ro', 
    builder  => '_build_char', # May override _build_char in subclasses
    init_arg => undef,         # Disallow setting via constructor
);
sub _build_char { lc ref shift }