Branch Coverage

blib/lib/POE/Filter/SSL.pm

Criterion	Covered	Total	%
branch	0	266	0.0

line	true	false	branch
39	0	0	if (defined $self->[$EVENT_FLUSHED])
61	0	0	if (checkForDoSendback($_[10])) { }
62	0	0	unless (defined $$temp_flushed_event)
78	0	0	if ($_[3]{'self'}{'PreFilter'})
80	0	0	unless $_[3]{'self'}{'PreFilter' . ref($self) . $self->[16]}
81	0	0	if ($type eq 'input') { }
106	0	0	if ($self->[$PATCH])
110	0	0	if ($self->[$HANDSHAKE])
149	0	0	if (@$return)
156	0	0	if checkForDoSendback($return) and $return->[0] eq $filter
158	0	0	unless $exchanged
165	0	0	exists $self->[0][0] ? :
172	0	0	if (checkForDoSendback($data))
174	0	0	if ($data->[0] eq $filter)
180	0	0	if ($found) { }
183	0	0	unless $ok or $filter eq $data->[0] and checkForDoSendback($data)
186	0	0	unless @$data
203	0	0	if ref $chunks eq 'ARRAY' and scalar @$chunks
205	0	0	if &blessed($chunks) and $chunks->can('DOSENDBACK') and $chunks->DOSENDBACK
215	0	0	unless $x509result = &Net::SSLeay::PEM_read_bio_X509($bio)
226	0	0	unless $evp_pkey = &Net::SSLeay::PEM_read_bio_PrivateKey($bio)
237	0	0	if $err and $err != 1
240	0	0	if $err and $err != 1
250	0	0	if $self->{'debug'}
251	0	0	if $sent != length $data
267	0	0	if $self->{'cacrl'}
275	0	0	$params->{'tls1_2'} ? :
	0	0	$params->{'tls'} || $params->{'tls1_2'} ? :
280	0	0	unless $self->{'client'} or $params->{'nohonor'}
283	0	0	if ($params->{'chain'}) { }
285	0	0	if $err and $err != 1
288	0	0	if ($params->{'keymem'} or $params->{'key'})
289	0	0	if ($params->{'keymem'}) { }
292	0	0	if $self->{'debug'}
296	0	0	if $self->{'debug'}
298	0	0	if $err and $err != 1
301	0	0	if ($params->{'crtmem'} or $params->{'crt'})
302	0	0	if ($params->{'crtmem'}) { }
306	0	0	if $self->{'debug'}
311	0	0	if $self->{'debug'}
313	0	0	if $err and $err != 1
319	0	0	if ($params->{'cacrt'} or $params->{'cacrtmem'})
321	0	0	if ($params->{'cacrtmem'}) { }
322	0	0	if (ref $params->{'cacrtmem'} eq 'ARRAY') { }
326	0	0	unless $err
331	0	0	if $self->{'debug'}
336	0	0	if $self->{'debug'}
337	0	0	unless $err and $err == 1
340	0	0	if $self->{'debug'}
342	0	0	unless $err and $err == 1
345	0	0	if $err and $err != 1
350	0	0	if $params->{'cipher'}
351	0	0	if $err and $err != 1
355	0	0	unless $self->{'rbio'} = &Net::SSLeay::BIO_new(scalar &Net::SSLeay::BIO_s_mem())
357	0	0	unless $self->{'wbio'} = &Net::SSLeay::BIO_new(scalar &Net::SSLeay::BIO_s_mem())
361	0	0	if $err and $err != 1
364	0	0	if ($params->{'dhcert'} or $params->{'dhcertmem'})
367	0	0	if ($params->{'dhcertmem'}) { }
371	0	0	unless -s $params->{'dhcert'} and $dhbio = &Net::SSLeay::BIO_new_file($params->{'dhcert'}, 'r')
376	0	0	if $self->{'debug'}
379	0	0	if SSL_set_tmp_dh($self->{'ssl'}, $dhret) < 0
381	0	0	if $self->{'debug'}
389	0	0	unless SSL_CTX_set_tmp_rsa($self->{'context'}, $rsa)
391	0	0	if $self->{'debug'}
396	0	0	if $params->{'clientcert'}
398	0	0	if $params->{'blockbadclientcert'}
403	0	0	$params->{'blockbadclientcert'} ? :
	0	0	if $self->{'debug'}
