File Coverage

blib/lib/Weixin/Client/Request.pm

Criterion	Covered	Total	%
statement	0	34	0.0
branch	0	10	0.0
condition	0	6	0.0
subroutine	0	8	0.0
pod	0	5	0.0
total	0	63	0.0

package Weixin::Client::Request;
sub http_get{
    my $self = shift;
    my $ua = $self->{ua};
    my $res = $ua->get(@_);
    $self->{cookie_jar}->save;
    return (defined $res and $res->is_success)?$res->content:undef;
}
sub asyn_http_get {
    my $self = shift;
    my $callback = pop;
    my $ua = $self->{asyn_ua};
    $ua->get(@_,sub{
        my $response = shift;
        $self->{cookie_jar}->save;
        print $response->content(),"\n" if $self->{debug};
        $callback->($response);
    });
}
sub http_post{
    my $self = shift;
    my $ua = $self->{ua};
    my $res = $ua->post(@_);
    $self->{cookie_jar}->save;
    return (defined $res and $res->is_success)?$res->content:undef;
}
sub asyn_http_post {
    my $self = shift;
    my $callback = pop;
    my $ua = $self->{asyn_ua};
    $ua->post(@_,sub{
        my $response = shift;
        $self->{cookie_jar}->save;
        print $response->content(),"\n" if $self->{debug};
        $callback->($response);
    });
}

sub search_cookie{
    my($self,$cookie) = @_;
    my $result = undef;
    $self->{cookie_jar}->scan(sub{
        my($version,$key,$val,$path,$domain,$port,$path_spec,$secure,$expires,$discard,$rest) =@_;
        if($key eq $cookie){
            $result = $val ;
            return;
        }
    });
    return $result;
}
1;