Merge pull request #25 from shoshanatech/lenient-claims

noha · web-flow · commit 7f7c820902ca · 2025-03-28T13:31:22.000+01:00
Add an optional "lenient" access mode for claims (implements #24)
diff --git a/source/JSONWebToken-Core.package/JWTClaimsSet.class/instance/at..st b/source/JSONWebToken-Core.package/JWTClaimsSet.class/instance/at..st
@@ -1,3 +1,6 @@
 accessing - basic
-at: aString 
-	^ claims at: aString
+at: aString
+
+	^ strict
+		  ifTrue: [ claims at: aString ]
+		  ifFalse: [ claims at: aString ifAbsent: [  ] ]
diff --git a/source/JSONWebToken-Core.package/JWTClaimsSet.class/instance/beLenient.st b/source/JSONWebToken-Core.package/JWTClaimsSet.class/instance/beLenient.st
@@ -0,0 +1,4 @@
+public
+beLenient
+
+	strict := false
diff --git a/source/JSONWebToken-Core.package/JWTClaimsSet.class/instance/beStrict.st b/source/JSONWebToken-Core.package/JWTClaimsSet.class/instance/beStrict.st
@@ -0,0 +1,4 @@
+public
+beStrict
+
+	strict := true
diff --git a/source/JSONWebToken-Core.package/JWTClaimsSet.class/instance/initialize.st b/source/JSONWebToken-Core.package/JWTClaimsSet.class/instance/initialize.st
@@ -1,4 +1,5 @@
 initialize
 initialize
 	super initialize.
-	claims := Dictionary new.
+	claims := Dictionary new.
+	strict := true
diff --git a/source/JSONWebToken-Core.package/JWTClaimsSet.class/properties.json b/source/JSONWebToken-Core.package/JWTClaimsSet.class/properties.json
@@ -6,7 +6,8 @@
 	"pools" : [ ],
 	"classvars" : [ ],
 	"instvars" : [
-		"claims"
+		"claims",
+		"strict"
 	],
 	"name" : "JWTClaimsSet",
 	"type" : "normal"

-Original file line number
+Diff line change
@@ @@ -0,0 +1,4 @@ @@
 +public
 +beLenient
++
 +	strict := false