| line |
true |
false |
branch |
|
21
|
0 |
3 |
unless $base |
|
27
|
0 |
12 |
unless $base |
|
44
|
0 |
9 |
unless $base |
|
50
|
18 |
525 |
unless $base |
|
58
|
19 |
38 |
if ($s eq 'emulate_Event') { } |
|
|
18 |
20 |
elsif ($s eq 'no_emulate_Event') { } |
|
|
20 |
0 |
elsif ($s eq 'AnyEvent') { } |
|
90
|
0 |
0 |
if ($fh) { } |
|
91
|
0 |
0 |
if (wantarray) { } |
|
96
|
0 |
0 |
if ($@ and $@ =~ /Can't locate object method "(.*?)" via package/) |
|
98
|
0 |
0 |
if ($1 ne $a) { } |
|
|
0 |
0 |
elsif ($event and $event->can($a)) { } |
|
101
|
0 |
0 |
if (wantarray) { } |
|
112
|
0 |
0 |
if ($event and $event->can($a)) { } |
|
113
|
0 |
0 |
if (wantarray) { } |
|
122
|
0 |
0 |
if $@ |
|
123
|
0 |
0 |
if wantarray |
|
184
|
3 |
540 |
unless $handler |
|
187
|
0 |
543 |
unless ref $fh |
|
189
|
543 |
0 |
unless (ref $options) |
|
204
|
0 |
543 |
if $$options{'read_only'} |
|
205
|
0 |
543 |
if $$options{'write_only'} |
|
209
|
0 |
543 |
if $T::debug |
|
229
|
0 |
12 |
unless defined $listener |
|
240
|
57 |
557 |
if ($in_callback and not $${*$self;}{'ie_reentrant'}) |
|
243
|
57 |
0 |
unless exists ${*$self;}{'ie_pending'}{$method} |
|
245
|
0 |
57 |
if $T::debug |
|
256
|
0 |
57 |
if $T::debug |
|
266
|
0 |
614 |
if $T::debug |
|
269
|
0 |
199 |
unless $required or ${*$self;}{'ie_handler'}->can($method) |
|
270
|
0 |
614 |
if ($T::debug) |
|
278
|
0 |
610 |
if $T::debug |
|
280
|
610 |
0 |
unless $@ |
|
281
|
0 |
0 |
if (${*$self;}{'ie_handler'}->can('ie_died')) { } |
|
297
|
0 |
110 |
if $T::sdebug |
|
302
|
110 |
0 |
if ($got & 1) |
|
303
|
20 |
89 |
if $self->ie_dispatch_read($fh) |
|
305
|
0 |
89 |
if ($got & 2) |
|
306
|
0 |
0 |
if $self->ie_dispatch_write($fh) |
|
308
|
0 |
89 |
if ($got & 4) |
|
311
|
0 |
89 |
if ($got & 8) |
|
321
|
0 |
425 |
if $T::sdebug |
|
322
|
102 |
323 |
if (${*$self;}{'ie_listener'}) { } |
|
|
323 |
0 |
elsif (${*$self;}{'ie_autoread'}) { } |
|
329
|
75 |
346 |
if ${*$self;}{'ie_writeclosed'} and ${*$self;}{'ie_readclosed'} |
|
336
|
0 |
0 |
if $T::sdebug |
|
337
|
0 |
0 |
if (${*$self;}{'ie_connecting'}) { } |
|
345
|
0 |
0 |
if (length $$obuf) |
|
347
|
0 |
0 |
if (defined $rv) { } |
|
|
0 |
0 |
elsif ($! == 11) { } |
|
358
|
0 |
0 |
if (${*$self;}{'ie_closerequested'}) { } |
|
|
0 |
0 |
elsif (${*$self;}{'ie_shutdownrequested'}) { } |
|
359
|
0 |
0 |
unless (length $$obuf) |
|
365
|
0 |
0 |
unless (length $$obuf) |
|
374
|
0 |
0 |
if ${*$self;}{'ie_writeclosed'} and ${*$self;}{'ie_readclosed'} |
|
375
|
0 |
0 |
unless (length $$obuf) |
|
378
|
0 |
0 |
if ${*$self;}{'ie_writeclosed'} and ${*$self;}{'ie_readclosed'} |
|
379
|
0 |
0 |
unless (length $$obuf) |
|
383
|
0 |
0 |
if (length $$obuf > ${*$self;}{'ie_obufsize'}) { } |
|
|
0 |
0 |
elsif (${*$self;}{'ie_overflowinvoked'}) { } |
|
392
|
0 |
0 |
if ${*$self;}{'ie_writeclosed'} and ${*$self;}{'ie_readclosed'} |
|
399
|
0 |
0 |
if $T::sdebug |
|
400
|
0 |
0 |
if (${*$self;}{'ie_closerequested'}) { } |
|
|
0 |
0 |
elsif (${*$self;}{'ie_writeclosed'} and ${*$self;}{'ie_readclosed'}) { } |
|
|
0 |
0 |
elsif ($fh->eof) { } |
|
405
|
0 |
0 |
if (length ${*$self;}{'ie_ibuf'}) |
|
408
|
0 |
0 |
if (${*$self;}{'ie_eofinvoked'}++) { } |
|
413
|
0 |
0 |
unless (${*$self;}{'ie_closecalled'}) |
|
427
|
0 |
0 |
if $T::sdebug |
|
428
|
0 |
0 |
if (${*$self;}{'ie_connecting'} and ${*$self;}{'ie_connect_timeout'} and time >= ${*$self;}{'ie_connect_timeout'}) { } |
|
433
|
0 |
0 |
unless $self->ie_invoke(0, 'ie_connect_failed', 110) |
|
458
|
246 |
320 |
if ($rv) { } |
|
|
133 |
187 |
elsif (defined $rv) { } |
|
|
187 |
0 |
elsif ($! == 11) { } |
|
474
|
0 |
243 |
if ${*$self;}{'ie_readclosed'} |
|
477
|
133 |
187 |
if (${*$self;}{'ie_readclosed'}) |
|
478
|
67 |
66 |
if length $$ibuf |
|
480
|
0 |
133 |
if (${*$self;}{'ie_connecting'}) { } |
|
488
|
133 |
0 |
unless ${*$self;}{'ie_eofinvoked'}++ |
|
498
|
0 |
0 |
if (@_) |
|
508
|
0 |
0 |
if (@_) |
|
510
|
0 |
0 |
if (length ${*$self;}{'ie_obuf'} > ${*$self;}{'ie_obufsize'}) { } |
|
|
0 |
0 |
elsif (${*$self;}{'ie_overflowinvoked'}) { } |
|
528
|
0 |
0 |
if (@_) |
|
530
|
0 |
0 |
if (${*$self;}{'ie_readclosed'}) |
|
542
|
0 |
623 |
unless @_ |
|
544
|
451 |
172 |
if defined $old and $old eq $new |
|
554
|
0 |
755 |
unless @_ |
|
557
|
75 |
680 |
if defined $old and $old eq $new |
|
596
|
0 |
0 |
if $t > $max |
|
620
|
0 |
0 |
if @_ |
|
630
|
0 |
0 |
if $l and $l >= $length |
|
631
|
0 |
0 |
if $length <= 0 |
|
639
|
0 |
54 |
unless ${*$self;}{'ie_autoread'} |
|
641
|
0 |
54 |
unless defined $length |
|
645
|
3 |
0 |
unless length $tmp or $self->eof2 |
|
658
|
0 |
0 |
unless ($fh->connected) |
|
663
|
0 |
0 |
if ${*$self;}{'ie_socket_timeout'} |
|
684
|
0 |
102 |
unless $newfh |
|
690
|
102 |
0 |
if ($sd == &AF_INET) { } |
|
|
0 |
0 |
elsif ($sd == &AF_UNIX) { } |
|
697
|
0 |
0 |
if ($pp) { } |
|
707
|
60 |
42 |
unless defined $handler |
|
720
|
42 |
0 |
if @_ |
|
722
|
0 |
42 |
if ($T::debug) |
|
738
|
0 |
0 |
if ($what == 1 or $what == 2) { } |
|
|
0 |
0 |
elsif ($what == 0) { } |
|
739
|
0 |
0 |
if (length ${*$self;}{'ie_obuf'}) { } |
|
741
|
0 |
0 |
if ($what == 2) |
|
753
|
0 |
0 |
if ($what == 0 or $what == 2) |
|
756
|
0 |
0 |
unless defined $r |
|
766
|
0 |
451 |
if (length $$obuf) { } |
|
783
|
0 |
451 |
if $T::debug |
|
793
|
0 |
0 |
if $fh->opened |
|
797
|
0 |
0 |
if (@_ == 1) { } |
|
|
0 |
0 |
elsif (@_ == 2) { } |
|
|
0 |
0 |
elsif (@_ == 3) { } |
|
|
0 |
0 |
elsif (@_ > 3) { } |
|
808
|
0 |
0 |
unless defined $r |
|
823
|
0 |
90 |
unless (${*$self;}{'ie_autoread'}) |
|
828
|
0 |
0 |
if ($rv) { } |
|
|
0 |
0 |
elsif (defined $rv) { } |
|
|
0 |
0 |
elsif ($! == 11) { } |
|
845
|
12 |
78 |
unless $length >= $_[1] or $self->eof2 |
|
847
|
39 |
39 |
defined $_[2] ? : |
|
860
|
0 |
0 |
if (defined $offset or defined $length) { } |
|
871
|
0 |
33 |
unless ${*$self;}{'ie_autoread'} |
|
875
|
15 |
18 |
if ($index < 0) |
|
876
|
9 |
6 |
unless $self->eof2 |
|
879
|
3 |
3 |
unless length $l |
|
902
|
0 |
805 |
unless ${*$self;}{'ie_autoread'} |
|
905
|
153 |
652 |
exists ${*$self;}{'ie_irs'} ? : |
|
911
|
0 |
805 |
if ref $irs |
|
913
|
15 |
790 |
if ($irs =~ /^\d/ and int $irs) { } |
|
|
0 |
790 |
elsif (not defined $irs) { } |
|
|
138 |
652 |
elsif ($irs eq '') { } |
|
914
|
12 |
3 |
if ($irs > 0 and length $$ibuf >= $irs) { } |
|
|
0 |
3 |
elsif ($self->eof2) { } |
|
920
|
0 |
0 |
if ($self->eof2) |
|
932
|
790 |
15 |
if (defined $index) |
|
933
|
60 |
149 |
$self->eof2 ? : |
|
|
581 |
209 |
$index > -1 ? : |
|
937
|
0 |
805 |
if ($T::debug) |
|
944
|
0 |
0 |
unless defined $line |
|
947
|
0 |
0 |
if defined $line |
|
949
|
182 |
623 |
unless defined $line and length $line |
|
965
|
0 |
113 |
unless ${*$self;}{'ie_autoread'} |
|
968
|
101 |
12 |
exists ${*$self;}{'ie_irs'} ? : |
|
970
|
0 |
113 |
if ($T::debug) |
|
976
|
3 |
110 |
if ($irs =~ /^\d/ and int $irs) { } |
|
|
0 |
110 |
elsif (not defined $irs) { } |
|
|
92 |
18 |
elsif ($irs eq '') { } |
|
977
|
3 |
0 |
if ($irs > 0) { } |
|
980
|
0 |
3 |
if length $lines[$#lines] != $irs and not $self->eof2 |
|
983
|
0 |
0 |
unless $self->eof2 |
|
988
|
0 |
0 |
unless $self->eof2 |
|
996
|
46 |
26 |
if @lines and substr($lines[$#lines], -2) ne "\n\n" and not $self->eof2 |
|
998
|
0 |
92 |
if ($T::debug) |
|
1007
|
6 |
12 |
unless exists $rxcache{$irs} |
|
1012
|
0 |
18 |
unless @lines |
|
1014
|
6 |
12 |
if substr($lines[$#lines], 0 - length($irs)) ne $irs and not $self->eof2 |
|
1051
|
0 |
102 |
if ${*$self;}{'ie_writeclosed'} |
|
1056
|
0 |
102 |
if ($ol = length $$obuf) { } |
|
1063
|
0 |
102 |
if (defined $rv and $rv < length $data) { } |
|
|
0 |
102 |
elsif (not defined $rv and $! == 11) { } |
|
1075
|
0 |
102 |
if (length $$obuf > ${*$self;}{'ie_obufsize'}) { } |
|
|
0 |
102 |
elsif (${*$self;}{'ie_overflowinvoked'}) { } |
|
1090
|
36 |
0 |
if length ${*$self;}{'ie_ibuf'} |
|
1091
|
0 |
0 |
if ${*$self;}{'ie_readclosed'} |
|
1101
|
0 |
340 |
if ($T::debug) |
|
1104
|
0 |
0 |
if ${*$self;}{'ie_readclosed'} |
|
1107
|
0 |
0 |
if ${*$self;}{'ie_readclosed'} |
|
1111
|
112 |
228 |
if ${*$self;}{'ie_readclosed'} |
|
1119
|
1 |
57 |
unless $self and ref $self and reftype $self eq 'GLOB' |
|
1121
|
57 |
0 |
if defined ${*$self;}{'ie_fileno'} |
|
1122
|
0 |
0 |
unless ${*$self;}{'ie_fh'} and reftype(${*$self;}{'ie_fh'}) eq 'GLOB' |
|
1130
|
1 |
57 |
unless defined $no |
|
1131
|
0 |
58 |
if $T::debug |
|
1132
|
1 |
57 |
unless $self and ref $self and reftype $self eq 'GLOB' |
|
1134
|
0 |
57 |
if ${*$self;}{'ie_event'} |
|
1153
|
113 |
796 |
wantarray ? : |
|
1160
|
0 |
0 |
if defined $new |
|
1208
|
0 |
78 |
if (not %sock || $b) { } |
|
1218
|
0 |
78 |
if ($sock{'Timeout'}) |
|
1231
|
0 |
78 |
unless defined $fh |
|
1234
|
66 |
12 |
if ($peer) |
|
1235
|
66 |
0 |
unless defined $ds{'LocalPort'} |
|
1237
|
66 |
0 |
unless defined $ds{'LocalHost'} |
|
1249
|
0 |
78 |
unless $fh |
|
1252
|
12 |
66 |
if $sock{'Listen'} |
|
1255
|
66 |
12 |
if ($peer) |
|
1256
|
66 |
0 |
if ($fh->connected) { } |
|
1261
|
0 |
0 |
if $timeout |
|
1265
|
0 |
78 |
if $timeout |
|
1284
|
0 |
0 |
if (not %sock || $b) { } |
|
1300
|
0 |
0 |
unless $fh |
|
1303
|
0 |
0 |
if $sock{'Listen'} |
|
1306
|
0 |
0 |
if ($sock{'Peer'}) |
|
1307
|
0 |
0 |
if ($fh->connected) { } |