| line |
true |
false |
branch |
| 46 |
1 |
2 |
unless my $url = shift @_ |
| 53 |
0 |
2 |
unless $resp->is_success |
| 55 |
0 |
2 |
if $content =~ /Error/ |
| 56 |
0 |
0 |
if ($resp->content =~ m[(http\:\/\/tinyurl\.com\/\w+)]x) |
| 74 |
1 |
2 |
unless my $tinyurl_url = shift @_ |
| 78 |
1 |
1 |
unless $tinyurl_url =~ m[^http://]i |
| 83 |
0 |
2 |
unless $resp->is_redirect |