| line |
true |
false |
branch |
|
21
|
11 |
1 |
unless defined $$self{'_prefix'} |
|
22
|
1 |
11 |
unless $$self{'_prefix'} =~ /\_$/ |
|
23
|
6 |
6 |
ref $options eq 'HASH' ? : |
|
46
|
0 |
1 |
unless $_[0]{'listener'} |
|
51
|
0 |
1 |
unless $_[0]{'listener'} |
|
56
|
0 |
11 |
unless $_[0]{'listener'} |
|
67
|
0 |
86 |
unless $wheel_id and defined $$self{'clients'}{$wheel_id} |
|
79
|
0 |
12 |
if ($$self{'alias'}) { } |
|
85
|
11 |
1 |
if ($kernel != $sender) |
|
106
|
0 |
12 |
if $$self{'listener'} |
|
108
|
10 |
2 |
defined $$self{'address'} ? : |
|
|
10 |
2 |
defined $$self{'port'} ? : |
|
140
|
0 |
12 |
unless $wheel |
|
160
|
0 |
2 |
unless $self->_conn_exists($id) |
|
163
|
1 |
1 |
if wantarray |
|
170
|
0 |
1 |
unless $self->_conn_exists($id) |
|
176
|
1 |
11 |
if (defined $client_infilter or defined $client_outfilter) { } |
|
|
0 |
11 |
elsif (defined $client_filter) { } |
|
181
|
0 |
0 |
if (defined $client_filter) |
|
200
|
0 |
2 |
if (ref $filter eq 'ARRAY') { } |
|
|
2 |
0 |
elsif (ref $filter) { } |
|
203
|
0 |
0 |
if (_test_filter($filter)) { } |
|
213
|
0 |
0 |
if (_test_filter($filter)) { } |
|
229
|
0 |
0 |
if (not $eval and $@) |
|
242
|
0 |
0 |
if $operation eq 'listen' |
|
254
|
0 |
5 |
unless $self->_conn_exists($id) |
|
266
|
0 |
4 |
unless $self->_conn_exists($id) |
|
274
|
0 |
18 |
unless $self->_conn_exists($id) |
|
282
|
0 |
2 |
unless $self->_conn_exists($id) |
|
291
|
0 |
29 |
unless $self->_conn_exists($id) |
|
292
|
6 |
23 |
if ($$self{'clients'}{$id}{'BUFFER'}) |
|
294
|
2 |
4 |
unless ($item) |
|
302
|
18 |
5 |
unless ($$self{'clients'}{$id}{'quit'}) |
|
313
|
0 |
0 |
unless $self->_conn_exists($id) |
|
325
|
14 |
0 |
unless $$self{'alias'} |
|
335
|
0 |
1 |
unless (@events) |
|
343
|
1 |
0 |
unless /^_/ |
|
346
|
1 |
0 |
unless ($$self{'sessions'}{$sender_id}{'refcnt'}++ or $session == $sender) |
|
359
|
0 |
2 |
unless (@events) |
|
373
|
2 |
0 |
unless /^_/ |
|
375
|
0 |
2 |
unless ($blah) |
|
379
|
2 |
0 |
if (--$$self{'sessions'}{$sender_id}{'refcnt'} <= 0) |
|
381
|
2 |
0 |
unless ($session == $sender) |
|
393
|
10 |
0 |
if (--$$self{'sessions'}{$session_id}{'refcnt'} <= 0) |
|
395
|
10 |
0 |
unless $session_id eq $testd_id |
|
426
|
0 |
25 |
unless $self->_conn_exists($id) |
|
427
|
0 |
25 |
unless defined $output |
|
429
|
2 |
23 |
if (ref $output eq 'ARRAY') |
|
432
|
2 |
0 |
if scalar @{$temp;} |
|
433
|
2 |
0 |
if defined $first |
|
448
|
0 |
1 |
unless defined $output |