| blib/lib/Bio/PrimerDesigner/Remote.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 8 | 14 | 57.1 |
| line | true | false | branch |
|---|---|---|---|
| 48 | 2 | 1 | unless my $url = shift() |
| 49 | 1 | 0 | unless $url =~ m[https?://] |
| 50 | 0 | 1 | unless my $args = shift() |
| 57 | 0 | 1 | unless ($self->check($url, $ua, $program)) |
| 74 | 0 | 1 | unless $ua and $request and $response |
| 100 | 0 | 1 | unless $response |
| 105 | 0 | 1 | unless $output =~ /$program OK/m |