From 3dfce1e7f6cc7523d11bc1d2cd7ea400ed505d14 Mon Sep 17 00:00:00 2001
From: Alex Kerr <kirbyman62@gmail.com>
Date: Wed, 25 Feb 2015 01:47:12 +0000
Subject: [PATCH] Added name entry

---
 lib/OSRIC/Character.pm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/lib/OSRIC/Character.pm b/lib/OSRIC/Character.pm
index ce756f6..f6e5367 100644
--- a/lib/OSRIC/Character.pm
+++ b/lib/OSRIC/Character.pm
@@ -276,6 +276,13 @@ sub set_alignment
 	$self->{personal}->{alignment} = shift;
 }
 
+# Sets the character's name to the passed string:
+sub set_name
+{
+	my $self = shift;
+	$self->{personal}->{name} = shift;
+}
+
 # Encodes the character to JSON:
 sub as_json
 {