Lines Matching refs:message
42 my ( $self, $dataref, $message, $protocol, $buffer ) = @_;
43 print STDOUT "\n", $message->method, " ", $message->uri, "\n";
44 print_headers( $message, @clt_hdr );
65 my ( $self, $headers, $message ) = @_;
66 my $req = $message->request;
71 print STDOUT $message->status_line, "\n";
72 print_headers( $message, @srv_hdr );
77 my $message = shift;
79 if ( $message->header($h) ) {
80 print STDOUT " $h: $_\n" for ( $message->header($h) );