| blib/lib/WWW/SPOJ/User.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 9 | 14 | 64.2 |
| line | true | false | branch |
|---|---|---|---|
| 53 | 1 | 1 | if ($username =~ /^[a-z][a-z0-9_]+$/is) |
| 57 | 0 | 1 | unless $response->is_success |
| 58 | 0 | 1 | unless my $content = $response->decoded_content || $response->content |
| 66 | 0 | 1 | if ($te->table(0, 0)->rows)[1]->[1] =~ /^\s(.*)\'s user data/s |
| 68 | 0 | 1 | if defined $_{'username'} and $_{'username'} eq $username |
| 71 | 0 | 1 | if $@ |
| 74 | 1 | 1 | if $self |