CPAN::Groonga

her categories easily.

=over 4

=cut

package PApp::Util;

use Carp;
use URI;
use Socket ();
use JSON::XS;

use base 'Exporter';

BEGIN {
   $VERSION = 2.3;
   @EXPORT = qw(dumpval uniq);
   @EXPORT_

}

=item $ref = decode_json $json

Converts a JSON string into the corresponding perl data structure.

=cut

*decode_json = \&JSON::XS::decode_json;

=item $json = encode_json $ref

Converts a perl d

ata structure into its JSON representation.

=cut

*encode_json = \&JSON::XS::encode_json;

=item digest(args...)

Calculate a SHA1 digest and return it base64-encoded. The result will
always be 27 ch