| 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 ? : |