sub runmodeA
{
    my $self = shift;

    # Do stuff here

    return $self->runmodeB();
}