| blib/lib/WWW/Shorten/SnipURL.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 1 | 16 | 6.2 |
| line | true | false | branch |
|---|---|---|---|
| 17 | 2 | 0 | unless my $url = shift() |
| 23 | 0 | 0 | unless $resp |
| 24 | 0 | 0 | unless $resp->is_success |
| 26 | 0 | 0 | if ($resp->content =~ m[ |
| 36 | 0 | 0 | unless my $code = shift() |
| 39 | 0 | 0 | unless $code =~ m[^http://]i |
| 42 | 0 | 0 | unless $resp |
| 43 | 0 | 0 | unless $resp->is_redirect |