Branch Coverage

blib/lib/Logfile/EPrints/Filter/Session.pm
Criterion Covered Total %
branch 22 28 78.5


line true false branch
20 0 24 if $Logfile::EPrints::Filter::Session::AUTOLOAD =~ /[A-Z]$/
24 1 23 if (exists $Logfile::EPrints::Filter::Session::SESSIONS{$address} and $Logfile::EPrints::Filter::Session::SESSIONS{$address}->expired_by($hit))
36 1 23 if ++$Logfile::EPrints::Filter::Session::TIDY_COUNT > $Logfile::EPrints::Filter::Session::TIDY_ON
48 1 1 if ($Logfile::EPrints::Filter::Session::SESSIONS{$_}->expired_by($hit))
115 11 0 @_ == 2 ? :
121 0 24 if $Logfile::EPrints::Session::AUTOLOAD =~ /[A-Z]$/
125 6 18 unless (defined $$self{'last_seen'})
131 1 23 if ($Logfile::EPrints::Session::AUTOLOAD eq 'abstract') { }
3 20 elsif ($Logfile::EPrints::Session::AUTOLOAD eq 'fulltext' and exists $$self{'last_abstract'}) { }
137 2 1 if ($$self{'last_abstract'}->identifier eq $hit->identifier) { }
149 24 0 if ($Logfile::EPrints::Session::AUTOLOAD eq 'abstract' or $Logfile::EPrints::Session::AUTOLOAD eq 'fulltext')
167 0 11 if $Logfile::EPrints::Filter::MaxPerSession::AUTOLOAD =~ /[A-Z]$/
170 1 10 if (defined $$self{$Logfile::EPrints::Filter::MaxPerSession::AUTOLOAD} and $$hit{'session'}->total($Logfile::EPrints::Filter::MaxPerSession::AUTOLOAD) > $$self{$Logfile::EPrints::Filter::MaxPerSession::AUTOLOAD}) { }
173 0 1 if $$hit{'session'}{'Logfile::EPrints::Filter::MaxPerSession_removed'}