if ( -f $file_hdr_raw ){ open(RAW, "<$file_hdr_raw") or plog("Can NOT open <$SHA1_file_hdr_raw> for reading\n"); my(@lines) = ; close(RAW); while ( @lines ){ my $line = shift(@lines); my ($key, $value) = split(/:/, $line, 2); $headers->header( $key => $value ); } } # create response my $res = HTTP::Response->new($status_code, $status, $headers, $content); # send back (short-circuit normal content fetching) $self->proxy()->response($res);