Branch Coverage: lib/WWW/OpenAPI/Embedded.pm

# Branch Coverage

File: | lib/WWW/OpenAPI/Embedded.pm
Coverage: | 65.8%

line | % | coverage | branch
--- | --- | --- | ---
25 | 50 | T | F | ref $_[0] ? :
26 | 50 | T | F | unless my $params = _HASH0(shift @_)
28 | 50 | T | F | unless my $server = delete $$params{'server'}
72 | 50 | T | F | unless not defined $params or _HASH0 $params
74 | 50 | T | F | if ($params and %$params)
75 | 0 | T | F | if ($url =~ /\?/) { }
87 | 50 | T | F | if (not $url =~ m[^http://])
94 | 100 | T | F | if ($content) { }
| 100 | T | F | elsif ($method eq 'POST' or $method eq 'PUT') { }
95 | 50 | T | F | if ($method eq 'GET' or $method eq 'HEAD')
104 | 50 | T | F | if $timer
107 | 50 | T | F | if $timer
122 | 100 | T | F | if (%Cookies)
135 | 100 | T | F | if (is_utf8 $Buffer)
138 | 50 | T | F | if ($Buffer =~ m[^HTTP/1\.[01] (\d+) (\w+)\n])
145 | 100 | T | F | if ($raw_cookie)
160 | 100 | T | F | if ($uri =~ /\?(.+)/)
172 | 50 | T | F | if ($key =~ /^(?:PUTDATA|POSTDATA)$/)
180 | 100 | T | F | if (defined $name) { }