sub calcInterest {
    my $self = shift;
    return unless $self->inCredit();
    ...
}