sub password {
  my $self = shift;

  if (@_) { # we're setting a value
    $_[0] = Digest::MD5::md5_base64($_[0]);
  }

  return $self->SUPER::password(@_);
}