Branch Coverage

blib/lib/Net/ICAP/Client.pm
Criterion Covered Total %
branch 10 174 5.7


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)