Help for this page
if (!authenticate($session)) { ...
sub authenticate { my ($self, $session) = @_; ...
if (! $self->authenticate($session)) { ...