Branch Coverage

blib/lib/HTTP/Parser/XS/PP.pm
Criterion Covered Total %
branch 48 78 61.5


line true false branch
8 1 9 unless (ref $env || '') eq 'HASH'
12 0 9 unless length $chunk
15 9 0 if ($chunk =~ /^(.*?\x0d?\x0a\x0d?\x0a)/s)
34 2 7 if (/^[ \t]+/) { }
35 0 2 unless @out
47 0 9 unless $http and $http =~ m[^HTTP/1\.(\d+)$]
52 1 8 if ($path =~ /%(?:[0-9a-f][^0-9a-f]|[^0-9a-f][0-9a-f])/i)
56 1 7 if ($path =~ /%(?:[0-9a-f])$/i)
72 7 0 if ($header =~ s/^($token): ?//) { }
0 0 elsif ($header =~ /^\s+/) { }
77 5 2 unless ($k =~ /^(?:CONTENT_LENGTH|CONTENT_TYPE)$/)
86 2 5 if (exists $$env{$k}) { }
106 0 37 unless $str
112 1 36 unless $proto =~ m[^HTTP/1.(\d)]
114 0 36 unless $rc =~ /^\d+$/
119 0 36 unless $parser_func
123 2 0 unless $str =~ /\r?\n\r?\n/ or $remain =~ /\r?\n\r?\n/ or defined $content
124 30 4 defined $content ? :
132 0 8 unless defined $str
133 8 0 unless keys %$special
137 0 0 if (defined $field)
138 0 0 if (ord $_ == 9 or ord $_ == 32)
143 0 0 if exists $$special{$f}
147 0 0 if (defined $field)
149 0 0 if exists $$special{$f}
156 0 8 unless defined $str
160 5 7 if (defined $field)
161 1 4 if (ord $_ == 9 or ord $_ == 32)
167 0 4 if exists $$special{$f}
171 7 1 if (defined $field)
174 0 7 if exists $$special{$f}
182 1 19 unless defined $str
186 14 17 if (defined $field)
187 3 11 if (ord $_ == 9 or ord $_ == 32)
192 0 11 if (defined $self{$f}) { }
194 0 0 ref $h eq 'ARRAY' ? :
202 17 2 if (defined $field)
204 3 14 if (defined $self{$f}) { }
206 0 3 ref $h eq 'ARRAY' ? :