Branch Coverage

lib/URI/Title.pm
Criterion Covered Total %
branch 15 54 27.7


line true false branch
35 0 3 unless $res
40 1 0 if $res->code >= 400 and $res->code < 500 and $res->code != 404
41 0 2 unless $res->is_success
42 0 2 unless (wantarray)
47 0 2 if ($ct =~ /charset\s*=\>?\s*\"?([\w-]+)/i)
62 0 0 unless $response
65 0 0 unless $length
75 0 0 unless $res
77 0 0 unless $res->is_success
78 0 0 unless wantarray
81 0 0 if ($ct =~ /charset=\"?(.*)\"?$/)
92 1 0 unless $res->is_success
93 0 0 unless wantarray
96 0 0 if ($ct =~ /charset=\"?(.*)\"?$/)
106 0 2 if $HANDLERS
123 0 3 if (ref $param) { }
124 0 0 if ($param->{'data'}) { }
0 0 elsif ($param->{'url'}) { }
126 0 0 if ref $data
139 0 0 unless ($url or $data)
145 3 0 unless ($data)
147 0 3 if (-e $url) { }
149 0 0 unless (open DATA, $url)
159 0 3 if ($url =~ s/^itms:/http:/) { }
170 1 2 unless ($data)
175 0 2 unless $data
181 0 2 unless my $handler = $handlers->{$type} || $handlers->{'default'}