srp/osric-cgi
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed JSON function

Browse Source
This commit is contained in:
Alex Kerr 2015-02-10 00:24:18 +00:00
parent 01ae6231a6
commit 591c8e5dae
1 changed files with 16 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lib/OSRIC/Character.pm
View File

@ -21,7 +21,7 @@ use OSRIC::Class::Ranger;
use OSRIC::Class::Thief;
use OSRIC::Util qw/d/;
use JSON qw/encode_json/;
use JSON qw/to_json/;
# These functions are ordered in this file in the order they are to be
# called in:
@ -198,10 +198,23 @@ sub generate_gold
}
# Encodes the character to JSON:
sub to_json
sub as_json
{
my $self = shift;
my $json = encode_json $self;
my $json = to_json($self, {
pretty => 1,
convert_blessed => 1,
allow_blessed => 1
});
return $json;
}
# Required by the JSON module, as specified in the docs:
sub TO_JSON
{
my $self = shift;
my %hash = %$self;
return \%hash;
}
1;