Branch Coverage

blib/lib/Net/SSLeay.pm
Criterion Covered Total %
branch 74 108 68.5


line true false branch
878 228 712 if ($! != 0)
879 90 138 if ($! =~ /((Invalid)|(not valid))/i or $!{'EINVAL'}) { }
914 2 2 if $Net::SSLeay::trace
925 2 2 if print_errs($msg)
942 304 0 defined $_[0] ? :
943 0 54 if $@
968 0 1 unless $port =~ /^\d+$/
970 0 1 unless (defined $dest_serv_ip)
973 0 1 if $trace
974 0 1 wantarray ? :
978 0 1 if $trace > 2
982 0 1 if (socket SSLCAT_S, &PF_INET(), &SOCK_STREAM(), $proto)
983 0 1 if $trace > 3
984 0 1 if (CORE::connect SSLCAT_S, $sin)
986 0 1 if $trace > 3
987 0 1 wantarray ? :
991 0 1 if $trace
993 0 0 wantarray ? :
1001 0 0 unless $proxyhost
1003 0 1 if $trace > 2
1005 22 1 wantarray ? :
0 23 unless $ret
1007 0 23 if $trace > 2
1012 0 1 wantarray ? :
0 23 if $errs
1014 2 21 if $trace > 2
1015 0 1 wantarray ? :
0 1 if $errs
1016 0 1 wantarray ? :
1063 5 43 unless $how_much
1069 4 45 $bsize < $how_much ? :
1070 2 47 unless defined $n
1071 2 27 unless $n
1073 0 6 if $trace > 1
1076 1 4 wantarray ? :
1222 0 5 if (ref $_[0]) { }
1228 2 3 $trace > 2 && $linux_debug ? :
1230 2 4 if $trace > 2
1232 3 3 if $trace > 3
1234 2 1 if (defined $wrote and $wrote > 0) { }
3 0 elsif (not defined $wrote) { }
1239 0 1 wantarray ? :
1241 0 2 $trace > 2 && $linux_debug ? :
1243 1 2 if $trace > 2
1245 1 1 wantarray ? :
1422 16 46 if $ENV{'EGD_PATH'}
1426 4 0 unless ($rnsf or -r $random_device or $seed or -S $egd_path)
1428 280 4 if $trace and not $poll_retval
1431 4 324 if $rnsf
1432 0 324 if $seed
1433 13 311 if $ENV{'RND_SEED'}
1434 45 17 if -r $random_device
1609 0 1 wantarray ? :
1 0 unless $got