Branch Coverage

inc/CGI/Session.pm
Criterion Covered Total %
branch 0 142 0.0


line true false branch
22 0 0 unless @args
26 0 0 if ($arg eq '-ip_match')
37 0 0 if (ref $class) { }
60 0 0 unless (defined $self)
65 0 0 unless ($$dataref{'_SESSION_ID'})
78 0 0 unless (defined $id)
101 0 0 defined $_[0]->dataref ? :
104 0 0 defined $_[0]->dataref ? :
107 0 0 defined $_[0]->dataref ? :
111 0 0 if defined $$self{'_OBJECTS'}{'driver'}
113 0 0 unless defined($$self{'_OBJECTS'}{'driver'} = $pm->new($$self{'_DRIVER_ARGS'}))
120 0 0 if defined $$self{'_OBJECTS'}{'serializer'}
127 0 0 if defined $$self{'_OBJECTS'}{'id'}
142 0 0 unless $dsn_str
154 0 0 if ($$self{'_QUERY'})
167 0 0 if (ref $self)
168 0 0 unless (@_)
174 0 0 if @_
191 0 0 unless @_
198 0 0 unless @_
220 0 0 unless $self->id
221 0 0 if not defined $$self{'_STATUS'} or $$self{'_STATUS'} == 0
223 0 0 if ($self->_test_status(1) and $self->_test_status(4))
231 0 0 if ($self->_test_status(4))
232 0 0 unless defined $driver->remove($self->id)
239 0 0 if ($self->_test_status(1) or $self->_test_status(2))
241 0 0 unless (defined $datastr)
244 0 0 unless defined $driver->store($self->id, $datastr)
257 0 0 if ($self->_test_status(4))
263 0 0 if (@args == 0) { }
0 0 elsif (@args == 1) { }
278 0 0 if (defined $name and defined $value)
279 0 0 if ($name =~ /^_SESSION_/)
290 0 0 if defined $args{'-name'}
295 0 0 if (@args % 2 == 0)
299 0 0 if ($name =~ /^_SESSION_/)
333 0 0 if ($self->is_expired) { }
0 0 elsif (my $t = $self->expire) { }
357 0 0 unless my(@values) = $query->param($p)
358 0 0 if (@values > 1) { }
386 0 0 if (defined $params) { }
387 0 0 unless ref $params
405 0 0 if (@_ == 1) { }
413 0 0 unless ($coderef and ref $coderef and ref $coderef eq 'CODE')
418 0 0 if ($dsn)
425 0 0 if (my $errmsg = $@)
430 0 0 unless ($driver_obj)
438 0 0 unless ($session)
444 0 0 unless defined $driver_obj->traverse($driver_coderef)
638 0 0 if ref $class
639 0 0 if @_ > 4
665 0 0 if (@_ == 1) { }
0 0 elsif (@_ > 1) { }
675 0 0 if (defined $update_atime and $update_atime ne '0')
679 0 0 if (defined $dsn)
686 0 0 if defined $dsn_args
692 0 0 unless (defined $$self{'_CLAIMED_ID'})
697 0 0 if (my $errmsg = $@)
703 0 0 unless $$self{'_CLAIMED_ID'}
708 0 0 unless (defined $raw_data)
713 0 0 unless $raw_data
717 0 0 unless (defined $$self{'_DATA'})
722 0 0 unless (defined $$self{'_DATA'} and ref $$self{'_DATA'} and ref $$self{'_DATA'} eq 'HASH' and defined $$self{'_DATA'}{'_SESSION_ID'})
728 0 0 if ($CGI::Session::IP_MATCH)
729 0 0 unless ($self->_ip_matches)
737 0 0 if ($$self{'_DATA'}{'_SESSION_ETIME'})
738 0 0 if ($$self{'_DATA'}{'_SESSION_ATIME'} + $$self{'_DATA'}{'_SESSION_ETIME'} <= time)
749 0 0 if ($$self{'_DATA'}{'_SESSION_ATIME'} + $max_exp_interval <= time)
753 0 0 if @expired_params
757 0 0 unless (defined $update_atime)
770 0 0 if (ref $query_or_sid) { }