foreach ([method1 method2 method3]){ $ = $self->$_; }