Branch Coverage

blib/lib/CGI/Cookie.pm
Criterion Covered Total %
branch 60 92 65.2


line true false branch
42 2 2 unless my $raw_cookie = get_raw_cookie(@_)
50 2 2 unless my $raw_cookie = get_raw_cookie(@_)
57 8 0 if (/^([^=]+)=(.*)/) { }
67 0 2 unless wantarray
73 0 0 $MOD_PERL == 2 ? :
0 8 if $MOD_PERL
76 0 8 if ($r) { }
79 0 8 if ($MOD_PERL and not exists $ENV{'REQUEST_METHOD'})
98 0 23 if not defined $value
100 23 0 if ($value ne '')
109 1 5 unless wantarray
115 0 35 if ref $class
118 2 0 unless $_[0]->isa('Apache::Request::Req')
1 34 if ref $_[0] and eval {
124 24 11 if (ref $value) { }
125 24 0 if (ref $value eq 'ARRAY') { }
0 0 elsif (ref $value eq 'HASH') { }
145 35 0 if defined $path
146 7 28 if defined $domain
147 6 29 if defined $secure
148 5 30 if defined $expires
149 0 35 if defined $httponly
156 0 49 unless $self->name
160 24 25 if $domain = $self->domain
161 49 0 if $path = $self->path
162 10 39 if $expires = $self->expires
163 0 49 if $max_age = $self->max_age
164 19 30 if $secure = $self->secure
165 0 49 if $httponly = $self->httponly
168 49 0 defined $key ? :
58 0 defined $_ ? :
181 0 2 if $MOD_PERL
182 0 0 $MOD_PERL == 2 ? :
186 2 0 if ($r) { }
198 1 104 if defined $name
205 1 67 if (defined $value)
207 1 0 if (ref $value) { }
208 1 0 if (ref $value eq 'ARRAY') { }
0 0 elsif (ref $value eq 'HASH') { }
218 49 19 wantarray ? :
224 9 54 if defined $domain
231 7 53 if defined $secure
238 6 57 if defined $expires
245 0 49 if defined $expires
252 36 55 if defined $path
260 0 49 if defined $httponly