From 62fa2ab8b9ee7cc8a3a1c17572d0b6b79ce16de5 Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Thu, 28 Apr 2022 11:56:54 -0500
Subject: [PATCH] Accessors and first utilities.

---
 Apps/Holonica/HlPerson.class.st | 78 +++++++++++++++++++++++++++++++++
 1 file changed, 78 insertions(+)
 create mode 100644 Apps/Holonica/HlPerson.class.st

diff --git a/Apps/Holonica/HlPerson.class.st b/Apps/Holonica/HlPerson.class.st
new file mode 100644
index 0000000..b4a8b85
--- /dev/null
+++ b/Apps/Holonica/HlPerson.class.st
@@ -0,0 +1,78 @@
+Class {
+	#name : #HlPerson,
+	#superclass : #Object,
+	#instVars : [
+		'givenName',
+		'familyName',
+		'metadata'
+	],
+	#category : #Holonica
+}
+
+{ #category : #accessing }
+HlPerson class >> fromListName [
+
+	
+]
+
+{ #category : #accessing }
+HlPerson class >> fromListName: aString [
+	| allNames |
+	allNames := aString substrings 
+		collect: [:each | each first asString, each allButFirst asLowercase ].
+	allNames size = 4 
+		ifTrue: [ 
+			^ self new 
+				givenName: allNames first, ' ', allNames second;
+				familyName: allNames third, ' ', allNames fourth
+		].
+	allNames size = 3
+		ifTrue: [ 
+			^ self new
+				givenName: allNames first, ' ', allNames second;
+				familyName: allNames third.
+		].
+	allNames size = 2	
+		ifTrue: [
+			^ self new
+				givenName: allNames first;
+				familyName: allNames second.
+		].
+ 
+]
+
+{ #category : #accessing }
+HlPerson >> familyName [
+
+	^ familyName
+]
+
+{ #category : #accessing }
+HlPerson >> familyName: anObject [
+
+	familyName := anObject
+]
+
+{ #category : #accessing }
+HlPerson >> givenName [
+
+	^ givenName
+]
+
+{ #category : #accessing }
+HlPerson >> givenName: anObject [
+
+	givenName := anObject
+]
+
+{ #category : #accessing }
+HlPerson >> metadata [
+
+	^ metadata
+]
+
+{ #category : #accessing }
+HlPerson >> metadata: anObject [
+
+	metadata := anObject
+]