Business::iDEAL::Mollie

Backend for iDEAL payments through mollie.nl
Download

Business::iDEAL::Mollie Ranking & Summary

Advertisement

  • Rating:
  • License:
  • Perl Artistic License
  • Price:
  • FREE
  • Publisher Name:
  • Menno Blom
  • Publisher web site:
  • http://search.cpan.org/~blom/

Business::iDEAL::Mollie Tags


Business::iDEAL::Mollie Description

Backend for iDEAL payments through mollie.nl Business::iDEAL::Mollie is a Perl module that provides a backend to process iDEAL payments through mollie.nl.SYNOPSIS use strict; use Business::iDEAL::Mollie; my $mollie = new Business::iDEAL::Mollie; # First you will have to grab the bank list (the list might # change, so make sure you do this). my $banks = $mollie->banklist; # Then, you probably want to feed your user the URL of # the right bank. my $resp = $mollie->fetch({ partnerid => 'your partner id', amount => '1250', bank_id => $banks->{'bank_id'}, description=> 'Acme Labs: order# foo-bar-123' reporturl => 'http://your.site.tld/mollie.cgi', returnurl => 'http://your.site.tld/thanks.html' }); if($resp) { # ... probably some Database activity here # with $resp->{'transaction_id'} and some redirection # headers with $resp->{'URL'} } else { # Do something with $mollie->error, which contains the # status_line of LWP::UserAgent }Meanwhile, in a nearby piece of code (mollie.cgi in this example) # The easy way ... if($q->param('transaction_id')) { if($mollie->is_payed({ partnerid => 'your partner id', transaction_id => $q->param('transaction_id'), })) { # Do something with the verified transaction_id } else { # Not payed, or checked more than once... } } # The more complicated way if($q->param('transaction_id')) { my $resp = $mollie->check({ partnerid => 'your partner id', transaction_id => $q->param('transaction_id'), }); if($resp->{'payed'} eq 'true') { # Do something with $resp->{'amount'}, $resp->{'currency'}, etc. } else { # Log, cry, do anything here with the failed check. } } Requirements: · Perl


Business::iDEAL::Mollie Related Software