| blib/lib/WWW/Shorten/Digg.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 1 | 14 | 7.1 |
| line | true | false | branch |
|---|---|---|---|
| 48 | 0 | 1 | unless my $url = uri_escape(shift()) |
| 52 | 0 | 0 | unless $resp->is_success |
| 54 | 0 | 0 | if ($resp->content =~ m[short_url="(http\:\/\/digg\.com\/\w+)"]x) |
| 72 | 0 | 0 | unless my $short = uri_escape(shift()) |
| 73 | 0 | 0 | if ($short =~ /http\%3A\%2F\%2Fdigg\.com\%2F(\w+)/x) |
| 79 | 0 | 0 | unless $resp->is_success |
| 81 | 0 | 0 | if ($resp->content =~ /link="(.*?)"/x) |