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 . right now it's very incomplete and only supports create_direct_pay_by_user. patches are welcome. AUTHOR Fayland Lam 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