sub require_auth { 1 } sub get_pass_by_user { my $self = shift; my $user = shift; my $pass = $self->lookup_and_cache_the_pass($user); return $pass; }