blib/lib/Webqq/Client/Method/_check_sig.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
statement | 3 | 12 | 25.0 |
branch | 0 | 2 | 0.0 |
condition | n/a | ||
subroutine | 1 | 2 | 50.0 |
pod | n/a | ||
total | 4 | 16 | 25.0 |
line | stmt | bran | cond | sub | pod | time | code |
---|---|---|---|---|---|---|---|
1 | 1 | 1 | 5 | use Webqq::Client::Util qw(console); | |||
1 | 2 | ||||||
1 | 116 | ||||||
2 | sub Webqq::Client::_check_sig { | ||||||
3 | 0 | 0 | console "检查安全代码...\n"; | ||||
4 | 0 | my $self = shift; | |||||
5 | 0 | my $api_url = $self->{qq_param}{api_check_sig}; | |||||
6 | 0 | my $ua = $self->{ua}; | |||||
7 | 0 | for(my $i=0;$i<=$self->{ua_retry_times};$i++){ | |||||
8 | 0 | my $response = $ua->get($api_url); | |||||
9 | 0 | 0 | if($response->is_success){ | ||||
10 | 0 | return 1; | |||||
11 | } | ||||||
12 | } | ||||||
13 | 0 | return 0; | |||||
14 | } | ||||||
15 | 1; |