tsibley

{
  "query": { "match_all": {} },
  "filter": {
    "prefix": { "name": "MooseX-" }
  }
}

tsibley

#!/usr/bin/env perl
use strict;
use warnings;

use Module::Runtime qw< require_module >;
use Text::CSV;

my $filename = $ARGV[0];
my $parser_class = $filename =~ /\.xlsx$/
    ? "Spreadsheet::ParseXLSX"

tsibley

BINS 		:= sponge pee
PERLSCRIPTS 	:= chronic
MANS 		:= $(BINS:=.1) $(PERLSCRIPTS:=.1)
PREFIX 		:= /usr/local

selected := PREFIX=$(PREFIX) BINS="$(BINS)" PERLSCRIPTS="$(PERLSCRIPTS)" MANS="$(MANS)"

all:
	make all $(selected)

tsibley

{
   "query" : {
      "filtered" : {
         "query" : {
            "custom_score" : {
               "query" : {
                  "boosting" : {
                     "negative_boost" : 0.5,
                     "positive" : {
                        "bool" : {

tsibley

{
   "from" : 0,
   "facets" : {
      "count" : {
         "terms" : {
            "size" : 999,
            "field" : "distribution"
         }
      }
   },

tsibley

#!/bin/bash
#
# Potentially re-exec commands inside the current directory's carton
# environment.
#
# Usage: alias perldoc='maybe-via-carton perldoc'
#
cmd=$1
shift
if [[ -f cpanfile.snapshot && -d local ]] && which carton >/dev/null 2>/dev/null; then

tsibley

use strict;
use warnings;

use DDP;
use Bio::Regexp;
use Bio::Tools::IUPAC;
use Bio::PrimarySeq;

my $query = "GTGYCAGCMGCCGCGGTAA";
my $input = "TAACTCCGNGCCAGCAGCCNCGGTAATACGGAGG";

tsibley

use strict;
use warnings;

use DDP;
use Bio::Regexp;
use Bio::Tools::IUPAC;
use Bio::PrimarySeq;

my $query = "GTGYCAGCMGCCGCGGTAA";
my $input = "TAACTCCGNGCCAGCAGCCNCGGTAATACGGAGG";

tsibley

use strict;
use warnings;

use DDP;
use Bio::Regexp;
use Bio::Tools::IUPAC;
use Bio::PrimarySeq;

my $query = "GTGYCAGCMGCCGCGGTAA";
my $input = "TAACTCCGNGCCAGCAGCCNCGGTAATACGGAGG";

tsibley

#!/usr/bin/env plackup
use strict;
use warnings;
use utf8;

use Plack::Builder;
use Plack::App::Directory;
use HTML::Restrict;

use lib::remote