Branch Coverage

blib/lib/PLS/Server.pm
Criterion Covered Total %
branch 33 46 71.7


line true false branch
64 0 24 if $eof
66 24 0 unless ($size)
68 0 24 unless $$buffref =~ s/^(.*?)\r\n\r\n//s
73 1 23 unless $size
76 0 23 if length $$buffref < $size
93 7 0 if $^O ne "MSWin32"
98 6 0 length $exit_code ? :
105 19 4 if (length $message->{'method'}) { }
109 2 17 if (&blessed($message) and $message->isa("PLS::Server::Response"))
120 0 21 unless &blessed($message)
122 17 4 if ($message->isa("PLS::Server::Request"))
126 4 17 if ($message->isa("PLS::Server::Response"))
138 0 30 unless &blessed($request)
140 28 2 if ($request->isa('PLS::Server::Request')) { }
2 0 elsif ($request->isa('Future')) { }
161 0 38 unless &blessed($message) and $message->isa("PLS::Server::Message")
175 7 10 if (&blessed($response))
177 6 1 if ($response->isa('PLS::Server::Response')) { }
1 0 elsif ($response->isa('Future')) { }
183 1 0 if length $request->{'id'}
207 4 0 if (&blessed($request) and $request->isa("PLS::Server::Request"))
219 14 15 if ($request->{'notification'}) { }
229 15 14 if length $request->{'id'}