| inc/Test/HTTP/LocalServer.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 8 | 18 | 44.4 |
| line | true | false | branch |
|---|---|---|---|
| 74 | 0 | 7 | if delete $args{'debug'} |
| 80 | 0 | 7 | if (my $html = delete $args{'html'}) |
| 84 | 0 | 0 | unless print $fh $html |
| 99 | 1 | 6 | if $args{'eval'} |
| 101 | 0 | 7 | unless open my $server, qq[$^X "$server_file" "$web_page" "$logfile" @opts|] |
| 105 | 0 | 7 | unless $url |
| 123 | 0 | 0 | unless $_[0]{'_server_url'} |
| 166 | 0 | 7 | if $_[0]{'_server_url'} |
| 168 | 0 | 7 | unless unlink $file |