Branch Coverage

blib/lib/Anansi/Script/CGI.pm
Criterion Covered Total %
branch 0 92 0.0


line true false branch
165 0 0 if 0 != scalar @_
166 0 0 unless defined $self->{'CONTENTS'}
167 0 0 if 0 == scalar @_
169 0 0 if 0 < scalar @_
170 0 0 unless defined $content
171 0 0 unless ref($content) =~ /^$/
205 0 0 if 0 < scalar @_
206 0 0 if (0 == scalar @_) { }
0 0 elsif (1 == scalar @_) { }
0 0 elsif (1 == scalar(@_) % 2) { }
207 0 0 unless defined $self->{'HEADERS'}
211 0 0 unless defined $self->{'HEADERS'}
212 0 0 unless defined do { $$self{'HEADERS'} }->{$name}
219 0 0 if (not defined do { $$self{'HEADERS'} }->{$name}) { }
0 0 elsif (ref($parameters{$name}) =~ /^$/) { }
0 0 elsif (ref($parameters{$name}) =~ /^ARRAY$/i) { }
0 0 elsif (ref($parameters{$name}) =~ /^HASH$/i) { }
223 0 0 unless ref($value) =~ /^$/
227 0 0 if (defined do { $parameters{$name} }->{$value})
228 0 0 unless ref(do { $parameters{$name} }->{$value}) =~ /^$/
236 0 0 if (not defined do { $$self{'HEADERS'} }->{$name}) { }
0 0 elsif (ref($parameters{$name}) =~ /^$/) { }
0 0 elsif (ref($parameters{$name}) =~ /^ARRAY$/i) { }
0 0 elsif (ref($parameters{$name}) =~ /^HASH$/i) { }
246 0 0 unless ref(do { $$self{'HEADERS'} }->{$name}) =~ /^HASH$/i
248 0 0 if (not defined do { $parameters{$name} }->{$value}) { }
249 0 0 if defined do { ${$$self{'HEADERS'};}{$name} }->{$value}
273 0 0 unless defined $self->{'HEADERS'}
291 0 0 unless defined $self->{'PARAMETERS'}
314 0 0 if 0 < scalar @_
345 0 0 if 0 < scalar @_
346 0 0 if (0 == scalar @_) { }
0 0 elsif (1 == scalar @_) { }
0 0 elsif (1 == scalar(@_) % 2) { }
347 0 0 unless defined $self->{'PARAMETERS'}
351 0 0 unless defined $self->{'PARAMETERS'}
352 0 0 unless defined do { $$self{'PARAMETERS'} }->{$name}
359 0 0 if (defined do { $$self{'PARAMETERS'} }->{$name}) { }
392 0 0 if 0 < scalar @_
413 0 0 if 0 == scalar keys %{$$self{'HEADERS'};}
415 0 0 if (ref(do { $$self{'HEADERS'} }->{$header}) =~ /^$/) { }
0 0 elsif (ref(do { $$self{'HEADERS'} }->{$header}) =~ /^ARRAY$/i) { }
0 0 elsif (ref(do { $$self{'HEADERS'} }->{$header}) =~ /^HASH$/i) { }
446 0 0 if 0 < scalar @_
447 0 0 if exists $ENV{'MOD_PERL'}
448 0 0 if exists $ENV{'GATEWAY_INTERFACE'}