Branch Coverage

blib/lib/WWW/Shorten/SnipURL.pm
Criterion Covered Total %
branch 6 12 50.0


line true false branch
50 0 1 unless my $url = shift @_
62 0 1 unless $resp->is_success
64 0 0 if ($resp->content =~ m[<input class="snipped textsnipped" type="text" value="(http://snipurl.com/\w+)"])
82 1 1 unless my $code = shift @_
86 0 1 unless ($code =~ m[^http://])
91 0 1 unless $resp->is_redirect