Branch Coverage

inc/Test/Net/SSLeay.pm
Criterion Covered Total %
branch 44 92 47.8


line true false branch
77 1 55 if $test_no_warnings
84 0 2 unless &$sub()
105 0 335 unless eval { do { require Net::SSLeay; 1 } }
112 0 1 @warnings == 1 ? :
114 0 1 unless $tester->ok(@warnings == 0, $test_no_warnings_name)
131 0 59 unless eval "package $caller; use $_; 1;"
141 23 0 if can_really_fork()
144 0 0 if $Test::Net::SSLeay::Config{'d_pseudofork'}
148 0 0 if ($Test::Net::SSLeay::OSNAME eq 'Win32' || $Test::Net::SSLeay::OSNAME eq 'NetWare' and $Test::Net::SSLeay::Config{'useithreads'} and $Test::Net::SSLeay::Config{'ccflags'} =~ /-DPERL_IMPLICIT_SYS/)
159 25 0 if $Test::Net::SSLeay::Config{'d_fork'}
165 2 0 unless $Test::Net::SSLeay::Config{'useithreads'}
169 0 0 if ($Test::Net::SSLeay::PERL_VERSION == "5.01" and $Test::Net::SSLeay::Config{'ccname'} eq "gcc" and defined $Test::Net::SSLeay::Config{'gccversion'} and $Test::Net::SSLeay::Config{'gccversion'} =~ /^\d+\.\d+/)
179 0 0 if $gcc_major > 4 or $gcc_major == 4 and $gcc_minor >= 8
184 0 0 if $INC{'Devel/Cover.pm'}
195 0 90 unless -e $abs_path
206 0 677 if (eval { do { &$sub(); 1 } }) { }
219 0 677 unless $ok = $tester->ok($test, $name)
236 0 0 if (eval { do { &$sub(); 1 } }) { }
265 263 42 if $initialised
284 0 42 if Net::SSLeay::constant("OPENSSL_VERSION_NUMBER") < 9470207
288 0 42 if Net::SSLeay::constant("OPENSSL_VERSION_NUMBER") >= 268435456 and Net::SSLeay::constant("OPENSSL_VERSION_NUMBER") < 268435487
304 5 0 if Net::SSLeay::constant("OPENSSL_VERSION_NUMBER") != 536870912
314 0 25 if Net::SSLeay::constant("OPENSSL_VERSION_NUMBER") == 536870912
330 40 223 $proto_data->{'constant_type'} eq 'version' ? :
116 147 if ($proto_data->{'constant_type'} eq "version" ? !eval { do { &{$proto_data->{'constant'};}; 1 } } : !defined(&{$proto_data->{'constant'};}))
360 0 147 if ($proto_data->{'constant_type'} eq 'version') { }
361 0 0 unless $ctx = Net::SSLeay::CTX_new_with_method(Net::SSLeay::TLS_method())
368 0 147 unless $ctx = Net::SSLeay::CTX_new_with_method($constant)
372 0 147 unless my $ssl = Net::SSLeay::new($ctx)
378 0 147 unless Net::SSLeay::set_fd($ssl, -1)
392 0 147 unless Net::SSLeay::connect($ssl)
410 0 147 if $observed == $disabled
411 147 0 if $observed == $enabled
421 0 10 if (not eval { do { &$sub(); 1 } }) { }
460 96 180 defined $max_proto ? :
90 228 defined $min_proto ? :
276 42 if defined $min_proto ? $protos{$_}{'priority'} >= $protos{$min_proto}{'priority'} : 1
465 0 53 unless @usable_protos
472 0 53 if ($protos{$proto}{'constant_type'} eq 'version') { }
473 0 0 unless $ctx = Net::SSLeay::CTX_new_with_method(Net::SSLeay::TLS_method())
480 0 53 unless $ctx = Net::SSLeay::CTX_new_with_method($constant)
484 4 49 wantarray ? :
503 0 2 ref $expected eq 'ARRAY' ? :
519 0 2 unless (my $ok = $tester->ok($test, $name))
523 0 0 @got == 1 ? :
524 0 0 @expected == 1 ? :