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;