Aliyun

 view release on metacpan or  search on metacpan

README.md  view on Meta::CPAN

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"}');

my $method2 = Aliyun::Method::FcIotQrycard->new();
$method2->set_bill_source('ICCID');
$method2->set_bill_real('123123');
$method2->set_iccid('123123');


my $request = Aliyun::Request->new();
$request->get($auth, $method, sub {
        say Dumper $_[0];
    });

$request->get($auth, $method2, sub {
        say Dumper $_[0];
    });

lib/Aliyun.pm  view on Meta::CPAN

  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"}');

  my $method2 = Aliyun::Method::FcIotQrycard->new();
     $method2->set_bill_source('ICCID');
     $method2->set_bill_real('123123');
     $method2->set_iccid('123123');

  my $request = Aliyun::Request->new();
     $request->get($auth, $method, sub {
        say Dumper $_[0];
    });

     $request->get($auth, $method2, sub {
        say Dumper $_[0];
    });

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

sub set_bill_source {
    $_[0]->{'params'}->{'bill_source'} = $_[1];
}

#外部计费号
sub set_bill_real {
    $_[0]->{'params'}->{'bill_real'} = $_[1];
}

#ICCID
sub set_iccid {
    $_[0]->{'params'}->{'iccid'} = $_[1];
}

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

1;

__DATA__

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

=head1 METHODS

=head2 set_bill_source

  外部计费来源

=head2 set_bill_real

  外部计费号

=head2 set_iccid

  设置ICCID

=head2 get_params

  %hash = get_params()
  获取提交的参数。该方法必须实现

=cut