Branch Coverage

blib/lib/HTML/Perlinfo/General.pm
Criterion Covered Total %
branch 0 50 0.0


line true false branch
21 0 0 if (defined $ENV{'QUERY_STRING'} and length $ENV{'QUERY_STRING'} >= 1)
24 0 0 if (defined $ENV{'CONTENT_LENGTH'})
27 0 0 if (defined $ENV{'HTTP_COOKIE'})
38 0 0 if ($ENV{$key}) { }
55 0 0 defined $ENV{'SERVER_SOFTWARE'} ? :
74 0 0 $_[0] eq 'info_all' ? :
75 0 0 if (not $_ =~ /^'/) { }
79 0 0 if ($_ eq q[''] or $_ eq q[' ']) { }
93 0 0 unless defined $ENV{'SERVER_SOFTWARE'} and $ENV{'SERVER_SOFTWARE'} =~ /apache/i
98 0 0 if $a->has('env')
101 0 0 if $a->has('mp')
105 0 0 if $a->has('env')
115 0 0 if ($opt eq 'core') { }
0 0 elsif ($opt eq 'all') { }
0 0 elsif ($opt eq 'loaded' and ref $_[0] eq 'ARRAY') { }
147 0 0 if (defined $ENV{'SERVER_SOFTWARE'})
150 0 0 if ($Config{'usethreads'} and not $Config{'useithreads'} and not $Config{'use5005threads'}) { }
0 0 elsif ($Config{'useithreads'} and not $Config{'usethreads'} and not $Config{'use5005threads'}) { }
0 0 elsif ($Config{'use5005threads'} and not $Config{'usethreads'} and not $Config{'useithreads'}) { }
0 0 elsif ($Config{'usethreads'} and $Config{'useithreads'} and not $Config{'use5005threads'}) { }
0 0 elsif ($Config{'usethreads'} and $Config{'use5005threads'} and not $Config{'useithreads'}) { }
0 0 elsif ($Config{'useithreads'} and $Config{'use5005threads'} and not $Config{'usethreads'}) { }
0 0 elsif ($Config{'usethreads'} and $Config{'useithreads'} and $Config{'use5005threads'}) { }
182 0 0 if $opt eq 'top'
214 0 0 if (defined $ENV{'SERVER_SOFTWARE'})