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(); }