added lenient way of access to headers as well

Author: noha

source/JSONWebToken-Core/JOSEHeader.class.st

@@ -5,7 +5,8 @@ Class {
 	#name : 'JOSEHeader',
 	#superclass : 'Object',
 	#instVars : [
-		'properties'
+		'properties',
+		'strict'
 	],
 	#category : 'JSONWebToken-Core-Headers',
 	#package : 'JSONWebToken-Core',
@@ -27,15 +28,30 @@ JOSEHeader >> = aHeader [
 ]
 
 { #category : 'accessing' }
-JOSEHeader >> at: aKey [
-	^ properties at: aKey
+JOSEHeader >> at: aString [
+
+	^ strict
+		  ifTrue: [ properties at: aString ]
+		  ifFalse: [ properties at: aString ifAbsent: nil ]
 ]
 
 { #category : 'accessing' }
 JOSEHeader >> at: aKey put: aValue [
 	properties at: aKey put: aValue
 ]
 
+{ #category : 'initialization' }
+JOSEHeader >> beLenient [
+
+	strict := false
+]
+
+{ #category : 'initialization' }
+JOSEHeader >> beStrict [
+
+	strict := true
+]
+
 { #category : 'testing' }
 JOSEHeader >> hasSameElements: aDictionary [
 	^ (properties difference: aDictionary) isEmpty
@@ -46,6 +62,12 @@ JOSEHeader >> hash [
 	^ properties hash
 ]
 
+{ #category : 'initialization' }
+JOSEHeader >> initialize [ 
+	super initialize.
+	strict := true
+]
+
 { #category : 'accessing' }
 JOSEHeader >> kid [
 "Public Key ID"

source/JSONWebToken-Core/JWTClaimsSet.class.st

@@ -32,7 +32,7 @@ JWTClaimsSet >> at: aString [
 
 	^ strict
 		  ifTrue: [ claims at: aString ]
-		  ifFalse: [ claims at: aString ifAbsent: [  ] ]
+		  ifFalse: [ claims at: aString ifAbsent: nil ]
 ]
 
 { #category : 'accessing - basic' }