Implement optimized hooks

Author: guillep

src/MethodProxiesExamples/MpCountingHandler.class.st

@@ -11,6 +11,12 @@ Class {
 	#package : 'MethodProxiesExamples'
 }
 
+{ #category : 'evaluating' }
+MpCountingHandler >> beforeExecutionWithReceiver: anObject [
+
+	self count: self count + 1
+]
+
 { #category : 'evaluating' }
 MpCountingHandler >> beforeExecutionWithReceiver: anObject arguments: anArrayOfObjects [
 

src/MethodProxiesExamples/MpEmptyHandlerAfter.class.st

@@ -16,3 +16,23 @@ MpEmptyHandlerAfter >> afterExecutionWithReceiver: anObject arguments: anArrayOf
 
 	^ retVal
 ]
+
+{ #category : 'evaluating' }
+MpEmptyHandlerAfter >> afterExecutionWithReceiver: anObject returnValue: retVal [
+
+	^ retVal
+]
+
+{ #category : 'evaluating' }
+MpEmptyHandlerAfter >> afterExecutionWithReceiver: anObject with: arg returnValue: retVal [
+
+	^ retVal
+]
+
+{ #category : 'evaluating' }
+MpEmptyHandlerAfter >> beforeExecutionWithReceiver: anObject [
+]
+
+{ #category : 'evaluating' }
+MpEmptyHandlerAfter >> beforeExecutionWithReceiver: anObject with: arg [
+]