gistfile1.pl

sub test :Local :Args(0) {
    my ( $self, $c ) = @_;

    my $auth = { email => 'kentfredric@gmail.com', password => 'asdasd123', };

    my $u = $c->model('DB::Recruiter')->find( { email => 'kentfredric@gmail.com' } );

    my $p = $u->password();

    $u->password($auth->{'password'});

    my $pp = $u->password();

    $u->update();

    my $fail = $u->check_password( $auth->{'password'} );

    die sprintf ( "Fail? %s \n Pass Orig %s \n Pass New %s \n ", $fail || 0, $p || 'undef', $pp || 'undef' );
}

gistfile2.txt

Caught exception in JP::Controller::Recruiter->test "Fail? 0 
 Pass Orig b1d0c69499cfa7ac67dcea03030e6a06f2b87308d2d7991cfdd8f39fa59daa75c7e3f6e66f03ee29753a5cfdd55b9b3b7dc00ddb231fe3d0245d2a506421a4f7Z4lGHw9g81 
 Pass New 66f39b507b0dfe6c9dcb0639c7f085fa3b425105ea1539ea42e4fa31dcdc446ad993c7b523149e13d9df9199af66d4e208d9ed77b4a75b99100ff3822c80909bVUpf8=7VtN 
  at /home/kent/perl/git/jp-backend/script/../lib/JP/Controller/Recruiter.pm line 97."

aught exception in JP::Controller::Recruiter->test "Fail? 0 
 Pass Orig 66f39b507b0dfe6c9dcb0639c7f085fa3b425105ea1539ea42e4fa31dcdc446ad993c7b523149e13d9df9199af66d4e208d9ed77b4a75b99100ff3822c80909bVUpf8=7VtN 
 Pass New 53eff3eee993c0196e21f8ba2b6ca77a0ac4f510cd19649113530f36e2d67c2d985b9f528a84786aa7562a9139a67827e4c98e487524aa409a8f130a766226baEsBmtO5LtT 
  at /home/kent/perl/git/jp-backend/script/../lib/JP/Controller/Recruiter.pm line 97."

Caught exception in JP::Controller::Recruiter->test "Fail? 0 
 Pass Orig 53eff3eee993c0196e21f8ba2b6ca77a0ac4f510cd19649113530f36e2d67c2d985b9f528a84786aa7562a9139a67827e4c98e487524aa409a8f130a766226baEsBmtO5LtT 
 Pass New e001f9dc919438ba630928025f2442e76f51a2f908f16a716409af434e868eea3235d29f01d0c9a0c14df686ba0cf2b47d075a60b1ccaacbd4bc4267762c9c03YImzTTtCQL 
  at /home/kent/perl/git/jp-backend/script/../lib/JP/Controller/Recruiter.pm line 97."