How to convert Perl objects into JSON and vice versa

Question

I have defined a Point object in a file Point.pm as following:

package Point;
sub new {
    my ($class) = @_;
    my $self = {
        _x =>          


        

Answer 1

You need JSYNC.

use JSYNC;
use Point;
my $p = Point->new;
$p->X(20);
$p->Y(30);

my $jsync = JSYNC::dump($p, {pretty => 1});

---

{
   "!" : "!perl/hash:Point",
   "_x" : "20",
   "_y" : "30"
}