sub setup {
   my $self = shift;
   $self->start_mode('home');
   $self->mode_param('rm'); 
   $self->my_authen_config;
}


# 2
sub my_authen_config {
   my $self = shift;


   $self->authen->config(
      DRIVER => [ 'Generic', sub { $self->my_verify_credentials(@_) }, ],
      LOGIN_SESSION_TIMEOUT => $LOGIN_SESSION_TIMEOUT, 
      CREDENTIALS => ['authen_username', 'authen_password' ],
      STORE => 'Session',
      LOGIN_RUNMODE => 'login',
   );     
   $self->authen->protected_runmodes(qr/^(?!_?log)/);

   $self->authen;
}

sub my_verify_credentials {
   my $self = shift;
   my ($username,$password)= @_;


   ($username and $password )
      or $self->feedback("Missing username or password.")
      and return;

   $self->my_method_for_password_test( $username, $password)
      or $self->feedback("Wrong username or password.")
      and return;


   return $username;

}