| blib/lib/Bio/PrimerDesigner/Remote.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 7 | 14 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 45 | 1 | 1 | unless my $url = shift() |
| 46 | 1 | 0 | unless $url =~ m[https?://] |
| 47 | 0 | 1 | unless my $args = shift() |
| 54 | 1 | 0 | unless ($self->check($url, $ua, $program)) |
| 71 | 0 | 0 | unless $ua and $request and $response |
| 98 | 0 | 1 | unless $response |
| 101 | 1 | 0 | unless $response->content =~ /$program OK/m |