Yet Another CPAN Grep

Web-Dash ( T/TO/TOSHIOITO/Web-Dash-0.041.tar.gz, TOSHIOITO, 2014; MetaCPAN )

Web-Dash/lib/Web/Dash.pm ( view source; MetaCPAN )

Web::Dash::Lens;
use Encode;
use Future::Q 0.012;
use AnyEvent::DBus 0.31;
use AnyEvent;
use JSON qw(to_json);
use Try::Tiny;
use Carp;

my $index_page_template = <<'EOD';
<!DOCTYPE html>
<html>
  <he

ng) {
        return $.ajax({
            url: "search.json",
            data: { lens: lens_name, q: query_string },
            dataType: "json",
            type: 'GET',
        }).then(null, funct

in'],
                [Encode::encode('utf8', $error)]
            ]);
        });
    };
}

sub _json_response {
    my ($response_object, $code) = @_;
    if(!defined($code)) {
        $code = $resp

Web-Dash ( T/TO/TOSHIOITO/Web-Dash-0.041.tar.gz, TOSHIOITO, 2014; MetaCPAN )

Web-Dash/lib/Web/Dash/WebAPI.pod ( view source; MetaCPAN )

N

This document describes Web API provided by L<Web::Dash>.

=head1 ENDPOINT

=head2 GET /search.json

Makes a search with a Lens and returns the search results.

B<Query Parameters>

=over

=item C<

onse is a JSON object.
The C<error> attribute of the object is C<null>,
and the C<results> attribute of the object is an array of search results.

Each entry in the C<results> array is a JSON object r

response is a JSON object.
The C<error> attribute of the object describes the cause of the error.

B<Example>

Request to L<Wikipedia|http://en.wikipedia.org/> Lens.

    GET /search.json?lens=net.lau