| blib/lib/WebService/ReviewBoard.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 9 | 22 | 40.9 |
| line | true | false | branch |
|---|---|---|---|
| 17 | 0 | 4 | unless ($url =~ m[^https?://]) |
| 33 | 0 | 3 | unless my $username = shift() |
| 34 | 0 | 3 | unless my $password = shift() |
| 59 | 0 | 3 | unless my $path = shift() |
| 60 | 0 | 3 | unless my $method = shift() |
| 67 | 3 | 0 | if ($method eq 'POST') { } |
| 0 | 0 | elsif ($method eq 'GET') { } | |
| 82 | 0 | 3 | if ($response->is_success) { } |
| 90 | 0 | 0 | if ($$json{'err'} and $$json{'err'}{'msg'}) |
| 99 | 0 | 3 | unless my $self = shift() |
| 101 | 3 | 0 | unless ($$self{'ua'}) |