| blib/lib/WWW/Pastebin/Sprunge/Retrieve.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 1 | 18 | 5.5 |
| line | true | false | branch |
|---|---|---|---|
| 26 | 0 | 1 | if @_ & 1 |
| 50 | 0 | 0 | unless $id |
| 53 | 0 | 0 | unless (my $uri, $id) = $self->_make_uri_and_id($id, @_) |
| 60 | 0 | 0 | if ($response->is_success) { } |
| 80 | 0 | 0 | if (defined $is_net_error) { } |
| 94 | 0 | 0 | if ($in =~ m[ (?:http://)? (?:www\.)? sprunge.us/ (\S+?) (?:\?\w+)? $]xi) |
| 97 | 0 | 0 | unless defined $id |
| 107 | 0 | 0 | if (not defined $content && length $content) { } |
| 0 | 0 | elsif ($content =~ /\A$id not found.\Z/) { } |