| line |
true |
false |
branch |
|
40
|
1 |
2 |
$self->development ? : |
|
47
|
0 |
0 |
unless ($self->{'_socket'} and $self->{'_socket'}->opened) |
|
56
|
0 |
0 |
if defined $self->{$_} |
|
62
|
0 |
0 |
if (my $proxy = $self->proxy) { } |
|
63
|
0 |
0 |
unless $proxy =~ s[^http://][] |
|
73
|
0 |
0 |
unless $code eq '200' |
|
75
|
0 |
0 |
unless 'IO::Socket::SSL'->start_SSL($socket, 'SSL_hostname', $host, %ssl_opts) |
|
84
|
0 |
0 |
unless $socket = 'IO::Socket::SSL'->new('PeerHost', $host, 'PeerPort', $port, %ssl_opts) |
|
112
|
2 |
2 |
unless defined $v |
|
118
|
1 |
0 |
if ($self->team_id and $self->auth_key and $self->key_id) |
|
152
|
1 |
0 |
if (my $req = shift @{$$self{'_request'};}) { } |
|
157
|
0 |
0 |
if ref $done_cb eq 'CODE' |