App-ElasticSearch-Utilities

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "namespace::autoclean" : "0",
            "parent" : "0",
            "perl" : "v5.16.0",
            "strict" : "0",
            "version" : "0",
            "warnings" : "0"
         }
      },
      "test" : {
         "requires" : {
            "Data::Dumper" : "0",
            "File::Spec" : "0",
            "File::Temp" : "0",
            "IO::Handle" : "0",
            "IPC::Open3" : "0",
            "Test::More" : "0",
            "perl" : "v5.16.0"
         }
      }
   },
   "release_status" : "stable",

META.yml  view on Meta::CPAN

---
abstract: 'Utilities for Monitoring ElasticSearch'
author:
  - 'Brad Lhotsky <brad@divisionbyzero.net>'
build_requires:
  Data::Dumper: '0'
  File::Spec: '0'
  File::Temp: '0'
  IO::Handle: '0'
  IPC::Open3: '0'
  Test::More: '0'
  perl: v5.16.0
configure_requires:
  ExtUtils::MakeMaker: '0'
  perl: v5.16.0
dynamic_config: 0

Makefile.PL  view on Meta::CPAN

    "URI::QueryParam" => 0,
    "YAML::XS" => 0,
    "feature" => 0,
    "namespace::autoclean" => 0,
    "parent" => 0,
    "strict" => 0,
    "version" => 0,
    "warnings" => 0
  },
  "TEST_REQUIRES" => {
    "Data::Dumper" => 0,
    "File::Spec" => 0,
    "File::Temp" => 0,
    "IO::Handle" => 0,
    "IPC::Open3" => 0,
    "Test::More" => 0
  },
  "VERSION" => "8.8",
  "test" => {
    "TESTS" => "t/*.t"
  }
);


my %FallbackPrereqs = (
  "CHI" => 0,
  "CLI::Helpers" => 0,
  "Carp" => 0,
  "Clone" => 0,
  "Const::Fast" => 0,
  "Data::Dumper" => 0,
  "DateTime" => 0,
  "File::Basename" => 0,
  "File::Slurp::Tiny" => 0,
  "File::Spec" => 0,
  "File::Temp" => 0,
  "Getopt::Long" => 0,
  "Getopt::Long::Descriptive" => 0,
  "HTTP::Request" => 0,
  "Hash::Flatten" => 0,
  "Hash::Merge::Simple" => 0,

cpanfile  view on Meta::CPAN

requires "YAML::XS" => "0";
requires "feature" => "0";
requires "namespace::autoclean" => "0";
requires "parent" => "0";
requires "perl" => "v5.16.0";
requires "strict" => "0";
requires "version" => "0";
requires "warnings" => "0";

on 'test' => sub {
  requires "Data::Dumper" => "0";
  requires "File::Spec" => "0";
  requires "File::Temp" => "0";
  requires "IO::Handle" => "0";
  requires "IPC::Open3" => "0";
  requires "Test::More" => "0";
  requires "perl" => "v5.16.0";
};

on 'configure' => sub {
  requires "ExtUtils::MakeMaker" => "0";

t/01-query.t  view on Meta::CPAN

#!perl
#
use strict;
use warnings;

use App::ElasticSearch::Utilities::Query;
use CLI::Helpers qw(:output);
use Data::Dumper;
use Test::More;

$Data::Dumper::Indent   = 1;
$Data::Dumper::Sortkeys = 1;


my $q = App::ElasticSearch::Utilities::Query->new();

# Add a single boolean
$q->add_bool( must => { term => { foo => 'bar' } } );
my $expected = {
   'bool' => {
     'must' => [
       {

t/01-querystring.t  view on Meta::CPAN

#!perl
#
use strict;
use warnings;

use App::ElasticSearch::Utilities::QueryString;
use CLI::Helpers qw(:output);
use Data::Dumper;
use File::Temp qw(tempfile);
use Test::More;

$Data::Dumper::Indent   = 1;
$Data::Dumper::Sortkeys = 1;

# Test Data File;
my ($fh,$tempfile) = tempfile(SUFFIX => '.dat');
my @csv_data=();
while(<DATA>) {
    chomp;
    my @cols = split /\s+/, $_;
    printf $fh "%s\n", join("\t", @cols);
    push @csv_data, [ @cols ];
}

t/02-index-data.t  view on Meta::CPAN

#!perl
#
use strict;
use warnings;

use App::ElasticSearch::Utilities qw(es_index_bases es_index_days_old es_index_strip_date);
use CLI::Helpers qw(:output);
use DateTime;
use Data::Dumper;
use POSIX qw(strftime);
use Test::More;

$Data::Dumper::Indent   = 1;
$Data::Dumper::Sortkeys = 1;

my $now = DateTime->now();
my @days_old = qw(0 1 3 5 8 13 21 90);

my %TESTS=(
    'notadate-100000' => {
            es_index_bases      => 'notadate',
            es_index_days_old   => undef,
            es_index_strip_date => 'notadate-100000',
    },

t/04-aggregate-expand.t  view on Meta::CPAN

#!perl
#
use strict;
use warnings;

use App::ElasticSearch::Utilities::Aggregations;
use CLI::Helpers qw(:output);
use Data::Dumper;
use Test::More;

$Data::Dumper::Indent   = 1;
$Data::Dumper::Sortkeys = 1;

# Aggregation String  Parser Testing
my %tests = (
    '00-terms' => [
        'src_ip',
        {
            'src_ip' => {
                terms => {
                    field => 'src_ip',
                    size => 20,

t/05-aggregate-flatten.t  view on Meta::CPAN

#!perl
#
use strict;
use warnings;

use App::ElasticSearch::Utilities::Aggregations;
use CLI::Helpers qw(:output);
use Data::Dumper;
use Test::More;
use YAML::XS qw();

$Data::Dumper::Indent   = 1;
$Data::Dumper::Sortkeys = 1;

# Aggregation Flattening Tests
my $tests = YAML::XS::Load(join '', <DATA>);

foreach my $t (sort keys %{ $tests }) {
    my $flat = es_flatten_aggs( $tests->{$t}{aggregations} );

    is_deeply( $flat, $tests->{$t}{expected}, $t )
        or diag( Dumper $flat );
}