Branch Coverage

blib/lib/Net/SSLeay.pm
Criterion Covered Total %
branch 81 108 75.0


line true false branch
1004 166 961 if ($! != 0)
1005 100 66 if ($! =~ /((Invalid)|(not valid))/i or $!{'EINVAL'}) { }
1040 2 6 if $Net::SSLeay::trace
1051 2 2 if print_errs($msg)
1068 304 0 defined $_[0] ? :
1069 0 60 if $@
1094 0 1 unless $port =~ /^\d+$/
1096 0 3 unless (defined $dest_serv_ip)
1099 0 3 if $trace
1100 0 1 wantarray ? :
1104 0 1 if $trace > 2
1108 2 1 if (socket SSLCAT_S, &PF_INET(), &SOCK_STREAM(), $proto)
1109 0 1 if $trace > 3
1110 0 3 if (CORE::connect SSLCAT_S, $sin)
1112 0 3 if $trace > 3
1113 0 3 wantarray ? :
1117 0 1 if $trace
1119 0 2 wantarray ? :
1127 2 0 unless $proxyhost
1129 2 1 if $trace > 2
1131 20 3 wantarray ? :
0 23 unless $ret
1133 0 23 if $trace > 2
1138 0 3 wantarray ? :
2 21 if $errs
1140 2 19 if $trace > 2
1141 0 1 wantarray ? :
0 1 if $errs
1142 0 1 wantarray ? :
1189 5 58 unless $how_much
1195 4 60 $bsize < $how_much ? :
1196 2 62 unless defined $n
1197 2 27 unless $n
1199 0 5 if $trace > 1
1202 1 7 wantarray ? :
1348 0 6 if (ref $_[0]) { }
1354 2 6 $trace > 2 && $linux_debug ? :
1356 2 4 if $trace > 2
1358 3 5 if $trace > 3
1360 2 3 if (defined $wrote and $wrote > 0) { }
2 1 elsif (not defined $wrote) { }
1365 0 1 wantarray ? :
1367 1 4 $trace > 2 && $linux_debug ? :
1369 1 2 if $trace > 2
1371 1 3 wantarray ? :
1548 16 52 if $ENV{'EGD_PATH'}
1552 4 0 unless ($rnsf or -r $random_device or $seed or -S $egd_path)
1554 280 4 if $trace and not $poll_retval
1557 4 330 if $rnsf
1558 0 330 if $seed
1559 13 317 if $ENV{'RND_SEED'}
1560 51 17 if -r $random_device
1735 0 1 wantarray ? :
1 0 unless $got