sub rm2_method {
  my $self = shift;
  my $username = $self->query->param('user');
  my $password = $self->query->param('pass');
  return $self->rm1_method() unless defined $username and defined $password;

  $self->authenticate() ? $self->rm4_method() : $self->rm3_method();
}

##</code><code>##

use CGI::Application::Plugin::Forward;
sub rm2_method {
  my $self = shift;
  my $username = $self->query->param('user');
  my $password = $self->query->param('pass');
  return $self->rm1_method() unless defined $username and defined $password;

  $self->authenticate() ? $self->forward(rm4') : $self->forward('rm3');
}