sub create_digest_from_password { my ( $self, $pass ) = @_; my $md5 = new Digest::MD5; $md5->add( $pass ); $md5->add( $self->{ _salt } ); $md5->b64digest; } #### my $sec = Foo::Security->new; my $success = $sec->update_admin_user( { user => 'bboop', first_name => 'Betty', last_name => 'Boop', password => $enc_password } );