| line |
true |
false |
branch |
|
21
|
1 |
1 |
if $addr |
|
22
|
0 |
2 |
unless my $socket = 'IO::Socket::INET'->new(%a) |
|
37
|
2 |
0 |
unless BLOCKING() & 2 |
|
38
|
2 |
0 |
unless BLOCKING() & 1 |
|
52
|
0 |
1 |
if (BLOCKING() or $Net::PSYC::ANACHRONISM) { } |
|
63
|
1 |
1 |
unless ${$$self{'O_BUFFER'};}[$$self{'O_COUNT'}] |
|
83
|
0 |
1 |
unless ($host) |
|
91
|
0 |
1 |
unless (defined $$self{'SOCKET'}->send($m, 0, $tin)) |
|
92
|
0 |
0 |
if (++$$packet[3] >= 3) |
|
101
|
1 |
0 |
if (not scalar @{${$$self{'O_BUFFER'};}[$$self{'O_COUNT'}];}) { } |
|
104
|
1 |
0 |
unless ${$$self{'O_BUFFER'};}[$$self{'O_COUNT'}] |
|
107
|
0 |
0 |
unless ${$$self{'O_BUFFER'};}[++$$self{'O_COUNT'}] |
|
109
|
0 |
1 |
if (scalar @{$$self{'O_BUFFER'};}) |
|
110
|
0 |
0 |
if (BLOCKING() or $Net::PSYC::ANACHRONISM) { } |
|
125
|
0 |
1 |
unless $data |
|
138
|
1 |
1 |
if (length $$self{'I_BUFFER'} > 2) |
|
139
|
1 |
0 |
if ($$self{'LF'} or $$self{'I_BUFFER'} =~ s/^\.(\r?\n)//g) |
|
143
|
0 |
1 |
unless defined $vars |
|
144
|
1 |
0 |
unless (exists $$vars{'_source'}) |