Select Code to Download

    sub create_digest_from_password {
        my ( $self, $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_passwo
+rd } );