Branch Coverage

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


line true false branch
20 0 0 if (defined $ENV{'QUERY_STRING'} and length $ENV{'QUERY_STRING'} >= 1)
24 0 0 if (defined $ENV{'CONTENT_LENGTH'})
28 0 0 if (defined $ENV{'HTTP_COOKIE'})
39 0 0 if ($ENV{$key}) { }
56 0 0 defined $ENV{'SERVER_SOFTWARE'} ? :
75 0 0 $_[0] eq 'info_all' ? :
76 0 0 if (not $_ =~ /^'/) { }
80 0 0 if ($_ eq q[''] or $_ eq q[' ']) { }
94 0 0 unless defined $ENV{'SERVER_SOFTWARE'} and $ENV{'SERVER_SOFTWARE'} =~ /apache/i
99 0 0 if $a->has('env')
102 0 0 if $a->has('mp')
106 0 0 if $a->has('env')
116 0 0 if ($opt eq 'core') { }
0 0 elsif ($opt eq 'all') { }
0 0 elsif ($opt eq 'loaded' and ref $_[0] eq 'ARRAY') { }
148 0 0 if (defined $ENV{'SERVER_SOFTWARE'})
151 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'}) { }
183 0 0 if $opt eq 'top'
215 0 0 if (defined $ENV{'SERVER_SOFTWARE'})