CPAN::Groonga

###############
## $Id: Json.pm 6000 2006-05-02 13:43:59Z spadkins $
#############################################################################

package App::Serializer::Json;
$VERSION = (q$Revisio

p;
use App::Serializer;
@ISA = ( "App::Serializer" );

use strict;

=head1 NAME

App::Serializer::Json - Interface for serialization and deserialization

=head1 SYNOPSIS

    use App;

    $context = 

 {
            arbitrary => 'depth',
        },
    };
    $json = $serializer->serialize($data);
    $data = $serializer->deserialize($json);
    print $serializer->dump($data), "\n";

=head1 DESCRIP

]+$!!;  # delete trailing :<returntype>
            $path_info =~ s!\.(html|xml|yaml|csv|pdf|perl|json)$!!;  # delete trailing .<returntype>

            if ($path_info =~ s!^/([A-Z][A-Za-z0-9]*)/!/!)

         $returntype = $1;
        }
        elsif ($path_info =~ m!\.(html|xml|yaml|csv|pdf|perl|json)$!) {
            $returntype = $1;
        }
        $self->{returntype} = $returntype;
    }