Added name entry

2015-02-25 01:47:12 +00:00 · 2015-02-25 01:47:12 +00:00 · 3dfce1e7f6
commit 3dfce1e7f6
parent 0580332d14
1 changed files with 7 additions and 0 deletions
--- 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
 {