Aliyun

 view release on metacpan or  search on metacpan

lib/AuthV2.pm  view on Meta::CPAN

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__;
    my $self = bless {}, $class;
    $self->{'aliyun_url'} = 'http://gw.api.taobao.com/router/rest';
    return $self;
}

#设置环境
#param:是否是沙盒环境
#param:是否启启用https
sub set_evn {
    my ($self, $is_sanbox, $is_https) = @_;
    if ($is_sanbox) {

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',
    };
    return $self;
}

#外部计费来源
sub set_bill_source {
    $_[0]->{'params'}->{'bill_source'} = $_[1];
}

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',
        'sms_type' => 'normal',
    };
    return $self;
}

#设置接收号码
sub set_rec_num {
    $_[0]->{'params'}->{'rec_num'} = $_[1];

lib/Request.pm  view on Meta::CPAN

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,',
        'Accept-Encoding'           => 'deflate',
        'Accept-Language'           => 'zh-CN',
        'Cache-Control'             => 'no-cache',
        'Connection'                => 'keep-alive',
        'DNT'                       => '1',
        'Pragma'                    => 'no-cache',
        'Upgrade-Insecure-Requests' => '1',
        'User-Agent'                => "perl-Aliyun-Request V:$VERSION"