sub password {
  my $self = shift;

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

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

##</code><code>##

Can't locate object method "password" via package "My::User" at My/User.pm line 37.