Branch Coverage

blib/lib/BW/CGI.pm
Criterion Covered Total %
branch 0 70 0.0


line true false branch
20 0 0 unless $ENV{'GATEWAY_INTERFACE'}
24 0 0 unless $self->max_content_length
25 0 0 unless $self->content_type
26 0 0 unless $self->host
56 0 0 unless $name and $$self{'vars'}{$name}
58 0 0 if (ref $$self{'vars'}{$name}) { }
59 0 0 if (defined $index) { }
62 0 0 unless defined $$self{'q_index'}{$name}
73 0 0 if $l
95 0 0 unless (ref $params)
100 0 0 unless my $k = $$params{'name'}
104 0 0 if defined $$params{'expires'}
105 0 0 if $$params{'path'}
106 0 0 if $$params{'domain'}
107 0 0 if defined $$params{'secure'}
108 0 0 if defined $$params{'httponly'}
117 0 0 unless $self->_get_cookies
125 0 0 unless ($$self{'get_cookies_flag'})
126 0 0 if ($ENV{'HTTP_COOKIE'})
142 0 0 unless (ref $params)
173 0 0 if $$self{'header_flag'}
176 0 0 if ($$self{'headers'})
181 0 0 if $$self{'status'}
191 0 0 unless defined $t
204 0 0 unless $n
211 0 0 if (defined $$self{'vars'}{$n} and $v) { }
212 0 0 if (ref $$self{'vars'}{$n}) { }
229 0 0 unless $$self{'q_names'}
231 0 0 if (uc $ENV{'REQUEST_METHOD'} eq 'GET') { }
0 0 elsif (uc $ENV{'REQUEST_METHOD'} eq 'POST') { }
236 0 0 if $content_length > $self->max_content_length
241 0 0 unless my $qs = $self->query_string
252 0 0 unless $s
260 0 0 unless $s
269 0 0 unless $s