CPAN::Groonga

strict;
use version; our $VERSION = qv('0.1.6');

use Carp;
use English qw( -no_match_vars );
use JSON;
use Encode ();
use MIME::Base64 qw< decode_base64 >;

use Exporter;
our @ISA = qw( Exporter );
o

gs  = ref($_[0]) ? %{$_[0]} : @_;
   my $self  = bless {}, $class;

   if ($args{json}) {
      $self->parse($args{json});
   }
   else {
      $self->expiration($args{expiration}) if defined $args{ex

ax];
}

sub json {
   my ($self, $args) = @_;
   my %params = %$self;
   delete $params{expiration} unless defined $params{expiration};
   return to_json(\%params, $args);
} ## end sub json

sub base6