| line |
true |
false |
branch |
|
31
|
1 |
1 |
if ($self->{'_uri'}->_scheme eq 'icaps') |
|
38
|
0 |
2 |
if (-f $possible_ca_file) |
|
43
|
0 |
1 |
if (-f $possible_ca_path) |
|
52
|
1 |
0 |
if ($key =~ /^SSL_/msx) |
|
63
|
1 |
0 |
if (@Net::ICAP::Client::ARG > 1) |
|
72
|
1 |
0 |
if (@Net::ICAP::Client::ARG > 1) |
|
81
|
1 |
0 |
if (@Net::ICAP::Client::ARG > 1) |
|
129
|
0 |
0 |
if ($self->{'_debug'}) |
|
131
|
0 |
0 |
unless $direction eq '>> ' or $direction eq '<< ' |
|
134
|
0 |
0 |
if (defined $self->{'_previous_direction'} and $self->{'_previous_direction'} eq $direction) { } |
|
|
0 |
0 |
elsif ($self->{'_previous_direction'}) { } |
|
146
|
0 |
0 |
unless print {*STDERR;} "$self->{'_debug_buffer'}" |
|
154
|
0 |
0 |
unless print {*STDERR;} "$direction$1" |
|
164
|
0 |
0 |
if ($self->{'_debug'}) |
|
169
|
0 |
0 |
unless print {*STDERR;} "$self->{'_debug_buffer'}" |
|
181
|
0 |
0 |
unless my $number_of_bytes = syswrite($socket, "$string") |
|
194
|
0 |
0 |
unless ($self->{'_socket'}) |
|
197
|
0 |
0 |
if ($self->_scheme eq 'icaps') |
|
201
|
0 |
0 |
$socket_class eq 'IO::Socket::SSL' ? : |
|
|
0 |
0 |
unless my $socket = $socket_class->new('PeerAddr', $self->uri->host, 'PeerPort', $self->uri->port, 'Proto', 'tcp', %options) |
|
235
|
0 |
0 |
if ($icap_headers =~ /\r?\nISTag:[ ]*$quoted_string(?:\r?\n|$)/msx) { } |
|
|
0 |
0 |
elsif ($icap_headers =~ /\r?\nISTag:[ ]*(\S+)(?:\r?\n|$)/msx) { } |
|
242
|
0 |
0 |
if ($icap_method eq 'OPTIONS') |
|
244
|
0 |
0 |
if ($icap_headers =~ /\r?\nMethods:[ ]*(.*?)(?:\r?\n|$)/msx) |
|
249
|
0 |
0 |
if ($icap_headers =~ /\r?\nPreview:[ ]*(\d+)(?:\r?\n|$)/msx) |
|
252
|
0 |
0 |
if ($icap_headers =~ /\r?\nService:[ ]*(.*?)(?:\r?\n|$)/msx) |
|
255
|
0 |
0 |
if ($icap_headers =~ /\r?\nMax\-Connections:[ ]*(\d+)(?:\r?\n|$)/msx) |
|
259
|
0 |
0 |
if ($icap_headers =~ /\r?\nOptions\-TTL:[ ]*(\d+)(?:\r?\n|$)/msx) |
|
263
|
0 |
0 |
if ($icap_headers =~ /\r?\nAllow:[ ]*(.*?)(?:\r?\n|$)/msx) |
|
274
|
0 |
0 |
defined $peek_buffer ? : |
|
279
|
0 |
0 |
unless sysread $socket, my $buffer, _ICAP_RESPONSE_PEEK_SIZE() |
|
283
|
0 |
0 |
if ($peek_buffer =~ m[^ICAP/1[.]0[ ]([45]\d\d)[ ]]msx) |
|
298
|
0 |
0 |
if ($peek_buffer =~ s/$entire_icap_headers_regex//msx) { } |
|
303
|
0 |
0 |
if ($icap_headers =~ /$encapsulated_header_regex/msx) { } |
|
|
0 |
0 |
elsif ($icap_headers =~ m[^ICAP/1[.]0[ ]204[ ]]msx) { } |
|
306
|
0 |
0 |
if (defined $header_start_position) |
|
310
|
0 |
0 |
unless sysread $socket, my $buffer, $body_start_position - length($header_content) |
|
316
|
0 |
0 |
if ($type eq 'res') { } |
|
|
0 |
0 |
elsif ($type eq 'req') { } |
|
323
|
0 |
0 |
if ($type eq 'null') { } |
|
330
|
0 |
0 |
unless $body_handle->seek(0, 0) |
|
340
|
0 |
0 |
if (defined $params{'response'}) { } |
|
365
|
0 |
0 |
unless sysread $socket, my $byte, 1 |
|
370
|
0 |
0 |
if ($chunk_buffer =~ /^$chunk_regex/imsx) { } |
|
372
|
0 |
0 |
if (hex $chunk_length == 0) { } |
|
374
|
0 |
0 |
unless sysread $socket, my $chunk_content, $length_of_crlf |
|
381
|
0 |
0 |
unless sysread $socket, my $chunk_content, hex $chunk_length |
|
413
|
1 |
3 |
if (@Net::ICAP::Client::ARG > 1) |
|
421
|
0 |
0 |
if (defined $self->{'_options'} and defined $self->{'_options'}{'expiry'} and defined $self->{'_options'}{'expiry'} < time) { } |
|
444
|
0 |
0 |
if ($self->allow_preview and defined $self->preview_size) |
|
446
|
0 |
0 |
if (defined $content_handle) { } |
|
|
0 |
0 |
elsif (my $content = $message->content) { } |
|
449
|
0 |
0 |
unless scalar @stat |
|
456
|
0 |
0 |
if (defined $content_size and $content_size > $self->preview_size) |
|
470
|
0 |
0 |
if ($self->allow_204 and $self->server_allows_204) |
|
479
|
0 |
0 |
if (defined $request) |
|
497
|
0 |
0 |
if (defined $response) |
|
499
|
0 |
0 |
defined $request && $request->protocol ? : |
|
526
|
0 |
0 |
defined $request ? : |
|
534
|
0 |
0 |
if ($preview_header) |
|
535
|
0 |
0 |
if (defined $content_handle) { } |
|
|
0 |
0 |
elsif (my $content = $response->content) { } |
|
543
|
0 |
0 |
unless defined $bytes_read |
|
557
|
0 |
0 |
unless sysread $socket, my $buffer, _ICAP_RESPONSE_PEEK_SIZE() |
|
563
|
0 |
0 |
if ($peek_buffer =~ /$entire_icap_headers_regex/msx) |
|
567
|
0 |
0 |
if ($peek_buffer =~ m[^ICAP/1[.]0[ ]100[ ]]msx) { } |
|
|
0 |
0 |
elsif ($peek_buffer =~ m[^ICAP/1[.]0[ ]204[ ]]msx) { } |
|
|
0 |
0 |
elsif ($peek_buffer =~ m[^ICAP/1[.]0[ ]([45]\d\d)[ ]]msx) { } |
|
587
|
0 |
0 |
if (defined $content_handle) { } |
|
|
0 |
0 |
elsif (my $content = $response->content) { } |
|
594
|
0 |
0 |
unless defined $bytes_read |
|
599
|
0 |
0 |
if ($preview_header) |
|
615
|
0 |
0 |
if (defined $content_handle) |
|
616
|
0 |
0 |
unless seek $content_handle, 0, 0 |
|
640
|
0 |
0 |
if ($preview_header) |
|
641
|
0 |
0 |
if (defined $content_handle) { } |
|
|
0 |
0 |
elsif (my $content = $request->content) { } |
|
649
|
0 |
0 |
unless defined $bytes_read |
|
663
|
0 |
0 |
unless sysread $socket, my $buffer, _ICAP_RESPONSE_PEEK_SIZE() |
|
669
|
0 |
0 |
if ($peek_buffer =~ /$entire_icap_headers_regex/msx) |
|
673
|
0 |
0 |
if ($peek_buffer =~ m[^ICAP/1[.]0[ ]100[ ]]msx) { } |
|
|
0 |
0 |
elsif ($peek_buffer =~ m[^ICAP/1[.]0[ ]204[ ]]msx) { } |
|
|
0 |
0 |
elsif ($peek_buffer =~ m[^ICAP/1[.]0[ ]([45]\d\d)[ ]]msx) { } |
|
692
|
0 |
0 |
if (defined $content_handle) { } |
|
|
0 |
0 |
elsif (my $content = $request->content) { } |
|
699
|
0 |
0 |
unless defined $bytes_read |
|
704
|
0 |
0 |
if ($preview_header) |