Branch Coverage

blib/lib/HTTP/Link/Parser.pm
Criterion Covered Total %
branch 21 50 42.0


line true false branch
36 0 0 unless blessed $response and $response->isa('HTTP::Message')
50 0 0 unless blessed $response and $response->isa('HTTP::Message')
61 0 0 if defined $$link{'anchor'}
86 0 0 if (defined $$link{'title'})
88 0 0 if (blessed($$link{'title'}) and $$link{'title'}->isa('HTTP::Link::Parser::PlainLiteral')) { }
107 0 0 if (defined $$link{'title*'})
120 0 0 if (defined $$link{'hreflang'})
132 0 0 if (defined $$link{'type'} and $$link{'type'} =~ ?([A-Z0-9\!\#\$\&\.\+\-\^\_]{1,127})/([A-Z0-9\!\#\$\&\.\+\-\^\_]{1,127})?i)
151 0 0 if ($str =~ /^([a-z][a-z0-9\+\.\-]{0,126})\:/i)
164 0 1 unless blessed $response and $response->isa('HTTP::Message')
171 0 1 if ($response->header('Content-Language') =~ /^\s*([^,\s]+)/)
190 6 0 if ($hdrv =~ /^(\s*<([^>]*)>\s*)/) { }
208 14 2 if $val =~ /^".*"$/
210 4 12 if ($key eq 'rel') { }
2 10 elsif ($key eq 'rev') { }
1 9 elsif ($key eq 'anchor') { }
6 3 elsif ($key eq 'title') { }
1 2 elsif ($key eq 'title*') { }
1 1 elsif ($key eq 'type') { }
230 1 0 unless defined $$rv{'anchor'}
235 0 6 if (defined $default_lang) { }
242 6 0 unless defined $$rv{'title'}
256 1 0 unless defined $$rv{'type'}
273 0 0 if $_[0][0] eq $_[1][0]
276 0 0 length $_[0][2] ? :