use strict; use warnings;
package JSYNC;
our $VERSION = '0.25';
use JSON;
{
package JSYNC;
sub dump {
my ($object, $config) = @_;
$config ||= {};
return JSYNC::Dumpe
my $graph = $self->represent($object);
my $json = 'JSON'->new()->canonical();
$json->pretty() if $self->{pretty};
return $json->encode($graph);
}
sub represent {
sub load {
my ($self, $jsync) = @_;
$self->{seen} = {};
my $graph = 'JSON'->new()->decode($jsync);
return $self->construct($graph);
}
sub construct {
im v0.1.38.
See http://github.com/ingydotnet/swim-pm#readme
=encoding utf8
=head1 NAME
JSYNC - JSon Yaml eNCoding
=head1 VERSION
This document describes L<JSYNC> version B<0.25>.
";
=head1 SYNOP
{pretty => 1});
$object = JSYNC::load($jsync);
=head1 DESCRIPTION
JSYNC is an extension of JSON that can serialize any data objects.
See: L<http://jsync.org>
=head1 AUTHOR
Ingy döt Net <ing