Advertisement
Guest User

Untitled

a guest
Jan 17th, 2018
113
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.54 KB | None | 0 0
  1.  return $token
  2.   ? $token_type && $token_type eq 'pc_pay'  
  3.      ? { signal => 'pc_token_found', signal_param => { card_id => $token } }
  4.      : { signal => 'token_found' }
  5.   : { signal => 'token_not_found'}
  6.   ;  
  7. ===
  8. my $result;
  9. if ( $token ) {
  10.   if ( $token_type && $token_type eq 'pc_token' )  {
  11.      $result = { signal => 'pc_token', signal_param => { card_id => $token } };
  12.   }  
  13.   else {
  14.      $result = { signal => 'token_found' };
  15.   }  
  16.  }
  17.  else {
  18.    $result = { signal => 'token_not_found' };
  19.  }
  20.  
  21.  return $result;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement