| blib/lib/App/HTTPThis.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 0 | 32 | 0.0 |
| line | true | false | branch |
|---|---|---|---|
| 49 | 0 | 0 | unless defined $dir |
| 50 | 0 | 0 | if (not $config_file and -f "$dir/$default_config_file") |
| 56 | 0 | 0 | if ($config_file) |
| 57 | 0 | 0 | unless my $config = "Config::Tiny"->read($config_file) |
| 60 | 0 | 0 | if $config->{'_'}{$key} |
| 66 | 0 | 0 | unless &GetOptions($self, "help", "man", "config=s", "host=s", "port=i", "name=s", "autoindex!", "pretty!") |
| 68 | 0 | 0 | if $self->{'help'} |
| 69 | 0 | 0 | if $self->{'man'} |
| 71 | 0 | 0 | if (@ARGV > 1) { } |
| 0 | 0 | elsif (@ARGV) { } | |
| 96 | 0 | 0 | $self->{'host'} ? : |
| 105 | 0 | 0 | if $self->{'autoindex'} |
| 110 | 0 | 0 | if (my $e = $@) |
| 111 | 0 | 0 | if $e =~ /failed to listen to port/ |
| 127 | 0 | 0 | unless my $name = $self->{'name'} |
| 138 | 0 | 0 | if ($@) |