if (!authenticate($session)) { ...

##</code><code>##

sub authenticate {
    my ($self, $session) = @_;
    ...

##</code><code>##

if (! $self->authenticate($session)) { ...