__PACKAGE__->columns( TEMP => qw/ password / ); __PACKAGE__->add_trigger(before_create => sub { my ($self, %args) = @_; $self->{enc_pass} = $self->encrypt_password($self->{password}); }); __PACKAGE__->add_trigger(before_update => sub { my ($self, %args) = @_; $self->enc_pass = $self->encrypt_password( $self->password ); }); sub search{ my ($self, %query) = @_; my @results = $self->SUPER::search( %query ); foreach my $result(@results){ $result->password( $self->decrypt_password( $result->encpass ) ); } }