marcusramberg
Mar 08, 2007 13:55
10:41 <@mst> marcus:
$obj->result_source
->resultset
->search($obj->ident_condition)
->update({ id => $new_id })
From the #dbix-class channel on irc.perl.org
tips,
dbic,
quote
marcusramberg
Jan 04, 2007 09:53
If you use Catalyst auth with hashed passwords, here's how to create the digest in your DBIx::Class user class automatically.
sub store_column {
my ($self,$col,$val)= @_;
$val=Digest::SHA::sha1_hex($val) if ($col eq 'password');
return $self->next::method($col,$val);
}
tips,
catalyst,
dbic