| line |
true |
false |
branch |
|
58
|
0 |
0 |
if ($@) |
|
66
|
0 |
0 |
if $self->connect |
|
84
|
0 |
0 |
if $$self{'remote'}{'connected'} and $$self{'remote'}{'socket'} and $self->ping |
|
92
|
0 |
0 |
if DEBUG() |
|
105
|
0 |
0 |
unless $sock |
|
111
|
0 |
0 |
if ($$self{'protocol'} eq 'IKC0') |
|
112
|
0 |
0 |
if ($self->_protocol_IKC0($sock)) |
|
126
|
0 |
0 |
if $resp eq 'DONE' |
|
127
|
0 |
0 |
unless $resp =~ /^IAM\s+([-:.\w]+)$/ |
|
134
|
0 |
0 |
unless defined $resp |
|
140
|
0 |
0 |
unless defined $resp |
|
141
|
0 |
0 |
unless $resp eq 'OK' |
|
147
|
0 |
0 |
unless defined $resp |
|
148
|
0 |
0 |
unless $resp eq 'OK' |
|
153
|
0 |
0 |
unless defined $resp |
|
154
|
0 |
0 |
unless $resp eq 'UP' |
|
158
|
0 |
0 |
if ($@) |
|
161
|
0 |
0 |
if ($POE::Component::IKC::ClientLite::error eq "alarm\n") |
|
187
|
0 |
0 |
if $resp eq 'NOT' |
|
188
|
0 |
0 |
unless $resp =~ /^SETUP (.+)$/ |
|
191
|
0 |
0 |
if ($$neg{'bad'}) |
|
195
|
0 |
0 |
unless $$neg{'freezer'}[0] eq $$self{'serialiser'} |
|
209
|
0 |
0 |
if @_ == 1 |
|
222
|
0 |
0 |
unless $r |
|
224
|
0 |
0 |
if $pong and $pong eq 'PONG' |
|
226
|
0 |
0 |
if $@ |
|
249
|
0 |
2 |
if DEBUG() |
|
258
|
0 |
0 |
unless (ref $spec or $spec =~ /^poe:/) |
|
260
|
0 |
0 |
unless ($$self{'remote'}{'name'}) |
|
270
|
0 |
0 |
if 0 == $self->_try_send({'event', $spec, 'params', $params}) |
|
273
|
0 |
0 |
if ($@) |
|
285
|
0 |
0 |
unless ref $spec or $spec =~ /^poe:/ |
|
294
|
0 |
0 |
unless $self->_try_send($req) |
|
295
|
0 |
0 |
if DEBUG() |
|
298
|
0 |
0 |
if ($@) |
|
302
|
0 |
0 |
if $$req{'wantarray'} |
|
313
|
0 |
0 |
unless ref $spec or $spec =~ /^poe:/ |
|
319
|
0 |
0 |
unless $self->_try_send({'event', $spec, 'params', [$params, $rsvp]}) |
|
322
|
0 |
0 |
if DEBUG() |
|
325
|
0 |
0 |
if ($@) |
|
343
|
0 |
0 |
if DEBUG() |
|
346
|
0 |
0 |
if ($@) |
|
350
|
0 |
0 |
if wantarray |
|
370
|
0 |
0 |
unless $$self{'remote'}{'connected'} or $self->connect |
|
375
|
0 |
0 |
if DEBUG() |
|
376
|
0 |
0 |
if (defined $ret and $ret == 0) |
|
377
|
0 |
0 |
unless $self->connect |
|
378
|
0 |
0 |
if DEBUG() |
|
389
|
0 |
0 |
$$msg{'rsvp'} ? : |
|
392
|
0 |
0 |
unless ($to) |
|
395
|
0 |
0 |
unless ($to) |
|
399
|
0 |
0 |
unless ($$to{'session'}) |
|
403
|
0 |
0 |
unless ($$to{'state'}) |
|
411
|
0 |
0 |
unless ($$self{'remote'}{'socket'}->opened) |
|
416
|
0 |
0 |
unless ($$self{'remote'}{'socket'}->syswrite($raw, length $raw)) |
|
418
|
0 |
0 |
if $! == 32 |
|
437
|
0 |
0 |
unless my $select = 'IO::Select'->new |
|
446
|
0 |
0 |
if ($timeout <= 0) |
|
451
|
0 |
0 |
unless (@ready) |
|
458
|
0 |
0 |
unless $s eq $$remote{'socket'} |
|
461
|
0 |
0 |
if DEBUG() |
|
467
|
0 |
0 |
unless (defined $l) |
|
468
|
0 |
0 |
if $! == 32 |
|
473
|
0 |
0 |
if (not $need and $raw =~ s/(\d+)\0//s) |
|
475
|
0 |
0 |
if DEBUG() |
|
478
|
0 |
0 |
unless $need |
|
480
|
0 |
0 |
if (length $raw >= $need) |
|
483
|
0 |
0 |
if DEBUG() |
|
488
|
0 |
0 |
if DEBUG() |
|
491
|
0 |
0 |
if $$msg{'is_error'} |
|
492
|
0 |
0 |
if DEBUG() |
|
495
|
0 |
0 |
if ($$to{'session'} ne 'IKC' and $$to{'session'} ne 'IKCLite') |
|
498
|
0 |
0 |
if DEBUG() |
|
501
|
0 |
0 |
if ($$to{'session'} ne $$rsvp{'session'} or $$to{'state'} ne $$rsvp{'state'}) |
|
506
|
0 |
0 |
if DEBUG() |
|
510
|
0 |
0 |
if DEBUG() |
|
511
|
0 |
0 |
if ($wantarray) |
|
512
|
0 |
0 |
if DEBUG() |
|
513
|
0 |
0 |
if ref $$msg{'params'} eq 'ARRAY' |
|
546
|
0 |
0 |
if $@ |
|
547
|
0 |
0 |
if $@ eq '' |
|
555
|
0 |
0 |
unless (ref $freezer) |
|
559
|
0 |
0 |
unless (exists $$symtable{"${p}::"}) |
|
566
|
0 |
0 |
unless ($loaded) |
|
569
|
0 |
0 |
if $@ |
|
575
|
0 |
0 |
unless $freeze |
|
577
|
0 |
0 |
unless $thaw |
|
582
|
0 |
0 |
if (ref $freezer) { } |