| line |
true |
false |
branch |
|
80
|
0 |
2 |
$#_ == 0 ? : |
|
82
|
0 |
2 |
if ($$self{'Debug'} and ref $$self{'Debug'} ne 'CODE') |
|
85
|
0 |
2 |
if $$self{'Debug'} |
|
87
|
2 |
0 |
unless ($$self{'Socket'}) |
|
88
|
2 |
0 |
unless defined $$self{'Proto'} |
|
90
|
2 |
0 |
unless defined $$self{'PeerAddr'} |
|
92
|
2 |
0 |
unless defined $$self{'PeerAddr'} |
|
94
|
2 |
0 |
unless $$self{'Port'} |
|
104
|
0 |
3 |
if $$self{'Debug'} |
|
111
|
1 |
2 |
unless (defined $$self{'Socket'}) |
|
125
|
4 |
0 |
unless exists $$self{'PreviousTime'} |
|
126
|
0 |
0 |
if ($$self{'PreviousTime'} + 10 > time) |
|
127
|
0 |
0 |
if $$self{'Debug'} |
|
145
|
10 |
0 |
if ($socket->protocol == 17) |
|
146
|
1 |
9 |
if (length $data > 1024) |
|
147
|
0 |
1 |
if $$self{'Debug'} |
|
158
|
0 |
9 |
if ($socket->protocol == 6) |
|
159
|
0 |
0 |
if $$self{'Debug'} |
|
161
|
0 |
0 |
if $$self{'Debug'} |
|
163
|
0 |
9 |
unless $socket->send($data) |
|
170
|
0 |
10 |
unless ref($query) =~ /[a-z]/ |
|
172
|
0 |
10 |
unless $query->isa('Mail::Karmasphere::Query') |
|
175
|
0 |
10 |
if $$self{'Debug'} |
|
182
|
0 |
10 |
if $query->has_identities |
|
183
|
0 |
10 |
if $query->has_composites |
|
184
|
1 |
9 |
if $query->has_feeds |
|
185
|
0 |
10 |
if $query->has_combiners |
|
186
|
0 |
10 |
if $query->has_flags |
|
187
|
0 |
10 |
if (defined $$self{'Principal'}) |
|
188
|
0 |
0 |
defined $$self{'Credentials'} ? : |
|
191
|
0 |
10 |
if $$self{'Debug'} |
|
194
|
0 |
10 |
if $$self{'Debug'} |
|
205
|
0 |
0 |
if ($socket->protocol == 6) { } |
|
206
|
0 |
0 |
unless $socket->read($data, 4) |
|
212
|
0 |
0 |
unless my $bytes = $socket->read($block, $length) |
|
217
|
0 |
0 |
if $$self{'Debug'} |
|
220
|
0 |
0 |
unless $socket->recv($data, 8192) |
|
222
|
0 |
0 |
if $$self{'Debug'} |
|
225
|
0 |
0 |
unless ref $packet eq 'HASH' |
|
228
|
0 |
0 |
if $$self{'Debug'} |
|
235
|
0 |
4 |
ref $query ? : |
|
236
|
0 |
4 |
if (defined $id) { } |
|
237
|
0 |
0 |
if ($Mail::Karmasphere::Client::QUEUE{$id}) |
|
238
|
0 |
0 |
if $$self{'Debug'} |
|
245
|
0 |
4 |
if (@Mail::Karmasphere::Client::QUEUE) |
|
251
|
4 |
0 |
unless defined $timeout |
|
256
|
0 |
4 |
if $prev |
|
260
|
0 |
4 |
if (@ready) |
|
262
|
0 |
0 |
if ref $query |
|
263
|
0 |
0 |
unless defined $id |
|
264
|
0 |
0 |
if $response->id eq $id |
|
269
|
0 |
0 |
if (@Mail::Karmasphere::Client::QUEUE > $Mail::Karmasphere::Client::QUEUE) |
|
284
|
1 |
0 |
unless defined $timeout |
|
289
|
0 |
0 |
if $response |