Skip to content

Instantly share code, notes, and snippets.

@vti

vti/client Secret

Created October 20, 2010 08:36
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save vti/7d39dc51a1ce5a8f9bb8 to your computer and use it in GitHub Desktop.
Save vti/7d39dc51a1ce5a8f9bb8 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
client
my $body = '';
$tx->res->body(
sub {
my $res = shift;
my $chunk = shift;
warn "res=$res";
$body .= $chunk;
die if $body =~ m/<body>/s;
}
);
$client->start($tx);
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment