| line |
true |
false |
branch |
|
74
|
0 |
1 |
unless reftype $self eq 'HASH' and ref(my $code = $$self{'gearman_method_new_future'}) eq 'CODE' |
|
89
|
0 |
1 |
unless reftype $self eq 'HASH' and ref(my $code = $$self{'gearman_method_send'}) eq 'CODE' |
|
225
|
1 |
9 |
unless my $typefn = 'Protocol::Gearman'->can("TYPE_\U$typename\E") |
|
230
|
1 |
8 |
unless @args == $n_args |
|
261
|
1 |
8 |
unless my $typename = $TYPENAMES{$type} |
|
266
|
0 |
8 |
if $n_args == 0 |
|
289
|
3 |
7 |
unless length $_[0] >= 4 |
|
290
|
1 |
6 |
unless unpack('a4', $_[0]) eq "\000RES" |
|
293
|
0 |
6 |
unless length $_[0] >= 12 |
|
296
|
0 |
6 |
unless length $_[0] >= 12 + $bodylen |
|
323
|
0 |
2 |
unless $fh->read(my $magic, 4) |
|
324
|
1 |
1 |
unless $magic eq "\000RES" |
|
327
|
0 |
1 |
unless $fh->read(my $header, 8) |
|
331
|
1 |
0 |
if $bodylen |
|
361
|
0 |
1 |
unless $fh->print($self->build_packet_to_string(@_)) |
|
479
|
0 |
2 |
unless defined $methods{$_} and ref $methods{$_} eq 'CODE' |