Branch Coverage

blib/lib/CGI/Session/ExpireSessions.pm
Criterion Covered Total %
branch 17 58 29.3


line true false branch
89 2 0 if ($time - $$D{'_SESSION_ATIME'} >= $$self{'_delta'})
93 2 0 if $$self{'_verbose'}
96 0 2 if ($$D{'_SESSION_ETIME'} and not $expired)
98 0 0 if $time >= $$D{'_SESSION_ATIME'} + $$D{'_SESSION_ETIME'}
100 0 0 if $$self{'_verbose'}
123 0 0 if $session->is_empty
125 0 0 if ($session->is_expired or $$args{'_time'} - $session->atime >= $$args{'_delta'})
127 0 0 if $$args{'_verbose'}
147 0 0 if %arg
149 0 0 unless $$self{'_dbh'}
165 0 0 if $self->_check_expiry($D)
170 0 0 if $$self{'_verbose'}
179 0 0 if ($#id < 0 and $$self{'_verbose'})
192 0 1 if %arg
194 0 1 unless $$self{'_temp_dir'}
196 0 1 unless opendir INX, $$self{'_temp_dir'}
211 0 2 if ($time - $stat[8] >= $$self{'_delta'} and $stat[7] <= 5)
215 0 0 if $$self{'_verbose'}
224 0 2 if $stat[7] <= 5
226 0 2 unless open INX, $file
239 0 2 if ($@)
241 0 0 if $$self{'_verbose'}
246 2 0 if ($self->_check_expiry($D))
250 2 0 if $$self{'_verbose'}
256 0 1 if $count == 0 and $$self{'_verbose'}
266 0 1 unless 'CGI::Session'->can('find')
272 0 1 if %arg
299 6 10 if (exists $arg{$arg_name}) { }
321 0 0 if exists $$self{"_$arg"}