Branch Coverage

blib/lib/WebDyne/Request/Fake.pm
Criterion Covered Total %
branch 30 64 46.8


line true false branch
87 77 7 unless defined &{$k;}
120 49 0 if ($WebDyne::Request::Fake::WEBDYNE_DIR_CONFIG_CWD_LOAD)
137 0 49 if (keys %{$dir_config_hr;})
159 48 1 if ($key) { }
164 0 48 if (exists $ENV{$key}) { }
190 48 0 if (my $server = $ENV{'WebDyneServer'} || $ENV{'HOSTNAME'} || $ENV{'SERVER_NAME'})
195 1 47 if (exists $constant_hr->{$server})
214 2 92 if (exists $constant_hr->{$hr_key}) { }
216 2 0 if exists $hr->{$hr_key}{$key}
224 0 46 if (exists $hr->{$key}) { }
276 1 19 if (@_ == 4) { }
0 19 elsif (@_ == 3) { }
19 0 elsif (@_ == 2) { }
311 0 0 $r->{'main'} ? :
319 0 0 unless not $r->{'warn'}
338 0 0 if (not $fn =~ /(?^:\.psp)/) { }
377 0 18 if (@_) { }
394 0 0 if (@_ == 3) { }
0 0 elsif (@_ == 2) { }
0 0 elsif (@_ == 1) { }
422 0 0 if (@_) { }
432 16 2 ref $_[0] eq 'SCALAR' ? :
479 2 16 if (@_) { }
494 0 0 if (@_) { }
509 0 67 if ($location) { }
534 0 0 if (@_) { }
542 18 0 unless $r->{'header'}
556 20 0 $content_type ? :
567 0 0 $handler ? :
598 2 20 if (-d ($dn = 'File::Spec'->rel2abs($fn))) { }
621 0 0 if ($v) { }
631 14 25 if (my $cr_ar = delete $r->{'register_cleanup'})