CPAN::Groonga

package Search::OpenSearch::Result;
use Moose;
use JSON;
use overload
    '""'     => sub { $_[0]->stringify; },
    'bool'   => sub {1},
    fallback => 1;

use namespace::autoclean;

our $VERSION = 

 {
    my $self = shift;

    #Data::Dump::dump($self);
    my $json = encode_json( {%$self} );

    #warn "json=$json";
    return $json;
}

1;

__END__

=head1 NAME

Search::OpenSearch::Result - RES

item doc

=item success

=item msg

=item total

=back

=head2 stringify

Returns the object as a JSON-encoded string.

=head1 AUTHOR

Peter Karman, C<< <karman at cpan.org> >>

=head1 BUGS

Please re

h::OpenSearch;
use Search::OpenSearch::Result;
use Plack::Request;
use Data::Dump qw( dump );
use JSON;
use Scalar::Util qw( weaken );
use Time::HiRes qw( time );

our $VERSION = '0.301';

sub log {
 

use Carp;
use Search::OpenSearch;
use Search::OpenSearch::Result;
use Data::Dump qw( dump );
use JSON;
use Time::HiRes qw( time );
use Scalar::Util qw( blessed );
use Try::Tiny;

our $VERSION = '0.30

},
    );
}

# no-op for back-compat
sub setup_engine { }

my %formats = (
    'XML'   => 1,
    'JSON'  => 1,
    'ExtJS' => 1,
    'Tiny'  => 1,
);

sub log {
    my $self = shift;
    warn(@_);
}

 ||= $params->{format} || 'JSON';
        if ( !exists $formats{ $args{t} } ) {
            $self->log("bad format $args{t} -- using JSON");
            $args{format} = 'JSON';
        }

        if (