Aliyun

 view release on metacpan or  search on metacpan

README.md  view on Meta::CPAN

基于第二版API签名，使用Mojo::UserAgent模块，基于回调的方式使用

```
#!/usr/bin/perl
use 5.010;
use Aliyun::AuthV2;
use Aliyun::Request;
use Aliyun::Method::FcSmsNumSend;
use Aliyun::Method::FcIotQrycard;
use Data::Dumper qw/Dumper/;

my $auth = Aliyun::AuthV2->new();
$auth->set_appkey('你自己的key');
$auth->set_secretkey('你自己的秘钥');

my $method = Aliyun::Method::FcSmsNumSend->new();
$method->set_rec_num('13800138000');
$method->set_sms_free_sign_name('短信签名');
$method->set_sms_template_code('短信模板id');
$method->set_sms_param('{"rain":"下雨","temper":"18"}');

lib/Aliyun.pm  view on Meta::CPAN

=head1 NAME

Aliyun - 阿里云SDK

=head1 SYNOPSIS

  use Aliyun::AuthV2;
  use Aliyun::Request;
  use Aliyun::Method::FcSmsNumSend;
  use Aliyun::Method::FcIotQrycard;
  use Data::Dumper qw/Dumper/;

  my $auth = Aliyun::AuthV2->new();
     $auth->set_appkey('你自己的key');
     $auth->set_secretkey('你自己的秘钥');

  my $method = Aliyun::Method::FcSmsNumSend->new();
     $method->set_rec_num('13800138000');
     $method->set_sms_free_sign_name('短信签名');
     $method->set_sms_template_code('短信模板id');
     $method->set_sms_param('{"rain":"下雨","temper":"18"}');

lib/AuthV2.pm  view on Meta::CPAN

package Aliyun::AuthV2;
use Crypt::Digest::MD5 qw(md5_hex);
use URI::Escape;
use Data::Dumper qw/Dumper/;
use DateTime;
use DateTime::Format::Strptime qw();
use Hash::Merge;
use version;
our $VERSION = 0.2;

#阿里云API签名
sub new {
    my $class = shift;
    $class = (ref $class) || $class || __PACKAGE__;

lib/Method/FcIotQrycard.pm  view on Meta::CPAN

package Aliyun::Method::FcIotQrycard;
use 5.010;
use Data::Dumper qw/Dumper/;
use version;
our $VERSION = 0.1;
#阿里大于查询终端信息

sub new {
    my $class = shift;
    $class = (ref $class) || $class || __PACKAGE__;
    my $self = bless {}, $class;
    $self->{'params'} = {
        'method' => 'alibaba.aliqin.fc.iot.qrycard',

lib/Method/FcSmsNumSend.pm  view on Meta::CPAN

package Aliyun::Method::FcSmsNumSend;
use 5.010;
use Data::Dumper qw/Dumper/;
use Cpanel::JSON::XS;
use version;
our $VERSION = 0.1;
#阿里大于短信发送
sub new {
    my $class = shift;
    $class = (ref $class) || $class || __PACKAGE__;
    my $self = bless {}, $class;
    $self->{'params'} = {
        'method'   => 'alibaba.aliqin.fc.sms.num.send',

lib/Request.pm  view on Meta::CPAN

package Aliyun::Request;
use 5.010;
use strict;
use warnings;
use Mojo::UserAgent;
use Aliyun::AuthV2;
use Data::Dumper qw/Dumper/;
use Cpanel::JSON::XS;
use version;
our $VERSION = 0.2;

sub new {
    my $class = shift;
    $class = (ref $class) || $class || __PACKAGE__;
    my $self = bless {}, $class;
    $self->{'http_head'} = {
        'Accept'                    => 'application/json,*/*;q=0.8,',