line |
true |
false |
branch |
41
|
1 |
0 |
unless defined ${^GLOBAL_PHASE} and ${^GLOBAL_PHASE} eq 'DESTRUCT' |
46
|
0 |
2 |
ref $_[-1] eq 'CODE' ? : |
51
|
3 |
10 |
ref $_[-1] eq 'CODE' ? : |
55
|
3 |
10 |
if $cb |
70
|
0 |
0 |
$_[1] ? : |
76
|
0 |
1 |
unless (ref $_[-1] eq 'CODE') |
117
|
0 |
1 |
$tls ? : |
|
4 |
1 |
$self->port ? : |
136
|
2 |
2 |
if $_[1] |
146
|
1 |
0 |
if $self |
147
|
0 |
0 |
if $self |
150
|
0 |
0 |
if $self |
151
|
0 |
5 |
$tls ? : |
158
|
5 |
0 |
unless my $queue = $self->{'queue'} |
189
|
1 |
3 |
if $err |
190
|
2 |
1 |
unless $res->[0]{'ret'} |
199
|
3 |
1 |
$self->new_login ? : |
212
|
1 |
24 |
unless my $r = $self->{'requests'}{delete $_->{'.tag'}} |
214
|
15 |
9 |
if %$_ and not $r->{'subscription'} |
216
|
1 |
23 |
if ($type eq '!re' and $r->{'subscription'}) { } |
|
8 |
15 |
elsif ($type eq '!done') { } |
|
7 |
8 |
elsif ($type eq '!trap' or $type eq '!fatal') { } |
233
|
5 |
16 |
unless $self->{'handle'} |
250
|
1 |
17 |
if $r->{'subscription'} |