Business::OnlinePayment::PPIPayMover - PPI PayMover backend for Business::OnlinePayment

  use Business::OnlinePayment;

  my $tx = new Business::OnlinePayment( 'PPIPayMover' );

  $tx->content(
      login          => '195325FCC230184964CAB3A8D93EEB31888C42C714E39CBBB2E541884485D04B', #token
      type           => 'VISA',
      action         => 'Normal Authorization',
      description    => 'Business::OnlinePayment test',
      amount         => '49.95',
      invoice_number => '100100',
      customer_id    => 'jsk',
      name           => 'Grub Tetris',
      address        => '123 Anystreet',
      city           => 'Anywhere',
      state          => 'UT',
      zip            => '84058',
      email          => 'ivan-ppipaymover@420.am',
      card_number    => '4007000000027',
      expiration     => '09/12',
  );
  $tx->submit();

  if($tx->is_success()) {
      print "Card processed successfully: ".$tx->authorization."\n";
  } else {
      print "Card was rejected: ".$tx->error_message."\n";
  }

For detailed information see Business::OnlinePayment.

Ivan Kohler <ivan-ppipaymover@420.am>

Based on API components from PPI PayMover provided without clear licensing, so, probably not freely licensable at the moment... assuming that can be resolved:

Business::OnlinePayment conversion copyright (c) 2006 Ivan Kohler All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

perl(1), Business::OnlinePayment.