Aliyun

 view release on metacpan or  search on metacpan

lib/Aliyun.pm  view on Meta::CPAN

use warnings;

our $VERSION = '1.0.0';


# Preloaded methods go here.

1;
__END__

=encoding utf8

=head1 NAME

Aliyun - 阿里云SDK

=head1 SYNOPSIS

  use Aliyun::AuthV2;
  use Aliyun::Request;
  use Aliyun::Method::FcSmsNumSend;

lib/AuthV2.pm  view on Meta::CPAN

sub get_url {
    my ($self, $input_parms) = @_;
    if (!$self->{'app_key'} || !$self->{'secret_key'}) {
        return 0;
    }
    my $merge = Hash::Merge->new('LEFT_PRECEDENT');
    my $public_params = $self->_get_public_params();
    my $all_parms = $merge->merge($public_params, $input_parms);
    my ($signature_param, $url_param) = ('', '');
    map {
        #是否需要转utf8?
        #$_ = encode_utf8($_);
        $signature_param .= $_ . $all_parms->{$_};
        $url_param .= join('=', $_, uri_escape($all_parms->{$_}) . '&')
    } sort keys(%{$all_parms});
    #MD5加密后需要全部大写,否则签名会出错
    my $signature = uc(md5_hex(
        $self->{'secret_key'} . $signature_param . $self->{'secret_key'}
    ));
    return sprintf('%s?%ssign=%s', $self->{'aliyun_url'}, $url_param, $signature);
}
1;

__DATA__

=encoding utf8

=head1 NAME

Aliyun::AuthV2- 阿里云V2签名算法

=head1 SYNOPSIS

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

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

}

sub get_params {
    return $_[0]->{'params'};
}

1;

__DATA__

=encoding utf8

=head1 NAME

Aliyun::Method::FcIotQrycard- 阿里大于查询终端信息


=head1 ATTRIBUTES

=head1 METHODS

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

}

sub get_params {
    return $_[0]->{'params'};
}

1;

__DATA__

=encoding utf8

=head1 NAME

Aliyun::Method::FcSmsNumSend- 阿里大于发送短信


=head1 METHODS

=head2 set_rec_num

lib/Request.pm  view on Meta::CPAN

            if (ref $cb eq ref sub {}) {
                $cb->($result);
            }
        });
    $delay->wait;
}
1;

__DATA__

=encoding utf8

=head1 NAME

Aliyun::Request - 异步请求阿里云的客户端

=head1 ATTRIBUTES

=head1 METHODS

=head2 get