CPAN::Groonga

ode($s);
    print($s);
  }
}

sub json_encode($) {
  if ( use_try 'JSON::XS' ) { return \( JSON::XS->new->encode(@_) ) }
  if ( use_try('JSON') )    { return \( JSON->new->encode(@_) ); }
  {
    loc

;
        if ( $param->{'json'} and psmisc::use_try 'JSON' ) {
          $config{'view'} = 'json';
          my $j = {};
          eval { $j = JSON->new->decode( $param->{'json'} ) || {} };    #allow_

r\n>" ); }
        exit;
      };
      $config{'out'}{'json'}{'http-header'} = "Content-type: application/json\n\n";
      $config{'out'}{'json'}{'footer'} ||= sub {
        my ( $param, ) = @_;
    

 $param->{'callback'} . '(':'') ,${ psmisc::json_encode($param->{__result} || {}) }, ($param->{'callback'} ? ');' : '');
      };
      $config{'out'}{'json'}{'result_string'} ||= sub {
        my ( $