Iliad.Session subclass: MySession [
    | username |
    username [^username]
    username: aString [username := aString]

    initialize [
	super initialize.
	username := 'Nicolas Petton'
    ]
]

Iliad.Application subclass: MyApplication [
    
    MyApplication class >> path [^'session_test']

    index [
	<category: 'views'>
	^[:e |
	    e h1: 'The user is: ', self session username
	]
    ]
]