| 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 ? : |