package Foo;
    use base qw(Class::Accessor);
    Foo->mk_accessors( qw(far bar car) );