| line |
true |
false |
branch |
|
67
|
1 |
2 |
if ($opt{'https'} or $opt{'ssl'}) { }
|
|
|
2 |
0 |
elsif ($opt{'file'}) { }
|
|
73
|
0 |
2 |
unless (-r $self->{'target'})
|
|
79
|
0 |
3 |
if ($opt{'timeout'})
|
|
82
|
0 |
3 |
if ($opt{'sni'})
|
|
92
|
1 |
1 |
unless ($self->{'expire_date'})
|
|
93
|
0 |
1 |
if ($self->{'type'} eq 'ssl') { }
|
|
|
1 |
0 |
elsif ($self->{'type'} eq 'file') { }
|
|
99
|
0 |
0 |
if $@
|
|
100
|
0 |
0 |
unless $cert
|
|
123
|
0 |
2 |
unless ($self->{'begin_date'})
|
|
137
|
0 |
3 |
unless ($self->{'begin_date'})
|
|
141
|
1 |
2 |
unless (ref $duration)
|
|
148
|
2 |
1 |
'DateTime'->compare($dx, $self->{'expire_date'}) >= 0 ? :
|
|
182
|
0 |
0 |
unless $sock = $Socket->new(%$sock)
|
|
185
|
0 |
0 |
if ($sni) { }
|
|
|
0 |
0 |
elsif (not $host =~ /^[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}$/) { }
|
|
195
|
0 |
0 |
if ($record->{'type'} != $SSL3_RT_HANDSHAKE)
|
|
196
|
0 |
0 |
if ($record->{'type'} == $SSL3_RT_ALERT) { }
|
|
199
|
0 |
0 |
if ($d1 eq $SSL3_AL_WARNING) { }
|
|
210
|
0 |
0 |
if $do_loop++ >= 10
|
|
211
|
0 |
0 |
if ($handshake->{'type'} == $SSL3_MT_HELLO_REQUEST) { }
|
|
|
0 |
0 |
elsif ($handshake->{'type'} == $SSL3_MT_CERTIFICATE_REQUEST) { }
|
|
|
0 |
0 |
elsif ($handshake->{'type'} == $SSL3_MT_SERVER_HELLO) { }
|
|
|
0 |
0 |
elsif ($handshake->{'type'} == $SSL3_MT_CERTIFICATE) { }
|
|
|
0 |
0 |
elsif ($handshake->{'type'} == $SSL3_MT_SERVER_KEY_EXCHANGE) { }
|
|
|
0 |
0 |
elsif ($handshake->{'type'} == $SSL3_MT_SERVER_DONE) { }
|
|
222
|
0 |
0 |
if $len1 != $len2 + 3
|
|
235
|
0 |
0 |
unless _sendalert($sock, $SSL3_AL_FATAL, $SSL3_AD_HANDSHAKE_FAILURE)
|
|
323
|
0 |
0 |
if ($servername)
|
|
452
|
0 |
0 |
if ($ext_len > 0)
|
|
488
|
0 |
0 |
unless $sock->read($record->{'type'}, 1)
|
|
491
|
0 |
0 |
unless $sock->read($record->{'version'}, 2)
|
|
494
|
0 |
0 |
unless $sock->read($record->{'length'}, 2)
|
|
497
|
0 |
0 |
unless $sock->read($record->{'data'}, $record->{'length'})
|
|
511
|
0 |
0 |
if $record->{'read'} >= $record->{'length'}
|
|
514
|
0 |
0 |
if $record->{'read'} + 3 > $record->{'length'}
|
|
521
|
0 |
0 |
if ($handshake->{'length'} > 0) { }
|
|
524
|
0 |
0 |
if $record->{'read'} > $record->{'length'}
|