Branch Coverage

blib/lib/PLS/Server.pm
Criterion Covered Total %
branch 33 48 68.7


line true false branch
120 0 24 if $eof
122 24 0 unless ($size)
124 0 24 unless $$buffref =~ s/^(.*?)\r\n\r\n//s
129 1 23 unless $size
132 0 23 if length $$buffref < $size
149 7 0 if $^O ne "MSWin32"
154 6 0 length $exit_code ? :
161 19 4 if (length $message->{'method'}) { }
165 2 17 if (&blessed($message) and $message->isa("PLS::Server::Response"))
176 0 21 unless &blessed($message)
178 17 4 if ($message->isa("PLS::Server::Request"))
182 4 17 if ($message->isa("PLS::Server::Response"))
194 0 30 unless &blessed($request)
196 28 2 if ($request->isa('PLS::Server::Request')) { }
2 0 elsif ($request->isa('Future')) { }
217 0 38 unless &blessed($message) and $message->isa("PLS::Server::Message")
231 7 10 if (&blessed($response))
233 6 1 if ($response->isa('PLS::Server::Response')) { }
1 0 elsif ($response->isa('Future')) { }
239 1 0 if length $request->{'id'}
263 4 0 if (&blessed($request) and $request->isa("PLS::Server::Request"))
275 14 15 if ($request->{'notification'}) { }
285 15 14 if length $request->{'id'}
305 0 0 if kill "ZERO", $pid