Branch Coverage

blib/lib/WWW/Shorten/5gp.pm

Criterion	Covered	Total	%
branch	0	14	0.0

line	true	false	branch
18	0	0	unless my $url = shift()
24	0	0	unless $res and $res->is_success
26	0	0	unless $content and $content->{'url'}
31	0	0	unless my $url = shift()
34	0	0	unless $url =~ m[^http://]i
39	0	0	unless $res and $res->is_success
41	0	0	unless $content and $content->{$url}{'target_url'}