@_;
# JSON doesn't know how to serialize anything but hashrefs
# FIXME: Technically we should allow array-ref, as JSON standard allows it
if ( $module eq 'Data::Serializer::JSON' ) {
}
return $obj;
}
# Unwrap JSON previously wrapped with _wrap_invalid()
sub _unwrap_invalid {
my ($module, $obj) = @_;
if ( $module eq 'Data::Serializer::JSON' ) {
if ( ref($obj) e
;
my $obj = MyClass->new( serializer_module => 'JSON' );
my $json = $obj->serialize( "Foo" );
...
my $str = $obj->deserialize( $json );
=head1 DESCRIPTION
A Moose-based role that ena