File Coverage

blib/lib/Webqq/Client/Method/get_dwz.pm

Criterion	Covered	Total	%
statement	6	22	27.2
branch	0	6	0.0
condition	0	3	0.0
subroutine	2	4	50.0
pod	1	1	100.0
total	9	36	25.0

use JSON;
use Webqq::Client::Util qw(console);
sub Webqq::Client::get_dwz {
    my $self = shift;
    my $url = shift;
    my $api = 'http://dwz.cn/create.php';
    my $ua = $self->{ua};
    my $res;
    my $dwz;
    eval{
        local $SIG{ALRM} = sub{die "timeout";};
        alarm 5;
        $res = $ua->post($api,[url=>$url],);
        alarm 0;
        if($res->is_success){
            my $json = JSON->new->utf8->decode($res->content);
            $dwz = $json->{tinyurl} if $json->{status}==0;
        };
    };
    console "[Webqq::Client::get_dwz] $@\n" if $@ and $self->{debug};

    return $dwz;

};
1;