diff --git a/src/Gt4PharoLink/GtProxyAbstractCacheStrategy.class.st b/src/Gt4PharoLink/GtProxyAbstractCacheStrategy.class.st
new file mode 100644
index 00000000..f6e79a6d
--- /dev/null
+++ b/src/Gt4PharoLink/GtProxyAbstractCacheStrategy.class.st
@@ -0,0 +1,10 @@
+Class {
+	#name : #GtProxyAbstractCacheStrategy,
+	#superclass : #Object,
+	#category : #'Gt4PharoLink-Cache'
+}
+
+{ #category : #'as yet unclassified' }
+GtProxyAbstractCacheStrategy >> send: aMessage withComputation: aBlockClosure [
+	^ self subclassResponsibility
+]
diff --git a/src/Gt4PharoLink/GtProxyCacheMatchingCondition.class.st b/src/Gt4PharoLink/GtProxyCacheMatchingCondition.class.st
new file mode 100644
index 00000000..6793acfd
--- /dev/null
+++ b/src/Gt4PharoLink/GtProxyCacheMatchingCondition.class.st
@@ -0,0 +1,10 @@
+Class {
+	#name : #GtProxyCacheMatchingCondition,
+	#superclass : #Object,
+	#category : #'Gt4PharoLink-Cache'
+}
+
+{ #category : #'as yet unclassified' }
+GtProxyCacheMatchingCondition >> appliesToMessage: aMessage [
+	^ self subclassResponsibility
+]
diff --git a/src/Gt4PharoLink/GtProxyCacheMatchingConditionExamples.class.st b/src/Gt4PharoLink/GtProxyCacheMatchingConditionExamples.class.st
new file mode 100644
index 00000000..4e08f13a
--- /dev/null
+++ b/src/Gt4PharoLink/GtProxyCacheMatchingConditionExamples.class.st
@@ -0,0 +1,115 @@
+Class {
+	#name : #GtProxyCacheMatchingConditionExamples,
+	#superclass : #Object,
+	#traits : 'TAssertable',
+	#classTraits : 'TAssertable classTrait',
+	#category : #'Gt4PharoLink-Examples'
+}
+
+{ #category : #examples }
+GtProxyCacheMatchingConditionExamples >> noMatchingCondition [
+	<gtExample>
+
+	self deny: (GtProxyCacheNoMatchingCondition new appliesToMessage: #anything)
+]
+
+{ #category : #examples }
+GtProxyCacheMatchingConditionExamples >> specificSelectorsMatchingConditionCachesFoo [
+	<gtExample>
+	| matchingCondition |
+
+	matchingCondition := GtProxyCacheSpecifiedSelectorsMatchingCondition new.
+	matchingCondition includeSelector: #foo.
+	self assert: (matchingCondition appliesToMessage: (Message
+			selector: #foo)).
+	self deny: (matchingCondition appliesToMessage: (Message
+			selector: #bar)).
+	^ matchingCondition
+]
+
+{ #category : #examples }
+GtProxyCacheMatchingConditionExamples >> specificSelectorsMatchingConditionCachesFooPattern [
+	<gtExample>
+	| matchingCondition |
+
+	matchingCondition := GtProxyCacheSpecifiedSelectorsMatchingCondition new.
+	matchingCondition includePattern: 'foo.*'.
+	self assert: (matchingCondition appliesToMessage: (Message
+			selector: #foo)).
+	self assert: (matchingCondition appliesToMessage: (Message
+			selector: #foobar)).
+	self deny: (matchingCondition appliesToMessage: (Message
+			selector: #barfoo)).
+	^ matchingCondition
+]
+
+{ #category : #examples }
+GtProxyCacheMatchingConditionExamples >> specificSelectorsMatchingConditionCachesFooPatternNotFoobPattern [
+	<gtExample>
+	| matchingCondition |
+
+	matchingCondition := GtProxyCacheSpecifiedSelectorsMatchingCondition new.
+	matchingCondition 
+		includePattern: 'foo.*';
+		excludePattern: 'foob.*'.
+	self assert: (matchingCondition appliesToMessage: (Message
+			selector: #foo)).
+	self assert: (matchingCondition appliesToMessage: (Message
+			selector: #fooey)).
+	self deny: (matchingCondition appliesToMessage: (Message
+			selector: #foobar)).
+	^ matchingCondition
+]
+
+{ #category : #examples }
+GtProxyCacheMatchingConditionExamples >> specificSelectorsMatchingConditionCachesFooPatternNotFoobar [
+	<gtExample>
+	| matchingCondition |
+
+	matchingCondition := GtProxyCacheSpecifiedSelectorsMatchingCondition new.
+	matchingCondition 
+		includePattern: 'foo.*';
+		excludeSelector: #foobar.
+	self assert: (matchingCondition appliesToMessage: (Message
+			selector: #foo)).
+	self deny: (matchingCondition appliesToMessage: (Message
+			selector: #foobar)).
+	^ matchingCondition
+]
+
+{ #category : #examples }
+GtProxyCacheMatchingConditionExamples >> specificSelectorsMatchingConditionNoneIncluded [
+	<gtExample>
+
+	self deny: (GtProxyCacheSpecifiedSelectorsMatchingCondition new appliesToMessage: (Message
+			selector: #foo))
+]
+
+{ #category : #examples }
+GtProxyCacheMatchingConditionExamples >> unaryMatchingConditionBinarySelector [
+	<gtExample>
+
+	self deny: (GtProxyCacheUnarySelectorsMatchingCondition new 
+		appliesToMessage: (Message
+			selector: #+
+			argument: nil))
+]
+
+{ #category : #examples }
+GtProxyCacheMatchingConditionExamples >> unaryMatchingConditionKeywordSelector [
+	<gtExample>
+
+	self deny: (GtProxyCacheUnarySelectorsMatchingCondition new 
+		appliesToMessage: (Message
+			selector: #foo:
+			argument: nil))
+]
+
+{ #category : #examples }
+GtProxyCacheMatchingConditionExamples >> unaryMatchingConditionUnarySelector [
+	<gtExample>
+
+	self assert: (GtProxyCacheUnarySelectorsMatchingCondition new 
+		appliesToMessage: (Message
+			selector: #foo))
+]
diff --git a/src/Gt4PharoLink/GtProxyCacheNoMatchingCondition.class.st b/src/Gt4PharoLink/GtProxyCacheNoMatchingCondition.class.st
new file mode 100644
index 00000000..a1246a4c
--- /dev/null
+++ b/src/Gt4PharoLink/GtProxyCacheNoMatchingCondition.class.st
@@ -0,0 +1,10 @@
+Class {
+	#name : #GtProxyCacheNoMatchingCondition,
+	#superclass : #GtProxyCacheMatchingCondition,
+	#category : #'Gt4PharoLink-Cache'
+}
+
+{ #category : #'as yet unclassified' }
+GtProxyCacheNoMatchingCondition >> appliesToMessage: aMessage [
+	^ false
+]
diff --git a/src/Gt4PharoLink/GtProxyCacheSpecifiedSelectorsMatchingCondition.class.st b/src/Gt4PharoLink/GtProxyCacheSpecifiedSelectorsMatchingCondition.class.st
new file mode 100644
index 00000000..6f9d20a9
--- /dev/null
+++ b/src/Gt4PharoLink/GtProxyCacheSpecifiedSelectorsMatchingCondition.class.st
@@ -0,0 +1,78 @@
+Class {
+	#name : #GtProxyCacheSpecifiedSelectorsMatchingCondition,
+	#superclass : #GtProxyCacheMatchingCondition,
+	#instVars : [
+		'includedSelectors',
+		'excludedSelectors',
+		'excludedPatterns',
+		'includedPatterns'
+	],
+	#category : #'Gt4PharoLink-Cache'
+}
+
+{ #category : #'as yet unclassified' }
+GtProxyCacheSpecifiedSelectorsMatchingCondition >> appliesToMessage: aMessage [
+	"Answer a boolean indicating whether the specified message should have its result cached.
+	Only included selectors are cached.
+	Included regex patterns may be overridden with excluded selectors or patterns."
+	| selector |
+
+	selector := aMessage selector.
+	((excludedSelectors isNotNil and: [ excludedSelectors includes: selector ]) or:
+		[ excludedPatterns isNotNil and: [ excludedPatterns anySatisfy: [ :pattern | selector matchesRegex: pattern ] ] ]) ifTrue:
+			[ ^ false ].
+	^ (includedSelectors isNotNil and: [ includedSelectors includes: selector ]) or:
+		[ includedPatterns isNotNil and: [ includedPatterns anySatisfy: [ :pattern | selector matchesRegex: pattern ] ] ]
+]
+
+{ #category : #'as yet unclassified' }
+GtProxyCacheSpecifiedSelectorsMatchingCondition >> excludePattern: aRegexString [
+
+	excludedPatterns ifNil: [ excludedPatterns := Set new ].
+	excludedPatterns add: aRegexString
+]
+
+{ #category : #'as yet unclassified' }
+GtProxyCacheSpecifiedSelectorsMatchingCondition >> excludeSelector: aSymbol [
+
+	excludedSelectors ifNil: [ excludedSelectors := Set new ].
+	excludedSelectors add: aSymbol
+]
+
+{ #category : #'as yet unclassified' }
+GtProxyCacheSpecifiedSelectorsMatchingCondition >> excludeSelectors: aCollectionOfSymbols [
+
+	excludedSelectors ifNil: [ excludedSelectors := Set new ].
+	excludedSelectors addAll: aCollectionOfSymbols
+]
+
+{ #category : #'as yet unclassified' }
+GtProxyCacheSpecifiedSelectorsMatchingCondition >> includePattern: aRegexString [
+
+	includedPatterns ifNil: [ includedPatterns := Set new ].
+	includedPatterns add: aRegexString
+]
+
+{ #category : #'as yet unclassified' }
+GtProxyCacheSpecifiedSelectorsMatchingCondition >> includeSelector: aSymbol [
+
+	includedSelectors ifNil: [ includedSelectors := Set new ].
+	includedSelectors add: aSymbol
+]
+
+{ #category : #'as yet unclassified' }
+GtProxyCacheSpecifiedSelectorsMatchingCondition >> includeSelectors: aCollectionOfSymbols [
+
+	includedSelectors ifNil: [ includedSelectors := Set new ].
+	includedSelectors addAll: aCollectionOfSymbols
+]
+
+{ #category : #initialization }
+GtProxyCacheSpecifiedSelectorsMatchingCondition >> initialize [
+
+	super initialize.
+	includedSelectors := Set new.
+	excludedSelectors := Set new.
+	includedPatterns := Set new.
+	excludedPatterns := Set new.
+]
diff --git a/src/Gt4PharoLink/GtProxyCacheStaticStorage.class.st b/src/Gt4PharoLink/GtProxyCacheStaticStorage.class.st
new file mode 100644
index 00000000..267482fd
--- /dev/null
+++ b/src/Gt4PharoLink/GtProxyCacheStaticStorage.class.st
@@ -0,0 +1,20 @@
+Class {
+	#name : #GtProxyCacheStaticStorage,
+	#superclass : #GtProxyCacheStorage,
+	#instVars : [
+		'cachedResults'
+	],
+	#category : #'Gt4PharoLink-Cache'
+}
+
+{ #category : #'as yet unclassified' }
+GtProxyCacheStaticStorage >> at: aKey ifAbsentPut: aBlockClosure [
+	^ cachedResults at: aKey ifAbsentPut: aBlockClosure
+]
+
+{ #category : #'as yet unclassified' }
+GtProxyCacheStaticStorage >> initialize [
+
+	super initialize.
+	cachedResults := Dictionary new.
+]
diff --git a/src/Gt4PharoLink/GtProxyCacheStorage.class.st b/src/Gt4PharoLink/GtProxyCacheStorage.class.st
new file mode 100644
index 00000000..ac3544de
--- /dev/null
+++ b/src/Gt4PharoLink/GtProxyCacheStorage.class.st
@@ -0,0 +1,10 @@
+Class {
+	#name : #GtProxyCacheStorage,
+	#superclass : #Object,
+	#category : #'Gt4PharoLink-Cache'
+}
+
+{ #category : #'as yet unclassified' }
+GtProxyCacheStorage >> at: aKey ifAbsentPut: aBlockClosure [
+	self subclassResponsibility
+]
diff --git a/src/Gt4PharoLink/GtProxyCacheStrategy.class.st b/src/Gt4PharoLink/GtProxyCacheStrategy.class.st
new file mode 100644
index 00000000..3a81b9df
--- /dev/null
+++ b/src/Gt4PharoLink/GtProxyCacheStrategy.class.st
@@ -0,0 +1,62 @@
+Class {
+	#name : #GtProxyCacheStrategy,
+	#superclass : #GtProxyAbstractCacheStrategy,
+	#instVars : [
+		'storage',
+		'matchingCondition'
+	],
+	#category : #'Gt4PharoLink-Cache'
+}
+
+{ #category : #testing }
+GtProxyCacheStrategy >> appliesToMessage: aMessage [
+	^ matchingCondition appliesToMessage: aMessage
+]
+
+{ #category : #private }
+GtProxyCacheStrategy >> cachedValueFor: aMessage ifAbsentPut: aBlockClosure [ 
+	^ storage 
+		at: (self storageKeyFor: aMessage)
+		ifAbsentPut: aBlockClosure
+]
+
+{ #category : #initialization }
+GtProxyCacheStrategy >> initialize [ 
+	super initialize.
+	
+	storage := GtProxyCacheStaticStorage new.
+	matchingCondition := GtProxyCacheNoMatchingCondition new.
+]
+
+{ #category : #initialization }
+GtProxyCacheStrategy >> matchAllUnarySelectors [
+	matchingCondition := GtProxyCacheUnarySelectorsMatchingCondition new
+]
+
+{ #category : #initialization }
+GtProxyCacheStrategy >> matchUnarySelectors: aListOfSelectors [
+	matchingCondition := GtProxyCacheUnarySelectorsMatchingCondition new
+]
+
+{ #category : #accessing }
+GtProxyCacheStrategy >> matchingCondition [
+	^ matchingCondition
+]
+
+{ #category : #accessing }
+GtProxyCacheStrategy >> matchingCondition: anObject [
+	matchingCondition := anObject
+]
+
+{ #category : #'as yet unclassified' }
+GtProxyCacheStrategy >> send: aMessage withComputation: aBlockClosure [
+	(self appliesToMessage: aMessage)
+		ifFalse: [ ^ aBlockClosure value ].
+		
+	^ self cachedValueFor: aMessage ifAbsentPut: aBlockClosure
+]
+
+{ #category : #private }
+GtProxyCacheStrategy >> storageKeyFor: aMessage [
+	^ aMessage selector
+]
diff --git a/src/Gt4PharoLink/GtProxyCacheStrategyExamples.class.st b/src/Gt4PharoLink/GtProxyCacheStrategyExamples.class.st
new file mode 100644
index 00000000..61169e06
--- /dev/null
+++ b/src/Gt4PharoLink/GtProxyCacheStrategyExamples.class.st
@@ -0,0 +1,65 @@
+Class {
+	#name : #GtProxyCacheStrategyExamples,
+	#superclass : #Object,
+	#traits : 'TAssertable',
+	#classTraits : 'TAssertable classTrait',
+	#category : #'Gt4PharoLink-Examples'
+}
+
+{ #category : #examples }
+GtProxyCacheStrategyExamples >> cacheForMatchingSelectors [
+	<gtExample>
+	| matchingCondition cache computation result1 result2 message |
+	
+	matchingCondition := GtProxyCacheSpecifiedSelectorsMatchingCondition new
+		includeSelectors: #(#foo1 #foo2).
+	cache := GtProxyCacheStrategy new
+		matchingCondition: matchingCondition.
+	computation := [ :x | x + 1 ].
+	message := Message selector: #foo1.
+
+	"First call should compute"
+	result1 := cache send: message withComputation: [ computation value: 41 ].
+	"Second call with same selector should get cached value, computation block is not evaluated"
+	result2 := cache send: message withComputation: [ self error: 'Should not be called' ].
+	self assert: result1 equals: 42.
+	self assert: result2 equals: 42.
+	^ cache
+]
+
+{ #category : #examples }
+GtProxyCacheStrategyExamples >> cacheSpecifiedSelector [
+	"Create and test caching behavior with assertions"
+	<gtExample>
+	| cache message result1 result2 |
+	
+	cache := GtProxyCacheStrategy new.
+	cache matchingCondition: (GtProxyCacheSpecifiedSelectorsMatchingCondition new includeSelectors: #(#foo1 #foo2)).
+	
+	message := Message selector: #foo1.
+	result1 := cache send: message withComputation: [ 'computed value!' ].
+	result2 := cache send: message withComputation: [ 'should not be used' ].
+	
+	self assert: result1 equals: 'computed value!'.
+	self assert: result2 equals: 'computed value!'.
+]
+
+{ #category : #examples }
+GtProxyCacheStrategyExamples >> noCacheForNonMatchingSelectors [
+	<gtExample>
+	| matchingCondition cache callCount result1 result2 message |
+	
+	matchingCondition := GtProxyCacheSpecifiedSelectorsMatchingCondition new
+		includeSelectors: #(#foo1 #foo2).
+	cache := GtProxyCacheStrategy new
+		matchingCondition: matchingCondition.
+	callCount := 0.
+	message := Message selector: #bar.
+	
+	result1 := cache send: message withComputation: [ callCount := callCount + 1. 40 ].
+	result2 := cache send: message withComputation: [ callCount := callCount + 1. 40 ].
+	self assert: callCount equals: 2.
+	self assert: result1 equals: 40.
+	self assert: result2 equals: 40.
+	^ cache
+]
diff --git a/src/Gt4PharoLink/GtProxyCacheUnarySelectorsMatchingCondition.class.st b/src/Gt4PharoLink/GtProxyCacheUnarySelectorsMatchingCondition.class.st
new file mode 100644
index 00000000..4f295ce1
--- /dev/null
+++ b/src/Gt4PharoLink/GtProxyCacheUnarySelectorsMatchingCondition.class.st
@@ -0,0 +1,10 @@
+Class {
+	#name : #GtProxyCacheUnarySelectorsMatchingCondition,
+	#superclass : #GtProxyCacheMatchingCondition,
+	#category : #'Gt4PharoLink-Cache'
+}
+
+{ #category : #'as yet unclassified' }
+GtProxyCacheUnarySelectorsMatchingCondition >> appliesToMessage: aMessage [
+	^ aMessage selector isUnary
+]
diff --git a/src/Gt4PharoLink/GtProxyNoCacheStrategy.class.st b/src/Gt4PharoLink/GtProxyNoCacheStrategy.class.st
new file mode 100644
index 00000000..daf835a9
--- /dev/null
+++ b/src/Gt4PharoLink/GtProxyNoCacheStrategy.class.st
@@ -0,0 +1,15 @@
+Class {
+	#name : #GtProxyNoCacheStrategy,
+	#superclass : #GtProxyAbstractCacheStrategy,
+	#category : #'Gt4PharoLink-Cache'
+}
+
+{ #category : #'as yet unclassified' }
+GtProxyNoCacheStrategy >> appliesToMessage: aMessage [
+	^ false
+]
+
+{ #category : #accessing }
+GtProxyNoCacheStrategy >> send: aMessage withComputation: aBlockClosure [
+	^ aBlockClosure value
+]
diff --git a/src/Gt4PharoLink/GtProxyNoCacheStrategyExamples.class.st b/src/Gt4PharoLink/GtProxyNoCacheStrategyExamples.class.st
new file mode 100644
index 00000000..f7349929
--- /dev/null
+++ b/src/Gt4PharoLink/GtProxyNoCacheStrategyExamples.class.st
@@ -0,0 +1,18 @@
+Class {
+	#name : #GtProxyNoCacheStrategyExamples,
+	#superclass : #Object,
+	#category : #'Gt4PharoLink-Examples'
+}
+
+{ #category : #examples }
+GtProxyNoCacheStrategyExamples >> sendWithComputation [
+	<gtExample>
+	| strategy firstResult secondResult |
+
+	strategy := GtProxyNoCacheStrategy new.
+	firstResult := strategy send: #foo withComputation: [ 42 ].
+	secondResult := strategy send: #foo withComputation: [ 4 + 3 ].
+	self assert: firstResult equals: 42.
+	self assert: secondResult equals: 7.
+	^ strategy
+]