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::Class::Thief;
use OSRIC::Util qw/d/; 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 # These functions are ordered in this file in the order they are to be
# called in: # called in:
@ -198,10 +198,23 @@ sub generate_gold
} }
# Encodes the character to JSON: # Encodes the character to JSON:
sub to_json sub as_json
{ {
my $self = shift; 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; 1;