package LWP::Protocol::loopback;
use strict;
our $VERSION = '6.45';
require HTTP::Response;
use base qw(LWP::Protocol);
sub request {
my($self, $request, $proxy, $arg, $size, $timeout) = @_;
my $response = HTTP::Response->new(200, "OK");
$response->content_type("message/http; msgtype=request");
$response->header("Via", "loopback/1.0 $proxy")
if $proxy;
$response->header("X-Arg", $arg);
$response->header("X-Read-Size", $size);
$response->header("X-Timeout", $timeout);
return $self->collect_once($arg, $response, $request->as_string);
}
1;
| Name | Type | Size | Permission | Actions |
|---|---|---|---|---|
| cpan.pm | File | 1.33 KB | 0444 |
|
| data.pm | File | 1.2 KB | 0444 |
|
| file.pm | File | 3.75 KB | 0444 |
|
| ftp.pm | File | 18.69 KB | 0444 |
|
| gopher.pm | File | 5.59 KB | 0444 |
|
| http.pm | File | 14.76 KB | 0444 |
|
| loopback.pm | File | 586 B | 0444 |
|
| mailto.pm | File | 4.3 KB | 0444 |
|
| nntp.pm | File | 4.1 KB | 0444 |
|
| nogo.pm | File | 610 B | 0444 |
|