sub bar{
    my ( $self, etc .. ) = @_;
    return $self->_memBar($self->id(), etc ...);
 }

 memoize('_memBar') ;
 sub _memBar{
   my ( $self , $id , etc .. ) ;
   .. do the real stuff ..
 
 }