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 |