sub myRunmodeA
{
my $self = shift;
if( blah (foo, bar) )
    {
    #usual code
    }
else
    { return $self->myRunmodeB; }
}