| … | … | ||
|---|---|---|---|
| 4 | 4 | ||
| 5 | =head1 SYNOPSIS | 5 | =head1 SYNOPSIS |
| 6 | 6 | ||
| 7 | use AnyEvent::HTTP; | 7 | use AnyEvent::HTTP; |
| 8 | 8 | ||
| 9 | http_get "http://www.nethype.de/", sub { print $_[1] }; | 9 | http_get "http://www.nethype.de/", sub { |
| 10 | my ($body, $hdr) = @_; | ||
| 11 | print "$hdr->{URL} Status: $hdr->{Status}\n"; | ||
| 12 | print $body; | ||
| 13 | }; | ||
| 10 | 14 | ||
| 11 | # ... do something else here | 15 | # ... do something else here |
| 12 | 16 | ||
| 13 | =head1 DESCRIPTION | 17 | =head1 DESCRIPTION |
| 14 | 18 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |