monken

{
                size: 100,
                query: {
                    custom_score: {
                        query: {
                            bool: {
                                should: p
                            }

                        },

monken

Improving the CPAN experience (a GSoC summer tale)

What will MetaCPAN offer that other services don't?

• Instant availability (new uploads are indexed within a minute)
• Personalisation - "follow your favourites"
• Searchable metadata
• Mashup of other CPAN related services
• Unified (REST) API
• Back-end for Android/iPhone apps, command line tools etc.

monken

A/AN/ANDYA/Test-Harness-3.23.tar.gz
B/BI/BINGOS/Archive-Extract-0.48.tar.gz
S/SM/SMUELLER/Attribute-Handlers-0.88.tar.gz
C/CH/CHOCOLATE/autobox-2.73.tar.gz
P/PJ/PJF/autodie-2.10.tar.gz
S/SM/SMUELLER/AutoLoader-5.71.tar.gz
R/RU/RURBAN/B-Debug-1.16.tar.gz
F/FL/FLORA/bignum-0.25.tar.gz
D/DA/DAGOLDEN/Capture-Tiny-0.10.tar.gz
B/BO/BOBTFISH/Catalyst-Runtime-5.80032.tar.gz

monken

curl -XDELETE localhost:9200/blogs/

curl -XPUT localhost:9200/blogs/

curl -XPUT   localhost:9200/blogs/blog/_mapping -d '
{
        "blog": {
                "properties": { "title": { "type": "string", "store": "yes" } }
            
        }

monken

Test::More 0.0615953313785287
perl 0.050638200270444
Carp 0.0131659837905898
Scalar::Util 0.0121786013948685
File::Spec 0.00932744271345425
Moose 0.00729852348878266
Pod::Usage 0.00553216357100628
File::Temp 0.00453008092934884
LWP::UserAgent 0.0045197089618378
DBI 0.00407953651247175

monken

$ perl test.pl
Starting test server installed in /Users/mo/Downloads/elasticsearch-0.15.2
56574 STARTING SERVERS
56574: Starting test node 1
IN 56574
56574: Starting test node 2
IN 56574
56574 Waiting for servers to warm up
Node running on 127.0.0.1:9200
Node running on 127.0.0.1:9201

monken

$ perl -Ilib t/00-request.t

1..266
ok 1 - use ElasticSearch;
ok 2 - use ElasticSearch::TestServer;
# 
# Testing ElasticSearch 0.31, Perl 5.012003, perl
# Transport: http (Set ES_TRANSPORT=http|httplite|thrift)
# 
Starting test server installed in /Users/mo/Downloads/elasticsearch-0.15.2

monken

$ prove -lv t/00-request.t 
t/00-request.t .. 
1..266
ok 1 - use ElasticSearch;
ok 2 - use ElasticSearch::TestServer;
# 
# Testing ElasticSearch 0.31, Perl 5.012003, /Users/mo/perl5/perlbrew/perls/perl-5.12.3/bin/perl
# Transport: http (Set ES_TRANSPORT=http|httplite|thrift)
# 
Starting test server installed in /Users/mo/Downloads/elasticsearch-0.15.2

monken

#!perl

use Test::More;
use strict;
use warnings;
our $cv;
our $es;
my $r;

$cv->begin;

monken

package ElasticSearch::Transport::AEHTTP::Sync;
use strict;
use base 'ElasticSearch::Transport::AEHTTP';
use mro;

sub request {
    my $cv = shift->next::method(@_);
    return $cv->recv;
}
*refresh_servers = \&ElasticSearch::Transport::refresh_servers;