| line |
true |
false |
branch |
|
18
|
11 |
1 |
unless defined $$self{'_prefix'} |
|
19
|
1 |
11 |
unless $$self{'_prefix'} =~ /\_$/ |
|
20
|
6 |
6 |
ref $options eq 'HASH' ? : |
|
43
|
0 |
1 |
unless $_[0]{'listener'} |
|
48
|
0 |
1 |
unless $_[0]{'listener'} |
|
53
|
0 |
11 |
unless $_[0]{'listener'} |
|
64
|
0 |
86 |
unless $wheel_id and defined $$self{'clients'}{$wheel_id} |
|
76
|
0 |
12 |
if ($$self{'alias'}) { } |
|
82
|
11 |
1 |
if ($kernel != $sender) |
|
103
|
0 |
12 |
if $$self{'listener'} |
|
105
|
10 |
2 |
defined $$self{'address'} ? : |
|
|
10 |
2 |
defined $$self{'port'} ? : |
|
137
|
0 |
12 |
unless $wheel |
|
157
|
0 |
2 |
unless $self->_conn_exists($id) |
|
160
|
1 |
1 |
if wantarray |
|
167
|
0 |
1 |
unless $self->_conn_exists($id) |
|
173
|
1 |
11 |
if (defined $client_infilter or defined $client_outfilter) { } |
|
|
0 |
11 |
elsif (defined $client_filter) { } |
|
178
|
0 |
0 |
if (defined $client_filter) |
|
197
|
0 |
2 |
if (ref $filter eq 'ARRAY') { } |
|
|
2 |
0 |
elsif (ref $filter) { } |
|
200
|
0 |
0 |
if (_test_filter($filter)) { } |
|
210
|
0 |
0 |
if (_test_filter($filter)) { } |
|
226
|
0 |
0 |
if (not $eval and $@) |
|
239
|
0 |
0 |
if $operation eq 'listen' |
|
251
|
0 |
5 |
unless $self->_conn_exists($id) |
|
263
|
0 |
4 |
unless $self->_conn_exists($id) |
|
271
|
0 |
18 |
unless $self->_conn_exists($id) |
|
279
|
0 |
2 |
unless $self->_conn_exists($id) |
|
288
|
0 |
29 |
unless $self->_conn_exists($id) |
|
289
|
6 |
23 |
if ($$self{'clients'}{$id}{'BUFFER'}) |
|
291
|
2 |
4 |
unless ($item) |
|
299
|
18 |
5 |
unless ($$self{'clients'}{$id}{'quit'}) |
|
310
|
0 |
0 |
unless $self->_conn_exists($id) |
|
322
|
14 |
0 |
unless $$self{'alias'} |
|
332
|
0 |
1 |
unless (@events) |
|
340
|
1 |
0 |
unless /^_/ |
|
343
|
1 |
0 |
unless ($$self{'sessions'}{$sender_id}{'refcnt'}++ or $session == $sender) |
|
356
|
0 |
2 |
unless (@events) |
|
370
|
2 |
0 |
unless /^_/ |
|
372
|
0 |
2 |
unless ($blah) |
|
376
|
2 |
0 |
if (--$$self{'sessions'}{$sender_id}{'refcnt'} <= 0) |
|
378
|
2 |
0 |
unless ($session == $sender) |
|
390
|
10 |
0 |
if (--$$self{'sessions'}{$session_id}{'refcnt'} <= 0) |
|
392
|
10 |
0 |
unless $session_id eq $testd_id |
|
423
|
0 |
25 |
unless $self->_conn_exists($id) |
|
424
|
0 |
25 |
unless defined $output |
|
426
|
2 |
23 |
if (ref $output eq 'ARRAY') |
|
429
|
2 |
0 |
if scalar @{$temp;} |
|
430
|
2 |
0 |
if defined $first |
|
445
|
0 |
1 |
unless defined $output |