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) { } |