| line |
true |
false |
branch |
|
56
|
0 |
1 |
unless &List::Util::first(sub {
$_ eq $cmd;
}
, @COMMANDS) |
|
62
|
0 |
1 |
if (ref $cb ne 'CODE') { } |
|
76
|
0 |
0 |
unless my $loop = $self->ioloop |
|
79
|
0 |
0 |
if $$self{'_connection'} |
|
87
|
0 |
1 |
if ($self->connected) |
|
157
|
0 |
5 |
if (not $cb and ref $args eq 'CODE') { } |
|
|
4 |
1 |
elsif (not ref $args) { } |
|
174
|
1 |
4 |
unless $$self{'_connection'} |
|
205
|
0 |
1 |
unless $protocol |
|
214
|
5 |
1 |
if (my $id = $$self{'_connection'} and not $$self{'_connecting'}) |
|
219
|
11 |
0 |
if $self->encoding |
|
237
|
3 |
0 |
if ($type ne '*' and $self->encoding and $data) |
|
241
|
0 |
3 |
if ($type eq '-') { } |
|
|
3 |
0 |
elsif ($type ne '*') { } |
|
265
|
3 |
0 |
if $cb |
|
276
|
2 |
0 |
if $cb |