404	0	0	if ($params->{'sni'})
407	0	0	if $self->{'debug'}
408	0	0	if $err and $err != 1
413	0	0	if $params->{'ignoreVerifyErrors'} and ref $params->{'ignoreVerifyErrors'} eq 'ARRAY'
422	0	0	if $self->{'debug'}
424	0	0	if ($self->{'ignoreVerifyErrors'} and ref $self->{'ignoreVerifyErrors'} eq 'ARRAY' and scalar grep({$errcode == $_;} @{$$self{'ignoreVerifyErrors'};}))
429	0	0	if $self->{'debug'}
432	0	0	if $self->{'debug'}
433	0	0	$ok ? :
	0	0	if $POE::Filter::SSL::globalinfos->[0] != 2
442	0	0	if (my $x = &Net::SSLeay::X509_STORE_CTX_get_current_cert($x509_store_ctx))
460	0	0	if $self->{'debug'}
461	0	0	$self->{'accepted'} ? :
468	0	0	if $self->{'debug'}
470	0	0	if $self->doSSL or $self->{'buffer'}
472	0	0	if $data
475	0	0	if $self->{'debug'}
482	0	0	if $self->{'debug'}
486	0	0	if $self->doSSL or $self->{'buffer'}
489	0	0	if $self->{'debug'}
493	0	0	if $self->{'debug'}
502	0	0	if $self->{'debug'}
505	0	0	if ($self->{'accepted'})
506	0	0	if (defined $self->{'sendbuf'})
514	0	0	if ref $data eq 'POE::Filter::SSL'
516	0	0	if $self->{'debug'}
517	0	0	if ($self->{'accepted'}) { }
520	0	0	if $data
525	0	0	if $self->{'buffer'}
533	0	0	if ((my $sent = &Net::SSLeay::write($self->{'ssl'}, $data)) != length $data)
544	0	0	if ((my $sent = &Net::SSLeay::BIO_write($self->{'rbio'}, $data)) != length $data)
548	0	0	unless $nodoSSL
559	0	0	if $self->{'debug'}
560	0	0	unless ($self->{'accepted'})
563	0	0	$self->{'client'} ? :
564	0	0	if ($err == 1) { }
572	0	0	unless ($err2 == Net::SSLeay::ERROR_WANT_READ())
573	0	0	$self->{'client'} ? :
575	0	0	if ($err3 = &Net::SSLeay::ERR_get_error()) { }
580	0	0	if (defined $self->{'errorhandler'}) { }
581	0	0	if (ref $self->{'errorhandler'} eq 'CODE') { }
	0	0	elsif (lc $self->{'errorhandler'} eq 'ignore') { }
	0	0	elsif (lc $self->{'errorhandler'} eq 'carp') { }
	0	0	elsif (lc $self->{'errorhandler'} eq 'confess') { }
	0	0	elsif (lc $self->{'errorhandler'} eq 'carponetime') { }
596	0	0	unless $self->{'errorstat'}{$err or '-'}{$err2 or '-'}{$err3 or '-'}++
602	0	0	unless $self->{'accepted'}++
610	0	0	if $self->{'debug'}
627	0	0	if (defined $self->{'cacrl'})
628	0	0	$self->clientCertNotOnCRL($self->{'cacrl'}) ? :
630	0	0	$self->clientCertExists ? :
635	0	0	$self->clientCertExists ? :
642	0	0	if (scalar @certids)
647	0	0	if $self->{'debug'}
650	0	0	if $crlstatus
651	0	0	!($crlstatus =~ /^CRL:/) ? :
	0	0	$crlstatus ? :
653	0	0	if (ref $_ eq 'ARRAY') { }
654	0	0	if ($self->{'debug'})
655	0	0	if $t
662	0	0	if $self->{'debug'}
666	0	0	if $self->{'debug'}
667	0	0	unless $badcrls
681	0	0	if $self->{'ssl'}
683	0	0	if $self->{'context'}