line |
true |
false |
branch |
22
|
0 |
3 |
if (defined &DEBUG) { } |
|
3 |
0 |
elsif (defined &Pod::Simple::DEBUG) { } |
|
0 |
0 |
elsif (($ENV{'PODWEBSERVERDEBUG'} || '') =~ /^(\d+)$/) { } |
39
|
0 |
17 |
unless defined $file and length $file |
42
|
0 |
14 |
$file =~ /\.png/ ? : |
|
0 |
14 |
$file =~ /\.jpe?g/ ? : |
|
0 |
14 |
$file =~ /\.gif/ ? : |
|
0 |
14 |
$file =~ /\.txt/ ? : |
|
0 |
14 |
$file =~ /\.html?/ ? : |
|
0 |
14 |
$file =~ /\.dat?/ ? : |
|
1 |
14 |
$file eq '/' ? : |
52
|
0 |
17 |
unless defined '' |
88
|
0 |
0 |
'Pod::Webserver' eq $class ? : |
95
|
0 |
0 |
if defined &Win32::BuildNumber and defined &Win32::BuildNumber() |
97
|
0 |
0 |
if defined $MacPerl::Version |
109
|
14 |
0 |
unless $_[0]{'_filespecsys'} |
116
|
0 |
0 |
unless @ARGV |
120
|
0 |
0 |
unless Getopt::Std::getopts('d:e:H:hp:qt:Vv', \%o) |
123
|
0 |
0 |
if $o{'h'} |
124
|
0 |
0 |
if $o{'V'} |
126
|
0 |
0 |
if $o{'p'} and not $o{'p'} =~ /^\d+$/ |
127
|
0 |
0 |
if $o{'t'} and not $o{'t'} =~ /^\d+$/ |
129
|
0 |
0 |
if $o{'e'} |
130
|
0 |
0 |
if $o{'d'} |
132
|
0 |
0 |
if $o{'H'} |
133
|
0 |
0 |
if $o{'p'} |
134
|
0 |
0 |
if $o{'t'} |
136
|
0 |
0 |
if $o{'q'} |
137
|
0 |
0 |
if $o{'v'} |
149
|
0 |
0 |
@_ ? : |
150
|
0 |
0 |
unless ref $self |
160
|
0 |
0 |
if $^O =~ /Win32/ |
194
|
0 |
1 |
if defined $self->httpd_host |
197
|
1 |
0 |
if (defined $self->httpd_timeout) { } |
199
|
1 |
0 |
if ($self->httpd_timeout > 0) |
210
|
0 |
1 |
unless 'Pod::Webserver::Daemon'->new(@opts) |
254
|
0 |
1 |
if ($self->skip_indexing) { } |
258
|
0 |
1 |
if ($self->progress) { } |
|
0 |
2 |
elsif ($self->verbose >= 1 and $self->verbose <= 5) { } |
268
|
1 |
0 |
if ($#{$self->dir_include;} >= 0) { } |
277
|
1 |
0 |
$dir_include ? : |
283
|
0 |
1070 |
if grep(($value =~ /^\Q$_\E/), @{$self->dir_exclude;}) |
286
|
0 |
1 |
unless $m2p and keys %$m2p |
308
|
0 |
0 |
if (my $req = $conn->get_request) |
328
|
0 |
1 |
unless (-e $filename and -r _ and -s _) |
343
|
1 |
0 |
if ($retval = $self->_do_one_batch_conversion($modname, {$modname, $filename}, '/', 'Pod::Simple::TiedOutFH'->handle_on($contr))) { } |
367
|
0 |
1 |
unless $req->method eq 'GET' |
381
|
1 |
0 |
if ($modname =~ /^([a-zA-Z0-9_]+(?:::[a-zA-Z0-9_]+)*)$/s) { } |
388
|
0 |
1 |
if ($$fs{$path}) { } |
|
0 |
1 |
elsif ($modname eq '') { } |
|
1 |
0 |
elsif ($$pods{$modname}) { } |
399
|
0 |
1 |
unless $self->_serve_pod($modname, $$pods{$modname}, $resp) |
407
|
0 |
0 |
if (defined $fspath) { } |
413
|
0 |
0 |
unless ($$self{'httpd_has_noted_inc_already'}++) |
419
|
1 |
0 |
$resp ? : |