Branch Coverage

blib/lib/Apache/FakeCookie.pm
Criterion Covered Total %
branch 48 68 70.5


line true false branch
17 3 7 wantarray ? :
24 2 3 if defined $val
25 5 0 if (defined $$self{-'value'}) { }
26 3 2 wantarray ? :
28 0 0 wantarray ? :
39 10 1 if (defined $val)
41 10 0 if (ref $val eq 'ARRAY') { }
0 0 elsif (ref $val eq 'HASH') { }
0 0 elsif (not ref $val) { }
50 5 6 if exists $$self{-'expires'} and defined $$self{-'expires'}
57 7 1 if (defined $$self{-'value'}) { }
65 2 1 if ($raw_cookie)
75 0 3 unless defined $value
77 3 0 if ($value ne '')
95 2 20 if @_
97 14 8 exists $$self{-'expires'} && defined $$self{-'expires'} ? :
112 0 7 unless $time =~ /^\d+$/
143 0 7 if (not $time or lc $time eq 'now') { }
2 5 elsif ($time =~ /^\d+/) { }
5 0 elsif ($time =~ /^([+-]?(?:\d+|\d*\.\d*))([mhdMy]?)/) { }
156 2 1 if ($name) { }
157 2 0 if exists $$Apache::Cookie::Cookies{$name}
159 1 0 if exists $$Apache::Cookie::Cookies{$$self{-'name'}}
165 0 17 unless $self->name
167 17 0 $cook{-'name'} ? :
168 17 0 if ($cook{-'value'})
176 13 21 if $cook{"-$_"}
178 9 8 if $_ = expires(\%cook)
179 9 8 $cook{-'secure'} ? :
191 4 26 if (defined $val)
196 1 3 if ($item eq '-name' and exists $$Apache::Cookie::Cookies{$$self{-'name'}})
203 29 1 exists $$self{$item} ? :
207 0 78 unless defined $x
214 0 12 unless defined $x