Branch Coverage

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


line true false branch
19 0 0 if (defined $ENV{'QUERY_STRING'} and length $ENV{'QUERY_STRING'} >= 1)
22 0 0 if (defined $ENV{'CONTENT_LENGTH'})
25 0 0 if (defined $ENV{'HTTP_COOKIE'})
36 0 0 if ($ENV{$key}) { }
50 0 0 defined $ENV{'SERVER_SOFTWARE'} ? :
72 0 0 $_[0] eq 'info_all' ? :
73 0 0 if (not $_ =~ /^'/) { }
77 0 0 if ($_ eq q[''] or $_ eq q[' ']) { }
91 0 0 unless defined $ENV{'SERVER_SOFTWARE'} and $ENV{'SERVER_SOFTWARE'} =~ /apache/i
96 0 0 if $a->has('env')
99 0 0 if $a->has('mp')
103 0 0 if $a->has('env')
113 0 0 if ($opt eq 'core') { }
0 0 elsif ($opt eq 'all') { }
0 0 elsif ($opt eq 'loaded' and ref $_[0] eq 'ARRAY') { }
145 0 0 if (defined $ENV{'SERVER_SOFTWARE'})
148 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'}) { }
180 0 0 if $opt eq 'top'
212 0 0 if (defined $ENV{'SERVER_SOFTWARE'})