Branch Coverage

blib/lib/Metabrik/Client/Ssl.pm
Criterion Covered Total %
branch 0 66 0.0


line true false branch
51 0 0 unless $self->brik_help_run_undef_arg("verify_server", $uri)
53 0 0 unless my $su = "Metabrik::String::Uri"->new_from_brik_init($self)
54 0 0 unless my $parsed = $su->parse($uri)
69 0 0 if (not defined $client || length $!) { }
0 0 elsif (not defined $client) { }
92 0 0 unless $self->brik_help_run_undef_arg("getcertificate", $uri)
94 0 0 unless ($uri =~ m[^https://])
113 0 0 unless (defined $cc)
117 0 0 if (scalar @$cc == 0)
125 0 0 if ($sock->can('peer_certificate')) { }
163 0 0 unless $x509
178 0 0 $nid > 0 ? :
0 0 $nid > 0 ? :
0 0 $nid > 0 ? :
201 0 0 $nid > 0 ? :
0 0 $nid > 0 ? :
0 0 $nid > 0 ? :
247 0 0 $nid > 0 ? :
0 0 $nid > 0 ? :
0 0 $nid > 0 ? :
290 0 0 if ($x)
309 0 0 unless $self->brik_help_run_undef_arg("getcertificate2", $host)
310 0 0 unless $self->brik_help_run_undef_arg("getcertificate2", $port)
314 0 0 if (defined $ENV{'HTTPS_PROXY'})
319 0 0 if (defined $userinfo)
329 0 0 unless ($got)
336 0 0 if ($errs = print_errs('Net::SSLeay::new_x_ctx') || !$ctx)
341 0 0 if ($errs = print_errs("Net::SSLeay::CTX_set_options"))
348 0 0 unless &Net::SSLeay::CTX_load_verify_locations($ctx, "", $cert_dir)
356 0 0 if ($errs = print_errs("Net::SSLeay::new"))
361 0 0 if ($errs = print_errs("fileno"))
371 0 0 unless ($cipher)
382 0 0 unless ($got)