Branch Coverage

blib/lib/Protocol/Gearman.pm
Criterion Covered Total %
branch 22 32 68.7


line true false branch
78 0 1 unless builtin::reftype($self) eq "HASH" and ref(my $code = $self->{'gearman_method_new_future'}) eq "CODE"
94 0 1 unless builtin::reftype($self) eq "HASH" and ref(my $code = $self->{'gearman_method_send'}) eq "CODE"
231 1 10 unless my $typefn = __PACKAGE__->can("TYPE_\U$typename\E")
236 1 9 unless @args == $n_args
266 1 8 unless my $typename = $TYPENAMES{$type}
271 0 8 if $n_args == 0
297 3 7 unless length $_[0] >= 4
298 1 6 unless unpack("a4", $_[0]) eq "\0RES"
301 0 6 unless length $_[0] >= 12
304 0 6 unless length $_[0] >= 12 + $bodylen
330 0 2 unless $fh->read(my $magic, 4)
331 1 1 unless $magic eq "\0RES"
334 0 1 unless $fh->read(my $header, 8)
338 1 0 if $bodylen
369 0 1 unless $fh->print($self->build_packet_to_string($name, @args))
486 0 2 unless defined $methods{$_} and ref $methods{$_} eq "CODE"