line |
true |
false |
branch |
37
|
1 |
0 |
unless defined ${^GLOBAL_PHASE} and ${^GLOBAL_PHASE} eq 'DESTRUCT' |
42
|
0 |
2 |
ref $_[-1] eq 'CODE' ? : |
47
|
3 |
10 |
ref $_[-1] eq 'CODE' ? : |
51
|
3 |
10 |
if $cb |
66
|
0 |
0 |
$_[1] ? : |
72
|
0 |
1 |
unless (ref $_[-1] eq 'CODE') |
113
|
0 |
1 |
$tls ? : |
|
4 |
1 |
$self->port ? : |
128
|
2 |
2 |
if $_[1] |
138
|
1 |
0 |
if $self |
139
|
0 |
0 |
if $self |
142
|
0 |
0 |
if $self |
143
|
0 |
5 |
$tls ? : |
150
|
5 |
0 |
unless my $queue = $self->{'queue'} |
180
|
1 |
3 |
if $err |
181
|
2 |
1 |
unless $res->[0]{'ret'} |
190
|
3 |
1 |
$self->new_login ? : |
203
|
1 |
24 |
unless my $r = $self->{'requests'}{delete $_->{'.tag'}} |
205
|
15 |
9 |
if %$_ and not $r->{'subscription'} |
207
|
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') { } |
224
|
5 |
16 |
unless $self->{'handle'} |
241
|
1 |
17 |
if $r->{'subscription'} |