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