Branch Coverage

blib/lib/Protocol/HTTP2/Upgrade.pm
Criterion Covered Total %
branch 21 26 80.7


line true false branch
19 0 2 if grep {lc $h eq $_;} 'connection', 'upgrade', 'http2-settings'
46 0 1 unless $$buf_ref =~ /$end_headers_re/g
52 0 1 unless $$buf_ref =~ m[\G(\w+) ([^ ]+) HTTP/1\.1\x0d?\x0a]g
66 1 3 if ($header eq 'connection') { }
1 2 elsif ($header eq 'upgrade' and grep {$_ eq Protocol::HTTP2::ident_plain();} split(/\s*,\s*/, $value, 0)) { }
1 1 elsif ($header eq 'http2-settings' and defined $con->frame_decode(\decode_base64url($value), 0)) { }
69 1 0 if exists $h{'upgrade'} and exists $h{'http2-settings'}
89 0 1 unless $success == 7
103 1 4 unless $$buf_ref =~ /$end_headers_re/g
109 2 2 unless $$buf_ref =~ m[\GHTTP/1\.1 101 .+?\x0d?\x0a]g
117 2 4 if ($header eq 'connection' and lc $value eq 'upgrade') { }
1 5 elsif ($header eq 'upgrade' and $value eq Protocol::HTTP2::ident_plain()) { }
126 1 1 unless $success == 3