| blib/lib/App/HTTPThis.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 0 | 30 | 0.0 |
| line | true | false | branch |
|---|---|---|---|
| 20 | 0 | 0 | unless &GetOptions($self, "help", "man", "config=s", "host=s", "port=i", "name=s", "autoindex", "pretty") |
| 23 | 0 | 0 | if $self->{'help'} |
| 24 | 0 | 0 | if $self->{'man'} |
| 28 | 0 | 0 | if (not $config_file and -f "$dir/$default_config_file") |
| 34 | 0 | 0 | if ($config_file) |
| 35 | 0 | 0 | unless my $config = "Config::Tiny"->read($config_file) |
| 38 | 0 | 0 | if $config->{'_'}{$key} |
| 43 | 0 | 0 | if (@ARGV > 1) { } |
| 0 | 0 | elsif (@ARGV) { } | |
| 63 | 0 | 0 | $self->{'host'} ? : |
| 71 | 0 | 0 | if $self->{'autoindex'} |
| 76 | 0 | 0 | if (my $e = $@) |
| 77 | 0 | 0 | if $e =~ /failed to listen to port/ |
| 93 | 0 | 0 | unless my $name = $self->{'name'} |
| 104 | 0 | 0 | if ($@) |