view release on metacpan or  search on metacpan

lib/Business/OnlinePayment/PaymenTech.pm  view on Meta::CPAN

  '04'  => 'pickup',      # Pickup
  '33'  => 'expired',     # Card is Expired
  '41'  => 'stolen',      # Lost/Stolen
  '42'  => 'inactive',    # Account Not Active
  '43'  => 'stolen',      # Lost/Stolen Card
  '44'  => 'inactive',    # Account Not Active
  #'45' duplicate transaction, should also have its own status
  'B7'  => 'blacklisted', # Fraud
  'B9'  => 'blacklisted', # On Negative File
  'BB'  => 'stolen',      # Possible Compromise
  'BG'  => 'blacklisted', # Blocked Account
  'BQ'  => 'blacklisted', # Issuer has Flagged Account as Suspected Fraud
  'C4'  => 'nsf',         # Over Credit Limit
  'D5'  => 'blacklisted', # On Negative File
  'D7'  => 'nsf',         # Insufficient Funds
  'F3'  => 'inactive',    # Account Closed
  'K6'  => 'nsf',         # NSF
);

sub set_defaults {
    my $self = shift;