DBIx::Class creating get_* and set_* methods

Herkum has asked for the wisdom of the Perl Monks concerning the following question: · generated

# Accessor method
$object->username;

# mutator method
$object->username('bob');
[download]
# Accessor method
$object->get_username; 

# mutator method
$object->set_username('bob');
[download]
No, because we're perl programmers, not Java programmers  :) 

But it's not hard - you want to override register_column. Something li
+ke

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.
[download]
set_column
get_column
$person->set_column('name', 'John');
$name = $person->get_column('name');
[download]
get
set
my $rs = $schema->resultset('User')->search({});
if ( $rs ) {
  for ( $rs->all ) {
    print $rs->get_column('username'), "\n";
    # either
    $rs->set_column('username', 'Bobo The Clown');
    $rs->update;
    # or  $rs->update({ username => 'Bobo The Clown' });
  }
}


Keep It Simple, Stupid
	PerlMonks