# Accessor method
$object->username;

# mutator method
$object->username('bob'); 

##</code><code>##

# Accessor method
$object->get_username; 

# mutator method
$object->set_username('bob');

##</code><code>##

No, because we're perl programmers, not Java programmers  :) 

But it's not hard - you want to override register_column. Something like

sub register_column {
  my $class = shift;
  my ($col, $info) = @_;
  $info->{accessor} = undef;
  $class->mk_group_ro_accessors($col => "get_$col");
  $class->mk_group_wo_accessors($col => "set_$col");
  $class->next::method(@_);
}

should do the trick fine.