DBIx-Class-BcryptColumn
view release on metacpan or search on metacpan
lib/DBIx/Class/BcryptColumn.pm view on Meta::CPAN
919293949596979899100101102103104105106107108109110111
$self
->set_column(
$column
,
$self
->bcrypt(
$value
,
$info
{cost}));
}
}
sub
insert {
my
$self
=
shift
;
$self
->_bcrypt_set_columns;
$self
->
next
::method(
@_
);
}
sub
update {
my
(
$self
,
$upd
,
@rest
) =
@_
;
if
(
ref
$upd
) {
my
@columns
=
$self
->bcrypt_columns;
foreach
my
$column
(
@columns
) {
next
unless
exists
$upd
->{
$column
};
$self
->set_column(
$column
=>
delete
$upd
->{
$column
})
}
}
$self
->_bcrypt_set_columns;
$self
->
next
::method(
$upd
,
@rest
);
( run in 0.265 second using v1.01-cache-2.11-cpan-5f2e87ce722 )