view release on metacpan or  search on metacpan

lib/Algorithm/SpatialIndex/Storage/Redis.pm  view on Meta::CPAN

use 5.008001;
use strict;
use warnings;
use Carp qw(confess);

our $VERSION = '0.01';

use Scalar::Util qw(blessed);
use Redis;

use parent 'Algorithm::SpatialIndex::Storage';
use Sereal::Encoder;
use Sereal::Decoder;

use Class::XSAccessor {
  getters => {
    _conn    => 'redisconn',
    _prefix  => 'prefix',
    _encoder => 'encoder',
    _decoder => 'decoder',
  },

t/lib/Algorithm/SpatialIndex/Strategy/Test.pm  view on Meta::CPAN

package Algorithm::SpatialIndex::Strategy::Test;
use strict;
use warnings;
use parent 'Algorithm::SpatialIndex::Strategy::2D';

our $InitStorageCalled;
our $InitCalled;

sub insert {} # noop

sub init_storage {
  $InitStorageCalled = 1;
}

t/lib/Algorithm/SpatialIndex/Test.pm  view on Meta::CPAN

package # hide from PAUSE
  Algorithm::SpatialIndex::Test;
use parent 'Exporter';
use JSON ();

our @EXPORT = qw(test_redis_config);

sub test_redis_config {
  open my $fh, "<", "test_redis_config" or return();
  local $/;
  my $str = <$fh>;
  my $config;
  my $j = JSON->new;