Branch Coverage

blib/lib/Pod/Webserver/Source.pm
Criterion Covered Total %
branch 0 24 0.0


line true false branch
10 0 0 unless $req->method eq 'GET'
28 0 0 unless $modname =~ /\.source$/
31 0 0 if ($modname =~ /^([a-zA-Z0-9_]+(?:::[a-zA-Z0-9_]+)*)$/s) { }
36 0 0 if &Pod::Webserver::DEBUG() > 1
38 0 0 if ($$pods{$modname}) { }
47 0 0 if (defined $fspath) { }
53 0 0 unless ($$self{'httpd_has_noted_inc_already'}++)
59 0 0 $resp ? :
67 0 0 if (eval { do { require Perl::Tidy } }) { }
77 0 0 if (open PODFH, "< $fspath") { }
93 0 0 if $self->no_contents_links
95 0 0 if $self->contents_file