MOCK > Business-OnlinePayment-Multiplex-0.01 > Business::OnlinePayment::Multiplex

Download:
Business-OnlinePayment-Multiplex-0.01.tar.gz

Dependencies

Annotate this POD

View/Report Bugs
Module Version: 0.01   Source  

NAME ^

Business::OnlinePayment::Multiplex - Perl extension using the Business::OnlinePayment interface to add a callback to the content hash

SYNOPSIS ^

  use Business::OnlinePayment;

  my $submit = sub {
    my $self = shift;
    my %content = $self->content;
    undef $content{submit};
    my $tx = new Business::OnlinePayment('StoredTransaction');
    $tx->content(
        %content
    );
    my $submit = $tx->submit;
    $self->is_success($tx->is_success);
    $self->authorization($tx->authorization);
    $self->error_message($tx->error_message);
    $self->result_code($tx->result_code);
    return $submit;
  };


  my $tx = new Business::OnlinePayment('Multiplex');
  $tx->content( submit => $submit,
                type => 'Visa',
                amount => '1.00',
                cardnumber => '1234123412341238',
                expiration => '0100',
                action => 'normal authorization',
                name => 'John Doe',
                password => '-----BEGIN RSA PUBLIC KEY-----
MIGJAoGBAOoKKH0CZm6sWHGg4SygikvvAecDS+Lx6ilUZ8mIVJeV2d6YjEJRjy12
TSFdJTC0SiBDbJ4UHz5ayXhLShK0VvaQY+sfZwMX1SNZNYUyO8T7gY7QCzOrcSTS
CcBBrNWzz0CMWUO5oOIIYevKEimtsDvBtlVaYJArJdwJq9KB/RjRAgMA//8=
-----END RSA PUBLIC KEY-----' );

  $tx->submit();
  if ($tx->is_success()) {
      my $auth = $tx->authorization();
      open FH, '>> /some/file' # don't do this it's stupid
      print FH $auth;
  }
  else {
      warn $tx->error_message();
  }

DESCRIPTION ^

  Adds a submit key to the content hash.  This key should have a coderef as
  a value.  It should set error_message, is_success and suchlike if it wants
  to be successful.  This is possibly the stupidest module I've ever made
  (functionally it is about 5 lines of code) however I've found it very
  useful for mangling other peoples BOP modules and mashing them together in
  odd ways.

EXPORT

None by default.

SEE ALSO ^

Business::OnlinePayment

AUTHOR ^

mock, <mock@obscurity.org<gt>

COPYRIGHT AND LICENSE ^

Copyright (C) 2006 by mock

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.4 or, at your option, any later version of Perl 5 you may have available.

syntax highlighting: