| blib/lib/WWW/Shorten/0rz.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 8 | 16 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 18 | 1 | 1 | unless my $url = shift() |
| 28 | 0 | 1 | unless $mech->response->is_success |
| 39 | 1 | 2 | unless my $url = shift() |
| 42 | 1 | 1 | unless $url =~ m[^http://]i |
| 44 | 0 | 2 | unless ($resp->is_redirect) |
| 46 | 0 | 0 | if ($content =~ /Error/) { } |
| 47 | 0 | 0 | if ($content =~ / |
| 0 | 0 | elsif (length $content > 100) { } |