… | |
… | |
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 | |
… | |
… | |
716 | } |
720 | } |
717 | |
721 | |
718 | our %IDEMPOTENT = ( |
722 | our %IDEMPOTENT = ( |
719 | DELETE => 1, |
723 | DELETE => 1, |
720 | GET => 1, |
724 | GET => 1, |
721 | QUERY => 1, |
725 | QUERY => 1, |
722 | HEAD => 1, |
726 | HEAD => 1, |
723 | OPTIONS => 1, |
727 | OPTIONS => 1, |
724 | PUT => 1, |
728 | PUT => 1, |
725 | TRACE => 1, |
729 | TRACE => 1, |
726 | |
730 | |
… | |
… | |
738 | MKCOL => 1, |
742 | MKCOL => 1, |
739 | MKREDIRECTREF => 1, |
743 | MKREDIRECTREF => 1, |
740 | MKWORKSPACE => 1, |
744 | MKWORKSPACE => 1, |
741 | MOVE => 1, |
745 | MOVE => 1, |
742 | ORDERPATCH => 1, |
746 | ORDERPATCH => 1, |
|
|
747 | PRI => 1, |
743 | PROPFIND => 1, |
748 | PROPFIND => 1, |
744 | PROPPATCH => 1, |
749 | PROPPATCH => 1, |
745 | REBIND => 1, |
750 | REBIND => 1, |
746 | REPORT => 1, |
751 | REPORT => 1, |
747 | SEARCH => 1, |
752 | SEARCH => 1, |