CPAN::Groonga

zer/JSON.pm
# ----------------------------------------------------------------------------------------------------------------------

package GX::Serializer::JSON;

use GX::Exception ();

use JSON ();

----

sub serialize {

    my $self = shift;
    my $data = shift;

    my $string = eval { JSON::encode_json( $data ) };

    if ( $@ ) {
        GX::Exception->complain(
            message      => 

sub unserialize {

    my $self   = shift;
    my $string = shift;

    my $data = eval { JSON::decode_json( $string ) };

    if ( $@ ) {
        GX::Exception->complain(
            message      =

      # RFC 2045, RFC 2046
    'js'    => 'text/javascript',           # RFC 4329
    'json'  => 'application/json',          # RFC 4627
    'pdf'   => 'application/pdf',           # RFC 3778
    'png

he following classes inherit directly from L<GX::Serializer>:

=over 4

=item * L<GX::Serializer::JSON>

=item * L<GX::Serializer::Storable>

=back

=head1 AUTHOR

JE<ouml>rg A. Uzarek E<lt>uzarek@run