Branch Coverage

blib/lib/WWW/Shorten/TinyURL.pm

Criterion	Covered	Total	%
branch	10	24	41.6

line	true	false	branch
15	1	2	unless my $url = shift()
21	0	2	unless $resp->is_success
23	0	2	if ($content =~ /Error/)
25	0	0	if ($content =~ /
	0	0	elsif (length $content > 100) { }
36	2	0	if ($resp->content =~ m[(http\:\/\/tinyurl\.com\/\w+)]x)
43	1	2	unless my $tinyurl_url = shift()
48	1	1	unless $tinyurl_url =~ m[^http://]i
53	0	2	unless ($resp->is_redirect)
55	0	0	if ($content =~ /Error/) { }
56	0	0	if ($content =~ /
	0	0	elsif (length $content > 100) { }