NAME Business::Alipay - Alipay payment SYNOPSIS use Business::Alipay; my $alipay = Business::Alipay->new({ "ALIPAY_KEY" => "", # 安全检验ç ,以数å—å’Œå—æ¯ç»„æˆçš„32ä½å—符 "ALIPAY_PARTNER" => "", # åˆä½œèº«ä»½è€…ID,以2088开头的16ä½çº¯æ•°å— "ALIPAY_SELLER_EMAIL" => "", # ç¾çº¦æ”¯ä»˜å®è´¦å·æˆ–å–家支付å®å¸æˆ· }); my $redirect_url = $alipay->create_direct_pay_by_user({ notify_url => $notify_url, ## notify url return_url => $return_url, ## 返回 url out_trade_no => $uuid, # unique id subject => 'subject', body => 'description', total_fee => '0.01', # é‡‘é¢ }); # $redirect_url is a url, you should redirect to that print $q->redirect($redirect_url); #### for return or notify, in another sub or file my $params = $q->params(); # or $c->req->params->to_hash for Mojolicious my $out_trade_no = $params->{out_trade_no}; # make sure it's not proceeded before. # return if already_proceeded($out_trade_no); my $trade_status = $params->{trade_status}; if ($trade_status eq 'TRADE_FINISHED' or $trade_status eq 'TRADE_SUCCESS') { my $r = $alipay->notify_verify($params); # $r is one of 'true', 'false', 'sign_dismatch', 'unknown' (unknown is HTTP failure) } DESCRIPTION Business::Alipay is a payment gateway for <https://www.alipay.com/>. right now it's very incomplete and only supports create_direct_pay_by_user. patches are welcome. AUTHOR Fayland Lam <fayland@gmail.com> COPYRIGHT Copyright 2013- Fayland Lam LICENSE This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. SEE ALSO