Branch Coverage

blib/lib/Perlbal/SocketSSL.pm
Criterion Covered Total %
branch 0 16 0.0


line true false branch
38 0 0 unless ref $self
67 0 0 if (defined $sock)
99 0 0 if ($! == 11) { }
100 0 0 if ($Perlbal::SocketSSL::SSL_ERROR == 56751016) { }
0 0 elsif ($Perlbal::SocketSSL::SSL_ERROR == 56751592) { }
143 0 0 unless my $self = shift()
150 0 0 if (my $ds = $${*$self;}{'_danga_socket'}) { }
153 0 0 if $ds->sock