leedo · January 26, 2011 05:58
diff --git a/gistfile1.pl b/gistfile1.pl
 get "/{tweet:[0-9]+}" => sub {
  my ($req, $res) = @_;
  my $id = $req->captures->{tweet};
  
  $ua->get("statuses/show/$id", sub {
    my ($hdr, $tweet, $reason) = @_;
    $res->send("<pre>".Dumper($tweet)."</pre>");
  });   
 };
	get "/{tweet:[0-9]+}" => sub {
	my ($req, $res) = @_;
	my $id = $req->captures->{tweet};

	$ua->get("statuses/show/$id", sub {
	my ($hdr, $tweet, $reason) = @_;
	$res->send("<pre>".Dumper($tweet)."</pre>");
	});
	};